Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Switch to GitLab Next
Sign in / Register
Toggle navigation
Menu
Open sidebar
FPC
Lazarus
Lazarus
Commits
96305118
Commit
96305118
authored
Jan 30, 2016
by
Bart B
🐞
Browse files
LazControls: Fix TThemedCheckBox.KeyUp. Issue
#29406
.
git-svn-id: trunk@51454 -
parent
3d7b81c5
Changes
1
Hide whitespace changes
Inline
Side-by-side
components/lazcontrols/checkboxthemed.pas
View file @
96305118
...
...
@@ -295,7 +295,7 @@ end;
procedure
TCustomCheckBoxThemed
.
KeyUp
(
var
Key
:
Word
;
Shift
:
TShiftState
);
begin
inherited
Key
Down
(
Key
,
Shift
);
inherited
Key
Up
(
Key
,
Shift
);
if
(
Key
in
[
VK_RETURN
,
VK_SPACE
])
and
not
(
ssCtrl
in
Shift
)
then
begin
CheckBoxPressed
:=
False
;
DoClick
;
...
...
FPC Admin account
@fpc_admin
mentioned in issue
#29406 (closed)
·
Jul 29, 2021
mentioned in issue
#29406 (closed)
mentioned in issue #29406
Toggle commit list
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment