paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 21:50:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 62095 #92a535fc1f from trunk:

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

git-svn-id: branches/fixes_2_0@62106 -
This commit is contained in:
maxim 2019-10-21 22:17:20 +00:00
parent 254fc8b15d
commit 558b1caa9f
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.
------------------------------------------------------------------------------}
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;