Jelajahi Sumber

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

git-svn-id: trunk@10401 -
marco 17 tahun lalu
induk
melakukan
2df6010386
1 mengubah file dengan 2 tambahan dan 2 penghapusan
  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;