paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not activate client/server in design mode

Browse Source 
git-svn-id: trunk@33129 -
This commit is contained in:
michael 2016-02-27 15:16:36 +00:00
parent 3da0f82995
commit 7d38224c65
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-process/src/simpleipc.pp
View File

@ -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