Browse Source

* Applied bugfix for bug #1330 (merged)

sg 24 years ago
parent
commit
0d6f991b4b
1 changed files with 5 additions and 2 deletions
  1. 5 2
      fcl/inc/compon.inc

+ 5 - 2
fcl/inc/compon.inc

@@ -261,7 +261,7 @@ begin
   else
   else
     Exclude(FComponentSTate,csDesigning);
     Exclude(FComponentSTate,csDesigning);
   if Assigned(FComponents) then
   if Assigned(FComponents) then
-    For Runner:=0 To FComponents.Count do
+    For Runner:=0 To FComponents.Count - 1 do
       TComponent(FComponents.items[Runner]).SetDesigning(Value);
       TComponent(FComponents.items[Runner]).SetDesigning(Value);
 end;
 end;
 
 
@@ -488,7 +488,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2000-07-13 11:32:59  michael
+  Revision 1.3  2001-01-08 18:36:01  sg
+  * Applied bugfix for bug #1330 (merged)
+
+  Revision 1.2  2000/07/13 11:32:59  michael
   + removed logs
   + removed logs
  
  
 }
 }