diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-17 13:55:39 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-17 13:55:39 +0000 |
| commit | db82b3dad54e6a9602dcaeb03eaad6ec6a67f889 (patch) | |
| tree | 6a7d82c4296c34016d420a60c36fdf90813aa793 /packages/fcl-base/src | |
| parent | baec487725d87ad555048871e69063b92904b4cd (diff) | |
| download | fpc-db82b3dad54e6a9602dcaeb03eaad6ec6a67f889.tar.gz | |
* Put AppClass in interface section, and put OnRun in public section of daemonapplication
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13895 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-base/src')
| -rw-r--r-- | packages/fcl-base/src/daemonapp.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/fcl-base/src/daemonapp.pp b/packages/fcl-base/src/daemonapp.pp index 56b2817397..e5eb513e63 100644 --- a/packages/fcl-base/src/daemonapp.pp +++ b/packages/fcl-base/src/daemonapp.pp @@ -360,7 +360,6 @@ Type procedure SetupLogger; procedure StopLogger; Procedure DoRun; override; - Property OnRun : TNotifyEvent Read FOnRun Write FOnRun; Property SysData : TObject Read FSysData Write FSysData; Public Procedure ShowException(E : Exception); override; @@ -370,6 +369,7 @@ Type procedure RunDaemons; procedure UnInstallDaemons; procedure CreateForm(InstanceClass: TComponentClass; var Reference); virtual; + Property OnRun : TNotifyEvent Read FOnRun Write FOnRun; Property Logger : TEventLog Read FLogger; Property GUIMainLoop : TGuiLoopEvent Read FGUIMainLoop Write FGuiMainLoop; Property GuiHandle : THandle Read FGUIHandle Write FGUIHandle; @@ -418,6 +418,7 @@ Var SStatus : Array[1..5] of string = ('Stop','Pause','Continue','Interrogate','Shutdown'); DefaultDaemonOptions : TDaemonOptions = [doAllowStop,doAllowPause]; + AppClass : TCustomDaemonApplicationClass; implementation @@ -429,7 +430,6 @@ Var MapperClass : TCustomDaemonMapperClass; DesignMapper : TCustomDaemonMapper; DaemonClasses : TStringList; - AppClass : TCustomDaemonApplicationClass; {$ifdef svcdebug} Var |