paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 01:19:29 +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

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

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