Files
MycLib/ASTPlayground/MainForm.fmx
T
Michael Schimmel 5593761551 AST refactoring
2025-08-29 00:27:17 +02:00

114 lines
3.4 KiB
Plaintext

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 638
ClientWidth = 925
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
OnDestroy = FormDestroy
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 = 200.000000000000000000
TabOrder = 3
Text = 'Print'
TextSettings.Trimming = None
OnClick = PrettyPrintButtonClick
end
object DebugButton: TButton
Position.X = 24.000000000000000000
Position.Y = 230.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 = 256.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
object CrerateTriggerExampleButton: TButton
Position.X = 24.000000000000000000
Position.Y = 320.000000000000000000
TabOrder = 9
Text = 'TriggerTest'
TextSettings.Trimming = None
OnClick = CrerateTriggerExampleButtonClick
end
object DoTriggerButton: TButton
Position.X = 24.000000000000000000
Position.Y = 350.000000000000000000
TabOrder = 10
Text = 'Trigger!'
TextSettings.Trimming = None
OnClick = DoTriggerButtonClick
object DoTrigger2Button: TButton
Position.Y = 30.000000000000000000
TabOrder = 8
Text = 'Trigger2'
TextSettings.Trimming = None
OnClick = DoTrigger2ButtonClick
end
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