Prechádzať zdrojové kódy

* fixed setting wrong component state. csDesignInstance and csInline were set inversed.

git-svn-id: trunk@13916 -
ivost 16 rokov pred
rodič
commit
0c725eae43
1 zmenil súbory, kde vykonal 4 pridanie a 4 odobranie
  1. 4 4
      rtl/objpas/classes/compon.inc

+ 4 - 4
rtl/objpas/classes/compon.inc

@@ -301,18 +301,18 @@ Procedure TComponent.SetDesignInstance(Value: Boolean);
 
 begin
   If Value then
-    Exclude(FComponentState, csDesignInstance)
+    Include(FComponentState, csDesignInstance)
   else
-    Include(FComponentState, csDesignInstance);
+    Exclude(FComponentState, csDesignInstance);
 end;
 
 Procedure TComponent.SetInline(Value: Boolean);
 
 begin
   If Value then
-    Exclude(FComponentState, csInline)
+    Include(FComponentState, csInline)
   else
-    Include(FComponentState, csInline);
+    Exclude(FComponentState, csInline);
 end;