paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 22:38:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: Accelerator key (&) should be only supportted in TPopupMenu on macOS

Browse Source
This commit is contained in:
rich2014 2024-01-10 18:33:59 +08:00
parent 0f5a732909
commit beeabd41a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoamenus.pas
View File

@ -219,7 +219,7 @@ begin
aTitle := lclMenuItem.Caption;
aShortCut := lclMenuItem.ShortCut;
if aShortCut=0 then begin
if (lclMenuItem.Owner is TPopupMenu) and (aShortCut=0) then begin
if not Assigned(lclMenuItem.Action) then begin
key:= getHotkeyFromTitle( aTitle );
if key<>0 then