소스 검색

* 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;