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

Cocoa: improve #40608: special processing for '+/=' as KeyEquivalent

Browse Source
This commit is contained in:
rich2014 2023-11-21 00:24:47 +08:00
parent 06a9e27523
commit 57f76d3946
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -140,6 +140,16 @@ begin
ShiftKeyMask := ShiftKeyMask + NSControlKeyMask;
if ssMeta in s then
ShiftKeyMask := ShiftKeyMask + NSCommandKeyMask;
// as a key , +/= is a rare case, both + and = are used as primary keys.
// ‘Shift+=’ for ‘+’
// ‘=’ for ‘='
if key.isEqualToString(NSSTR('+')) then begin
if (ShiftKeyMask and NSShiftKeyMask)=0 then
key := NSStr('=')
else
ShiftKeyMask := ShiftKeyMask - NSShiftKeyMask;
end;
end;
procedure ToggleAppNSMenu(mn: NSMenu; ALogicalEnabled: Boolean);