Gemini Test

2026-01-08 14:13:41 +01:00
parent a25fec38f8
commit a62ba89bca
8 changed files with 2879 additions and 44 deletions
@@ -0,0 +1,187 @@
+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]
+    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'
+      object ChatMemo: 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 CacheTabItem: TTabItem
+      CustomIcon = <
+        item
+        end>
+      IsSelected = False
+      Size.Width = 53.000000000000000000
+      Size.Height = 26.000000000000000000
+      Size.PlatformDefault = False
+      StyleLookup = ''
+      TabOrder = 0
+      Text = 'Cache'
+      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'
+      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