فهرست منبع

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

git-svn-id: trunk@10401 -
marco 17 سال پیش
والد
کامیت
2df6010386
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  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;