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

cocoa: only checking for the removing of the Mixed (gray) status from the checkbox, when space is being pressed

Browse Source 
git-svn-id: trunk@58748 -
This commit is contained in:
dmitry 2018-08-21 02:00:48 +00:00
parent 5e3a683299
commit 6989fa68c2
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -231,10 +231,16 @@ begin
end;
procedure TCocoaButton.keyDown(event: NSEvent);
const
KeyCode_Space = 49;
begin
lclCheckMixedAllowance;
if not Assigned(callback) or not callback.KeyEvent(event) then
begin
// space would attempt to change checked status
if event.keyCode = KeyCode_Space then
lclCheckMixedAllowance;
inherited keyDown(event);
end;
end;
procedure TCocoaButton.keyUp(event: NSEvent);