paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 10:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: key events handling for TCocoaButton. #33094

Browse Source 
git-svn-id: trunk@57284 -
This commit is contained in:
dmitry 2018-02-12 03:18:39 +00:00
parent 90dce10041
commit 919641f544
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -228,6 +228,10 @@ type
procedure drawRect(dirtyRect: NSRect); override; procedure drawRect(dirtyRect: NSRect); override;
function lclGetCallback: ICommonCallback; override; function lclGetCallback: ICommonCallback; override;
procedure lclClearCallback; override; procedure lclClearCallback; override;
// keyboard
procedure keyDown(event: NSEvent); override;
procedure keyUp(event: NSEvent); override;
// mouse // mouse
procedure mouseDown(event: NSEvent); override; procedure mouseDown(event: NSEvent); override;
procedure mouseUp(event: NSEvent); override; procedure mouseUp(event: NSEvent); override;
@ -2399,6 +2403,18 @@ begin
callback := nil; callback := nil;
end; end;
procedure TCocoaButton.keyDown(event: NSEvent);
begin
if not Assigned(callback) or not callback.KeyEvent(event) then
inherited keyDown(event);
end;
procedure TCocoaButton.keyUp(event: NSEvent);
begin
if not Assigned(callback) or not callback.KeyEvent(event) then
inherited keyUp(event);
end;
procedure TCocoaButton.mouseUp(event: NSEvent); procedure TCocoaButton.mouseUp(event: NSEvent);
begin begin
if not callback.MouseUpDownEvent(event) then if not callback.MouseUpDownEvent(event) then