Visualizer node aggregates

Fix in macro expander
2025-11-04 17:45:47 +01:00
parent 2fd85be923
commit 2b8a3effed
8 changed files with 1100 additions and 915 deletions
@@ -1348,14 +1348,16 @@ procedure TForm1.ShowVizualization(X, Y: Single);
 begin
    FWorkspace.DeleteChildren;

-    if FCurrAst <> nil then
-    begin
-        FWorkspace.Build(FCurrAst, TPointF.Create(X, Y));
-    end
-    else if FCurrUnboundAst <> nil then
-    begin
-        FWorkspace.Build(FCurrUnboundAst, TPointF.Create(X, Y));
-    end;
+    FWorkspace.Build(FCurrUnboundAst, TPointF.Create(X, Y));
+    //
+    //    if FCurrAst <> nil then
+    //    begin
+    //        FWorkspace.Build(FCurrAst, TPointF.Create(X, Y));
+    //    end
+    //    else if FCurrUnboundAst <> nil then
+    //    begin
+    //        FWorkspace.Build(FCurrUnboundAst, TPointF.Create(X, Y));
+    //    end;
 end;

 end.