Gemini Test

2026-01-13 10:25:33 +01:00
parent 1387131f57
commit 3c5d51f6a8
10 changed files with 447 additions and 348 deletions
@@ -8,6 +8,7 @@ object Form1: TForm1
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
+  OnDestroy = FormDestroy
  DesignerMasterStyle = 0
  object AskButton: TButton
    Anchors = [akRight, akBottom]
@@ -187,4 +188,9 @@ object Form1: TForm1
    Text = 'in/out'
    TabOrder = 4
  end
+  object ApplicationEvents: TApplicationEvents
+    OnIdle = ApplicationEventsIdle
+    Left = 768
+    Top = 58
+  end
 end