Explorar o código

* bug #10909 copy paste fixes in daemon support (stop/pauze)

git-svn-id: trunk@10401 -
marco %!s(int64=17) %!d(string=hai) anos
pai
achega
2df6010386
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      packages/fcl-base/src/daemonapp.pp

+ 2 - 2
packages/fcl-base/src/daemonapp.pp

@@ -545,14 +545,14 @@ end;
 
 function TDaemon.Stop: Boolean;
 begin
-  Result:=inherited Start;
+  Result:=inherited Stop;
   If assigned(FOnStop) then
     FOnStop(Self,Result);
 end;
 
 function TDaemon.Pause: Boolean;
 begin
-  Result:=inherited Start;
+  Result:=inherited Pause;
   If assigned(FOnPause) then
     FOnPause(Self,Result);
 end;