paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +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);
begin
if event.keyCode = kVK_Space then
if event.keyCode = kVK_Space then begin
lclCheckMixedAllowance;
inherited keyDown(event);
end;
end;
function TCocoaButton.performKeyEquivalent(event: NSEvent): LCLObjCBoolean;

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

@ -648,7 +648,8 @@ var
textView: NSView;
isFirst: Boolean;
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
inherited;
exit;