Ast Schema
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user