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

Revert r57155 and r60340 #b6923ebc84 because of a regression bug. See issue #36170.

Browse Source 
git-svn-id: trunk@62095 -
This commit is contained in:
juha 2019-10-20 17:16:16 +00:00
parent 834b592281
commit 92a535fc1f
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customcheckbox.inc
View File

@ -24,21 +24,11 @@
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) and not (csLoading in ComponentState) then
DoClickOnChange;
end; end;
end; end;