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

TradioGroup and TCheckGroup: fix error in r42772 #471ec807d9: reverse logic in calling UdateAll / UpdateInternalObjectList.

Browse Source 
git-svn-id: trunk@42774 -
This commit is contained in:
bart 2013-09-13 14:58:17 +00:00
parent f0e13de7ac
commit a6401dd4c3
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customcheckgroup.inc
View File

@ -31,9 +31,9 @@ procedure TCheckGroupStringList.Changed;
begin
inherited Changed;
if (UpdateCount = 0) then
FCheckGroup.UpdateInternalObjectList
FCheckGroup.UpdateAll
else
FCheckGroup.UpdateAll;
FCheckGroup.UpdateInternalObjectList;
end;
constructor TCheckGroupStringList.Create(TheCheckGroup: TCustomCheckGroup);

4
lcl/include/radiogroup.inc
View File

@ -38,9 +38,9 @@ procedure TRadioGroupStringList.Changed;
begin
inherited Changed;
if (UpdateCount = 0) then
FRadioGroup.UpdateInternalObjectList
FRadioGroup.UpdateAll
else
FRadioGroup.UpdateAll;
FRadioGroup.UpdateInternalObjectList;
end;
constructor TRadioGroupStringList.Create(TheRadioGroup: TCustomRadioGroup);