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

Cocoa: fix Space Key with Modifers in CustomControl

Browse Source
This commit is contained in:
rich2014 2025-06-28 23:32:30 +08:00
parent cd560cc67d
commit 978bc3a3ab
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/cocoa/cocoacustomcontrol.pas
View File

@ -326,9 +326,29 @@ procedure TCocoaCustomControlWithBaseInputClient.keyDown(theEvent: NSEvent);
var
textView: NSView;
isFirst: Boolean;
function isControlKey: Boolean;
begin
Result:= False;
if _inIME then
Exit;
Result:= theEvent.keyCode in [kVK_Return, kVK_ANSI_KeypadEnter, kVK_Escape];
end;
function isSpaceShortCut: Boolean;
const
ModifiersOfInterest: NSUInteger = (NSControlKeyMask or NSShiftKeyMask or NSAlternateKeyMask or NSCommandKeyMask or NSFunctionKeyMask);
begin
Result:= False;
if _inIME then
Exit;
if theEvent.keyCode <> kVK_Space then
Exit;
Result:= (theEvent.modifierFlags and ModifiersOfInterest) <> 0;
end;
begin
if (not _inIME) and (theEvent.keyCode in
[kVK_Return, kVK_ANSI_KeypadEnter, kVK_Escape]) then
if isControlKey or isSpaceShortCut then
begin
inherited;
exit;