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

LCL: check box: call OnChange/OnClick notify events on State change. Issue #33076

Browse Source 
git-svn-id: trunk@57155 -
This commit is contained in:
ondrej 2018-01-27 12:57:44 +00:00
parent 96d01f3f8f
commit de8a470231
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customcheckbox.inc
View File

@ -24,11 +24,21 @@
Set new state of the checkbox. Set new state of the checkbox.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCustomCheckBox.SetState(Value: TCheckBoxState); procedure TCustomCheckBox.SetState(Value: TCheckBoxState);
var
OldState: TCheckBoxState;
begin begin
if FState <> Value then if FState <> Value then
begin begin
OldState := FState;
FState := Value; FState := Value;
if Action is TCustomAction then
TCustomAction(Action).Checked := FState = cbChecked;
ApplyChanges; ApplyChanges;
//some widgetsets (gtk*) does not allow to uncheck a radio button
//only call OnChange if effectivelly changed
FState := RetrieveState;
if FState <> OldState then
DoClickOnChange;
end; end;
end; end;