TActionToolToSelecting = procedure() of object;


property OnActionToolToSelecting: TActionToolToSelecting


Description:


Use OnActionToolToSelecting to handle when the ShapeTool return to SpSelecting state,


Example:


procedure TMainFrm.MyCAD1ActionToolToSelecting;

begin

 SelectBtn.Down := true;

end;