Commit 96305118 authored by Bart B's avatar Bart B 🐞
Browse files

LazControls: Fix TThemedCheckBox.KeyUp. Issue #29406.

git-svn-id: trunk@51454 -
parent 3d7b81c5
......@@ -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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment