瀏覽代碼

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

git-svn-id: trunk@13916 -
ivost 16 年之前
父節點
當前提交
0c725eae43
共有 1 個文件被更改,包括 4 次插入4 次删除
  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;