Bladeren bron

# revisions: 33129

git-svn-id: branches/fixes_3_0@33767 -
marco 9 jaren geleden
bovenliggende
commit
88b1b91402
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  1. 1 1
      packages/fcl-process/src/simpleipc.pp

+ 1 - 1
packages/fcl-process/src/simpleipc.pp

@@ -269,7 +269,7 @@ procedure TSimpleIPC.SetActive(const AValue: Boolean);
 begin
   if (FActive<>AValue) then
     begin
-    if (csLoading in ComponentState) then
+    if ([]<>([csLoading,csDesigning]*ComponentState)) then
       FActive:=AValue
     else  
       If AValue then