paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:29:37 +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 begin
inherited Changed; inherited Changed;
if (UpdateCount = 0) then if (UpdateCount = 0) then
FCheckGroup.UpdateInternalObjectList FCheckGroup.UpdateAll
else else
FCheckGroup.UpdateAll; FCheckGroup.UpdateInternalObjectList;
end; end;
constructor TCheckGroupStringList.Create(TheCheckGroup: TCustomCheckGroup); constructor TCheckGroupStringList.Create(TheCheckGroup: TCustomCheckGroup);

4
lcl/include/radiogroup.inc
View File

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