Files
MycLib/ASTPlayground/MainForm.fmx
T
Michael Schimmel a83bbf4f54 Ast series indexer
2025-09-02 16:58:52 +02:00

151 lines
4.5 KiB
Plaintext

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 883
ClientWidth = 925
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
DesignerMasterStyle = 0
object Panel1: TPanel
Align = MostLeft
Size.Width = 129.000000000000000000
Size.Height = 883.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 = 5
Text = 'Trigger2'
TextSettings.Trimming = None
OnClick = DoTrigger2ButtonClick
end
end
object ClearButton: TButton
Position.X = 24.000000000000000000
Position.Y = 432.000000000000000000
Size.Width = 80.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 11
Text = 'Clear'
TextSettings.Trimming = None
OnClick = ClearButtonClick
end
object FlowOnlyBox: TCheckBox
Position.X = 24.000000000000000000
Position.Y = 8.000000000000000000
TabOrder = 12
Text = 'Flow only'
OnChange = ClearButtonClick
end
object SeriesTestButton: TButton
Position.X = 24.000000000000000000
Position.Y = 152.000000000000000000
Size.Width = 80.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 14
Text = 'Series'
TextSettings.Trimming = None
OnClick = SeriesTestButtonClick
end
end
object Panel2: TPanel
Align = Client
Size.Width = 796.000000000000000000
Size.Height = 616.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
end
object Memo1: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
DataDetectorTypes = []
StyledSettings = [Size, Style, FontColor]
TextSettings.Font.Family = 'Consolas'
Align = Bottom
Position.X = 129.000000000000000000
Position.Y = 616.000000000000000000
Size.Width = 796.000000000000000000
Size.Height = 267.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
Viewport.Width = 792.000000000000000000
Viewport.Height = 263.000000000000000000
end
end