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

Cocoa: Fix the issue that the Space key on the Button does not work

Browse Source
This commit is contained in:
rich2014 2024-02-24 16:31:47 +08:00
parent 82784f13b1
commit b0bb460a46
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoabuttons.pas
View File

@ -371,8 +371,10 @@ end;
procedure TCocoaButton.keyDown(event: NSEvent); procedure TCocoaButton.keyDown(event: NSEvent);
begin begin
if event.keyCode = kVK_Space then if event.keyCode = kVK_Space then begin
lclCheckMixedAllowance; lclCheckMixedAllowance;
inherited keyDown(event);
end;
end; end;
function TCocoaButton.performKeyEquivalent(event: NSEvent): LCLObjCBoolean; function TCocoaButton.performKeyEquivalent(event: NSEvent): LCLObjCBoolean;

3
lcl/interfaces/cocoa/cocoaprivate.pas
View File

@ -648,7 +648,8 @@ var
textView: NSView; textView: NSView;
isFirst: Boolean; isFirst: Boolean;
begin begin
if (not _inIME) and (theEvent.keyCode in [kVK_Return, kVK_ANSI_KeypadEnter, kVK_Escape]) then if (not _inIME) and (theEvent.keyCode in
[kVK_Return, kVK_ANSI_KeypadEnter, kVK_Escape, kVK_Space]) then
begin begin
inherited; inherited;
exit; exit;