paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed SetAncestor. Index was getting too big

Browse Source
This commit is contained in:
michael 2002-10-15 20:06:19 +00:00
parent 906b37ffa1
commit bf6a0f11a4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/compon.inc
View File

@ -260,7 +260,7 @@ begin
else
Include(FCOmponentState,csAncestor);
if Assigned(FComponents) then
For Runner:=0 To FComponents.Count do
For Runner:=0 To FComponents.Count-1 do
TComponent(FComponents.Items[Runner]).SetAncestor(Value);
end;
@ -533,7 +533,10 @@ end;
{
$Log$
Revision 1.7 2002-09-07 15:15:24 peter
Revision 1.8 2002-10-15 20:06:19 michael
+ Fixed SetAncestor. Index was getting too big
Revision 1.7 2002/09/07 15:15:24 peter
* old logs removed and tabs fixed
Revision 1.6 2002/01/09 10:40:24 michael