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

cocoa: replacing default keyDown handling routine, with a cusomized one. The reason: unable to fully predict the event processing within Cocoa, causing some keys to be lost

Browse Source 
git-svn-id: trunk@59057 -
This commit is contained in:
dmitry 2018-09-17 22:34:52 +00:00
parent 7b7dceaf6d
commit f000038a2b
1 changed files with 56 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lcl/interfaces/cocoa/cocoawindows.pas
View File

@ -210,9 +210,61 @@ type
procedure didAddSubview(aview: NSView); override;
end;
procedure WindowPerformKeyDown(win: NSWindow; event: NSEvent; out processed: Boolean);
implementation
// Cocoa emulation routine.
//
// For whatever reason, the default keyDown: event processing, is triggerring
// some macOSX hot keys PRIOR to reaching keyDown: (Which is a little bit unpredictable)
// So the below Key-event-Path is a light version of what is described, in Cocoa
// documentation.
// first - run controls and menus, for performKeyEquivalent
// then pass keyDown through
//
// The order can be reverted and let Controls do the key processing first
// and menu to handle the event after.
procedure WindowPerformKeyDown(win: NSWindow; event: NSEvent; out processed: Boolean);
var
r : NSResponder;
fr : NSResponder;
mn : NSMenu;
begin
fr := win.firstResponder;
r := fr;
processed := false;
// let controls to performKeyEquivalent first
while Assigned(r) and not processed do begin
if r.respondsToSelector(objcselector('performKeyEquivalent:')) then
processed := r.performKeyEquivalent(event);
if not processed then r := r.nextResponder;
end;
if processed then Exit;
// let menus do the hot key, if controls don't like it.
if not processed then
begin
mn := NSApplication(NSApp).mainMenu;
if Assigned(mn) then
processed := mn.performKeyEquivalent(event);
end;
if processed then Exit;
r := fr;
while Assigned(r) and not processed do begin
if r.respondsToSelector(objcselector('keyDown:')) then
begin
r.keyDown(event);
processed := true;
end;
if not processed then r := r.nextResponder;
end;
end;
{ TCocoaDesignOverlay }
procedure TCocoaDesignOverlay.drawRect(r: NSRect);
@ -823,7 +875,7 @@ var
Epos: NSPoint;
cr : NSRect;
fr : NSRect;
trackEvent: Boolean;
prc: Boolean;
begin
if event.type_ = NSApplicationDefined then
begin
@ -873,6 +925,9 @@ begin
else
inherited sendEvent(event);
end
else
if event.type_ = NSKeyDown then
WindowPerformKeyDown(self, event, prc)
else
inherited sendEvent(event);
end;