paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 04:59:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TCheckBox: Fixed the application crashes before the form is showing. Issue #35018

Browse Source 
git-svn-id: trunk@60340 -
This commit is contained in:
michl 2019-02-05 21:13:43 +00:00
parent f72819e5bd
commit b6923ebc84
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customcheckbox.inc
View File

@ -37,7 +37,7 @@ begin
//some widgetsets (gtk*) does not allow to uncheck a radio button
//only call OnChange if effectivelly changed
FState := RetrieveState;
if FState <> OldState then
if (FState <> OldState) and not (csLoading in ComponentState) then
DoClickOnChange;
end;
end;