OpenAIPG.Frame.Code.fmx

object FrameCode: TFrameCode
  Size.Width = 450.000000000000000000
  Size.Height = 269.000000000000000000
  Size.PlatformDefault = False
  object Rectangle1: TRectangle
    Align = Client
    Fill.Color = xFF202123
    Size.Width = 450.000000000000000000
    Size.Height = 269.000000000000000000
    Size.PlatformDefault = False
    Stroke.Kind = None
    XRadius = 4.000000000000000000
    YRadius = 4.000000000000000000
    object Rectangle2: TRectangle
      Align = Top
      Corners = [TopLeft, TopRight]
      Fill.Color = xFF353740
      Padding.Left = 12.000000000000000000
      Padding.Top = 6.000000000000000000
      Padding.Right = 12.000000000000000000
      Padding.Bottom = 6.000000000000000000
      Size.Width = 450.000000000000000000
      Size.Height = 36.000000000000000000
      Size.PlatformDefault = False
      Stroke.Kind = None
      XRadius = 4.000000000000000000
      YRadius = 4.000000000000000000
      object LabelTitle: TLabel
        Align = Client
        StyledSettings = [Style]
        Size.Width = 354.000000000000000000
        Size.Height = 24.000000000000000000
        Size.PlatformDefault = False
        TextSettings.Font.Family = 'Roboto'
        TextSettings.Font.Size = 14.000000000000000000
        TextSettings.FontColor = xFFC5C5D2
        Text = 'Example code'
        TabOrder = 0
      end
      object ButtonCopy: TButton
        Align = Right
        Position.X = 366.000000000000000000
        Position.Y = 6.000000000000000000
        Size.Width = 72.000000000000000000
        Size.Height = 24.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'button_dark_clear'
        TabOrder = 1
        Text = 'Copy'
        OnClick = ButtonCopyClick
      end
    end
    object MemoCode: TMemo
      Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
      Caret.Color = x00FFFFFF
      DataDetectorTypes = []
      DisableMouseWheel = True
      Lines.Strings = (
        'var Completions := OpenAI.Completion.Create('
        '  procedure(Params: TCompletionParams)'
        '  begin'
        '    Params.Prompt(MemoPrompt.Text);'
        '    Params.MaxTokens(2048);'
        '  end);'
        'try'
        '  for var Choice in Completions.Choices do'
        
          '    MemoChat.Lines.Add(Choice.Index.ToString + '#39' '#39' + Choice.Text' +
          ');'
        'finally'
        '  Completions.Free;'
        'end;')
      ReadOnly = True
      ShowScrollBars = False
      StyledSettings = [Style]
      TextSettings.Font.Family = 'Consolas'
      TextSettings.Font.Size = 15.000000000000000000
      TextSettings.FontColor = xFFC6C6C6
      Align = Client
      Cursor = crArrow
      EnabledScroll = False
      Margins.Left = 5.000000000000000000
      Margins.Top = 5.000000000000000000
      Margins.Right = 5.000000000000000000
      Margins.Bottom = 5.000000000000000000
      Size.Width = 440.000000000000000000
      Size.Height = 223.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'memo_style'
      TabOrder = 1
      Viewport.Width = 440.000000000000000000
      Viewport.Height = 223.000000000000000000
    end
  end
end