MycLib/GeminiTest/MainUnit.fmx

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 708
  ClientWidth = 906
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
  DesignerMasterStyle = 0
  object AskButton: TButton
    Anchors = [akRight, akBottom]
    Default = True
    Position.X = 800.000000000000000000
    Position.Y = 577.000000000000000000
    TabOrder = 1
    Text = 'Ask'
    OnClick = AskButtonClick
  end
  object Edit1: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    Anchors = [akLeft, akBottom]
    TabOrder = 2
    Text = 'AIzaSyBiWN55O-lI36EXcBeqf_cne4jAzxNsfbg'
    Position.X = 8.000000000000000000
    Position.Y = 678.000000000000000000
    Size.Width = 145.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    OnExit = Edit1Exit
  end
  object ModelsComboBox: TComboBox
    Anchors = [akLeft, akBottom]
    Position.X = 8.000000000000000000
    Position.Y = 577.000000000000000000
    Size.Width = 193.000000000000000000
    Size.Height = 22.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 3
  end
  object AskMemo: TMemo
    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
    DataDetectorTypes = []
    Anchors = [akLeft, akRight, akBottom]
    Position.X = 224.000000000000000000
    Position.Y = 577.000000000000000000
    Size.Width = 568.000000000000000000
    Size.Height = 123.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 5
    Viewport.Width = 564.000000000000000000
    Viewport.Height = 119.000000000000000000
  end
  object ResetChatButton: TButton
    Anchors = [akRight, akBottom]
    Position.X = 800.000000000000000000
    Position.Y = 645.000000000000000000
    TabOrder = 6
    Text = 'Reset'
    OnClick = ResetChatButtonClick
  end
  object TabControl1: TTabControl
    Anchors = [akLeft, akTop, akRight, akBottom]
    Size.Width = 906.000000000000000000
    Size.Height = 561.000000000000000000
    Size.PlatformDefault = False
    TabIndex = 0
    TabOrder = 7
    TabPosition = PlatformDefault
    Sizes = (
      906s
      535s
      906s
      535s
      906s
      535s)
    object ChatTabItem: TTabItem
      CustomIcon = <
        item
        end>
      IsSelected = True
      Size.Width = 45.000000000000000000
      Size.Height = 26.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = ''
      TabOrder = 0
      Text = 'Chat'
      ExplicitSize.cx = 69.000000000000000000
      ExplicitSize.cy = 26.000000000000000000
      object ChatBrowser: TWebBrowser
        Align = Client
        Size.Width = 906.000000000000000000
        Size.Height = 535.000000000000000000
        Size.PlatformDefault = False
        WindowsEngine = EdgeOnly
      end
    end
    object CacheTabItem: TTabItem
      CustomIcon = <
        item
        end>
      IsSelected = False
      Size.Width = 53.000000000000000000
      Size.Height = 26.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = ''
      TabOrder = 0
      Text = 'Cache'
      ExplicitSize.cx = 53.000000000000000000
      ExplicitSize.cy = 26.000000000000000000
      object CacheMemo: TMemo
        Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
        DataDetectorTypes = []
        Align = Client
        Size.Width = 906.000000000000000000
        Size.Height = 535.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 1
        Viewport.Width = 902.000000000000000000
        Viewport.Height = 531.000000000000000000
      end
    end
    object SysInstrTabItem: TTabItem
      CustomIcon = <
        item
        end>
      IsSelected = False
      Size.Width = 61.000000000000000000
      Size.Height = 26.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = ''
      TabOrder = 0
      Text = 'SysInstr'
      ExplicitSize.cx = 61.000000000000000000
      ExplicitSize.cy = 26.000000000000000000
      object SystemInstructionMemo: TMemo
        Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
        DataDetectorTypes = []
        TextSettings.WordWrap = True
        Align = Client
        Size.Width = 906.000000000000000000
        Size.Height = 535.000000000000000000
        Size.PlatformDefault = False
        TabOrder = 1
        Viewport.Width = 902.000000000000000000
        Viewport.Height = 531.000000000000000000
      end
    end
  end
  object UploadCacheButton: TButton
    Anchors = [akRight, akBottom]
    Position.X = 800.000000000000000000
    Position.Y = 675.000000000000000000
    TabOrder = 0
    Text = 'Upload'
    OnClick = UploadCacheButtonClick
  end
  object ThinkingCheckBox: TCheckBox
    Anchors = [akRight, akBottom]
    Position.X = 800.000000000000000000
    Position.Y = 607.000000000000000000
    Size.Width = 88.000000000000000000
    Size.Height = 19.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 8
    Text = 'Thinking'
  end
  object GlobalQuoteLabel: TLabel
    Anchors = [akLeft, akBottom]
    Position.X = 8.000000000000000000
    Position.Y = 608.000000000000000000
    Size.Width = 193.000000000000000000
    Size.Height = 17.000000000000000000
    Size.PlatformDefault = False
    Text = 'Global Quota: 0'
    TabOrder = 9
  end
  object QuotaLabel: TLabel
    Anchors = [akRight, akBottom]
    Position.X = 704.000000000000000000
    Position.Y = 537.000000000000000000
    Size.Width = 194.000000000000000000
    Size.Height = 16.000000000000000000
    Size.PlatformDefault = False
    TextSettings.HorzAlign = Trailing
    Text = 'in/out'
    TabOrder = 4
  end
end