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

LazControls: Fix TThemedCheckBox.KeyUp. Issue #0029406.

Browse Source 
git-svn-id: trunk@51454 -
This commit is contained in:
bart 2016-01-30 12:20:28 +00:00
parent 3d7b81c5a9
commit 96305118da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/checkboxthemed.pas
View File

@ -295,7 +295,7 @@ end;
procedure TCustomCheckBoxThemed.KeyUp(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
inherited KeyUp(Key, Shift);
if (Key in [VK_RETURN, VK_SPACE]) and not (ssCtrl in Shift) then begin
CheckBoxPressed := False;
DoClick;