Explorar o código

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

git-svn-id: trunk@13916 -
ivost %!s(int64=16) %!d(string=hai) anos
pai
achega
0c725eae43
Modificáronse 1 ficheiros con 4 adicións e 4 borrados
  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;