Ast Playground 1. visualization

ASTPlayground/MainForm.fmx

@@ -2,7 +2,7 @@ object Form1: TForm1
   Left = 0
   Top = 0
   Caption = 'Form1'
-  ClientHeight = 638
+  ClientHeight = 883
   ClientWidth = 925
   FormFactor.Width = 320
   FormFactor.Height = 480
@@ -10,9 +10,9 @@ object Form1: TForm1
   OnCreate = FormCreate
   DesignerMasterStyle = 0
   object Panel1: TPanel
-    Align = Left
-    Size.Width = 137.000000000000000000
-    Size.Height = 638.000000000000000000
+    Align = MostLeft
+    Size.Width = 129.000000000000000000
+    Size.Height = 883.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 1
     object Test1Button: TButton
@@ -89,24 +89,44 @@ object Form1: TForm1
       OnClick = DoTriggerButtonClick
       object DoTrigger2Button: TButton
         Position.Y = 30.000000000000000000
-        TabOrder = 8
+        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
+  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 = Client
-    Size.Width = 788.000000000000000000
-    Size.Height = 638.000000000000000000
+    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 = 784.000000000000000000
-    Viewport.Height = 634.000000000000000000
+    Viewport.Width = 792.000000000000000000
+    Viewport.Height = 263.000000000000000000
   end
 end