paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 05:57:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: adding mouseUp handler. The handler is going to be used, when LCL overrides the mouse and doesn't let the default mouseDown to be processed (in the designer mode)

Browse Source 
git-svn-id: trunk@61430 -
This commit is contained in:
dmitry 2019-06-20 02:50:56 +00:00
parent 0b0838fab1
commit cf89d1f9bf
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoatables.pas
View File

@ -96,7 +96,7 @@ type
// mouse // mouse
procedure mouseDown(event: NSEvent); override; procedure mouseDown(event: NSEvent); override;
// procedure mouseUp(event: NSEvent); override; This is eaten by NSTableView - worked around with NSTableViewDelegateProtocol procedure mouseUp(event: NSEvent); override;
procedure rightMouseDown(event: NSEvent); override; procedure rightMouseDown(event: NSEvent); override;
procedure rightMouseUp(event: NSEvent); override; procedure rightMouseUp(event: NSEvent); override;
procedure otherMouseDown(event: NSEvent); override; procedure otherMouseDown(event: NSEvent); override;
@ -549,6 +549,12 @@ begin
end; end;
end; end;
procedure TCocoaTableListView.mouseUp(event: NSEvent);
begin
if Assigned(callback) and not callback.MouseUpDownEvent(event) then
inherited mouseUp(event);
end;
procedure TCocoaTableListView.rightMouseDown(event: NSEvent); procedure TCocoaTableListView.rightMouseDown(event: NSEvent);
begin begin
if not Assigned(callback) or not callback.MouseUpDownEvent(event) then if not Assigned(callback) or not callback.MouseUpDownEvent(event) then