Commit 92a535fc authored by Juha Manninen's avatar Juha Manninen
Browse files

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

git-svn-id: trunk@62095 -
parent 834b5922
......@@ -24,21 +24,11 @@
Set new state of the checkbox.
------------------------------------------------------------------------------}
procedure TCustomCheckBox.SetState(Value: TCheckBoxState);
var
OldState: TCheckBoxState;
begin
if FState <> Value then
begin
OldState := FState;
FState := Value;
if Action is TCustomAction then
TCustomAction(Action).Checked := FState = cbChecked;
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;
......
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