Ast Schema

This commit is contained in:
Michael Schimmel
2026-01-06 14:48:22 +01:00
parent 7313848538
commit 74a5c30ae0
4 changed files with 116 additions and 110 deletions
+2
View File
@@ -193,6 +193,8 @@ begin
FWorkspace.SetFocus;
var WorldP := FWorkspace.ScreenToWorld(FWorkspace.LocalToScreen(TPointF.Create(X, Y)));
if not Assigned(FWorkspace.RootNode) then
exit;
var Hit := FWorkspace.RootNode.HitTest(WorldP);
if (Button = TMouseButton.mbLeft) and (Hit is TAstViewNode) then