Binding

ASTPlayground/MainForm.fmx

@@ -39,21 +39,13 @@ object Form1: TForm1
       TextSettings.Trimming = None
       OnClick = PrettyPrintButtonClick
     end
-    object DebugButton: TButton
-      Position.X = 24.000000000000000000
-      Position.Y = 411.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
+      TabOrder = 4
       Text = 'Recursion'
       TextSettings.Trimming = None
       OnClick = RecursionButtonClick
@@ -61,13 +53,13 @@ object Form1: TForm1
     object ShowScopeBox: TCheckBox
       Position.X = 24.000000000000000000
       Position.Y = 441.000000000000000000
-      TabOrder = 6
+      TabOrder = 5
       Text = 'Scope'
     end
     object FibonacciButton: TButton
       Position.X = 24.000000000000000000
       Position.Y = 122.000000000000000000
-      TabOrder = 8
+      TabOrder = 7
       Text = 'Fibonacci'
       TextSettings.Trimming = None
       OnClick = FibonacciButtonClick
@@ -75,15 +67,15 @@ object Form1: TForm1
     object CrerateTriggerExampleButton: TButton
       Position.X = 24.000000000000000000
       Position.Y = 168.000000000000000000
-      TabOrder = 9
+      TabOrder = 8
       Text = 'TriggerTest'
       TextSettings.Trimming = None
-      OnClick = CrerateTriggerExampleButtonClick
+      OnClick = CreateTriggerExampleButtonClick
     end
     object DoTriggerButton: TButton
       Position.X = 24.000000000000000000
       Position.Y = 198.000000000000000000
-      TabOrder = 10
+      TabOrder = 9
       Text = 'Trigger!'
       TextSettings.Trimming = None
       OnClick = DoTriggerButtonClick
@@ -101,7 +93,7 @@ object Form1: TForm1
       Size.Width = 80.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 11
+      TabOrder = 10
       Text = 'Clear'
       TextSettings.Trimming = None
       OnClick = ClearButtonClick
@@ -109,7 +101,7 @@ object Form1: TForm1
     object FlowOnlyBox: TCheckBox
       Position.X = 24.000000000000000000
       Position.Y = 8.000000000000000000
-      TabOrder = 12
+      TabOrder = 11
       Text = 'Flow only'
       OnChange = ClearButtonClick
     end
@@ -119,7 +111,7 @@ object Form1: TForm1
       Size.Width = 80.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 14
+      TabOrder = 13
       Text = 'Series'
       TextSettings.Trimming = None
       OnClick = SeriesTestButtonClick
@@ -127,7 +119,7 @@ object Form1: TForm1
     object OHLCButton: TButton
       Position.X = 24.000000000000000000
       Position.Y = 304.000000000000000000
-      TabOrder = 15
+      TabOrder = 14
       Text = 'OHLC'
       TextSettings.Trimming = None
       OnClick = OHLCButtonClick
@@ -135,7 +127,7 @@ object Form1: TForm1
     object DebugBox: TCheckBox
       Position.X = 24.000000000000000000
       Position.Y = 360.000000000000000000
-      TabOrder = 16
+      TabOrder = 15
       Text = 'Debug'
     end
   end