AST-Playground

2025-08-28 00:56:20 +02:00
parent 3268748c03
commit bb0e2fd5af
12 changed files with 2500 additions and 393 deletions
@@ -0,0 +1,88 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 638
+  ClientWidth = 925
+  FormFactor.Width = 320
+  FormFactor.Height = 480
+  FormFactor.Devices = [Desktop]
+  DesignerMasterStyle = 0
+  object Panel1: TPanel
+    Align = Left
+    Size.Width = 137.000000000000000000
+    Size.Height = 638.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 1
+    object Test1Button: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 32.000000000000000000
+      TabOrder = 1
+      Text = 'Test 1'
+      TextSettings.Trimming = None
+      OnClick = Test1ButtonClick
+    end
+    object Test2Button: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 62.000000000000000000
+      TabOrder = 2
+      Text = 'Test 2'
+      TextSettings.Trimming = None
+      OnClick = Test2ButtonClick
+    end
+    object PrettyPrintButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 168.000000000000000000
+      TabOrder = 3
+      Text = 'Print'
+      TextSettings.Trimming = None
+      OnClick = PrettyPrintButtonClick
+    end
+    object DebugButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 198.000000000000000000
+      TabOrder = 4
+      Text = 'Debug'
+      TextSettings.Trimming = None
+      OnClick = DebugButtonClick
+    end
+    object RecursionButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 92.000000000000000000
+      Size.Width = 80.000000000000000000
+      Size.Height = 22.000000000000000000
+      Size.PlatformDefault = False
+      TabOrder = 5
+      Text = 'Recursion'
+      TextSettings.Trimming = None
+      OnClick = RecursionButtonClick
+    end
+    object ShowScopeBox: TCheckBox
+      Position.X = 32.000000000000000000
+      Position.Y = 224.000000000000000000
+      TabOrder = 6
+      Text = 'Scope'
+    end
+    object FibonacciButton: TButton
+      Position.X = 24.000000000000000000
+      Position.Y = 122.000000000000000000
+      TabOrder = 8
+      Text = 'Fibonacci'
+      TextSettings.Trimming = None
+      OnClick = FibonacciButtonClick
+    end
+  end
+  object Memo1: TMemo
+    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
+    DataDetectorTypes = []
+    StyledSettings = [Size, Style, FontColor]
+    TextSettings.Font.Family = 'Consolas'
+    Align = Client
+    Size.Width = 788.000000000000000000
+    Size.Height = 638.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 2
+    Viewport.Width = 784.000000000000000000
+    Viewport.Height = 634.000000000000000000
+  end
+end