New visualizer

ASTPlayground/Myc.Fmx.AstEditor.Workspace.pas

@@ -91,7 +91,7 @@ implementation
 uses
     System.Math,
     FMX.Platform,
-    Myc.Fmx.AstVisualizer;
+    Myc.Fmx.AstEditor.Node;
 
 { TPinConnection }
 
@@ -111,7 +111,8 @@ end;
 
 procedure TAuraWorkspace.Build(const RootNode: IAstNode; const Position: TPointF);
 begin
-    RootNode.Accept(TAstVisualizer.CreateVisitor(Self, Position));
+    var visu := TAstVisualizer.Create(Self, Self, 0) as IAstVisualizer;
+    visu.CallAccept(RootNode);
 end;
 
 procedure TAuraWorkspace.DoDeleteChildren;