paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 12:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: preventing the drag event from going to parent controls. #34878

Browse Source 
git-svn-id: trunk@60122 -
This commit is contained in:
dmitry 2019-01-20 14:30:26 +00:00
parent f8c805458d
commit b0e4ed33be
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoaprivate.pas
View File

@ -599,7 +599,11 @@ end;
procedure TCocoaCustomControl.mouseDragged(event: NSEvent);
begin
if not Assigned(callback) or not callback.MouseMove(event) then
inherited mouseDragged(event);
// calling inherited causes the drag event to be passed to the
// parent controls
//inherited mouseDragged(event);
;
end;
procedure TCocoaCustomControl.mouseEntered(event: NSEvent);