Macro expander integrated in binder

ASTPlayground/MainForm.fmx

@@ -20,7 +20,6 @@ object Form1: TForm1
       Position.Y = 32.000000000000000000
       TabOrder = 1
       Text = 'Test 1'
-      TextSettings.Trimming = None
       OnClick = Test1ButtonClick
     end
     object Test2Button: TButton
@@ -28,7 +27,6 @@ object Form1: TForm1
       Position.Y = 62.000000000000000000
       TabOrder = 2
       Text = 'Test 2'
-      TextSettings.Trimming = None
       OnClick = Test2ButtonClick
     end
     object PrettyPrintButton: TButton
@@ -36,7 +34,6 @@ object Form1: TForm1
       Position.Y = 479.000000000000000000
       TabOrder = 3
       Text = 'Print'
-      TextSettings.Trimming = None
       OnClick = PrettyPrintButtonClick
     end
     object RecursionButton: TButton
@@ -47,7 +44,6 @@ object Form1: TForm1
       Size.PlatformDefault = False
       TabOrder = 4
       Text = 'Recursion'
-      TextSettings.Trimming = None
       OnClick = RecursionButtonClick
     end
     object ShowScopeBox: TCheckBox
@@ -61,7 +57,6 @@ object Form1: TForm1
       Position.Y = 122.000000000000000000
       TabOrder = 7
       Text = 'Fibonacci'
-      TextSettings.Trimming = None
       OnClick = FibonacciButtonClick
     end
     object CrerateTriggerExampleButton: TButton
@@ -69,7 +64,6 @@ object Form1: TForm1
       Position.Y = 168.000000000000000000
       TabOrder = 8
       Text = 'TriggerTest'
-      TextSettings.Trimming = None
       OnClick = CreateTriggerExampleButtonClick
     end
     object DoTriggerButton: TButton
@@ -77,13 +71,11 @@ object Form1: TForm1
       Position.Y = 198.000000000000000000
       TabOrder = 9
       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
@@ -95,7 +87,6 @@ object Form1: TForm1
       Size.PlatformDefault = False
       TabOrder = 10
       Text = 'Clear'
-      TextSettings.Trimming = None
       OnClick = ClearButtonClick
     end
     object FlowOnlyBox: TCheckBox
@@ -113,7 +104,6 @@ object Form1: TForm1
       Size.PlatformDefault = False
       TabOrder = 13
       Text = 'Series'
-      TextSettings.Trimming = None
       OnClick = SeriesTestButtonClick
     end
     object OHLCButton: TButton
@@ -121,7 +111,6 @@ object Form1: TForm1
       Position.Y = 288.000000000000000000
       TabOrder = 14
       Text = 'OHLC'
-      TextSettings.Trimming = None
       OnClick = OHLCButtonClick
     end
     object DebugBox: TCheckBox
@@ -135,7 +124,6 @@ object Form1: TForm1
       Position.Y = 602.000000000000000000
       TabOrder = 16
       Text = 'From JSON'
-      TextSettings.Trimming = None
       OnClick = FromJSONButtonClick
     end
     object ToJSONButton: TButton
@@ -143,7 +131,6 @@ object Form1: TForm1
       Position.Y = 632.000000000000000000
       TabOrder = 17
       Text = 'To JSON'
-      TextSettings.Trimming = None
       OnClick = ToJSONButtonClick
     end
     object ExternalFuncButton: TButton
@@ -151,7 +138,6 @@ object Form1: TForm1
       Position.Y = 318.000000000000000000
       TabOrder = 18
       Text = 'External Func'
-      TextSettings.Trimming = None
       OnClick = ExternalFuncButtonClick
     end
     object InnerLambdaButton: TButton
@@ -159,7 +145,6 @@ object Form1: TForm1
       Position.Y = 348.000000000000000000
       TabOrder = 19
       Text = 'Inner Lambda'
-      TextSettings.Trimming = None
       OnClick = InnerLambdaButtonClick
     end
     object DumpButton: TButton
@@ -167,7 +152,6 @@ object Form1: TForm1
       Position.Y = 509.000000000000000000
       TabOrder = 20
       Text = 'Dump'
-      TextSettings.Trimming = None
       OnClick = DumpButtonClick
     end
     object FailingUpvalueButton: TButton
@@ -175,7 +159,6 @@ object Form1: TForm1
       Position.Y = 378.000000000000000000
       TabOrder = 22
       Text = 'Upvalue'
-      TextSettings.Trimming = None
       OnClick = FailingUpvalueButtonClick
     end
     object TailCallButten: TButton
@@ -183,7 +166,6 @@ object Form1: TForm1
       Position.Y = 406.000000000000000000
       TabOrder = 23
       Text = 'Tail calls'
-      TextSettings.Trimming = None
       OnClick = TailCallButtenClick
     end
     object SaveUserLibButton: TButton
@@ -191,7 +173,6 @@ object Form1: TForm1
       Position.Y = 680.000000000000000000
       TabOrder = 24
       Text = 'Save Lib'
-      TextSettings.Trimming = None
       OnClick = SaveUserLibButtonClick
     end
     object LoadUserLibButton: TButton
@@ -199,7 +180,6 @@ object Form1: TForm1
       Position.Y = 710.000000000000000000
       TabOrder = 25
       Text = 'LoadLib'
-      TextSettings.Trimming = None
       OnClick = LoadUserLibButtonClick
     end
   end