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

lcl: cocoa: fixed keyboard navigation in open dialog

Browse Source 
git-svn-id: trunk@64571 -
This commit is contained in:
mattias 2021-02-13 16:24:45 +00:00
parent 8b81b7cfd3
commit 1c57b8cc78
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoawsmenus.pas
View File

@ -284,10 +284,16 @@ begin
end;
function TCocoaMenu.performKeyEquivalent(theEvent: NSEvent): LCLObjCBoolean;
var
OldKeyEq: boolean;
begin
OldKeyEq:=isKeyEq;
isKeyEq := true;
inherited performKeyEquivalent(theEvent);
isKeyEq := false;
try
inherited performKeyEquivalent(theEvent);
finally
isKeyEq := OldKeyEq;
end;
end;
function TCocoaMenu.lclIsKeyEquivalent: LCLObjCBoolean;