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

* Put AppClass in interface section, and put OnRun in public section of daemonapplication

Browse Source 
git-svn-id: trunk@13895 -
This commit is contained in:
michael 2009-10-17 13:55:39 +00:00
parent d2fa20949a
commit 9f5c7c3344
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-base/src/daemonapp.pp
View File

@ -360,7 +360,6 @@ Type
procedure SetupLogger; procedure SetupLogger;
procedure StopLogger; procedure StopLogger;
Procedure DoRun; override; Procedure DoRun; override;
Property OnRun : TNotifyEvent Read FOnRun Write FOnRun;
Property SysData : TObject Read FSysData Write FSysData; Property SysData : TObject Read FSysData Write FSysData;
Public Public
Procedure ShowException(E : Exception); override; Procedure ShowException(E : Exception); override;
@ -370,6 +369,7 @@ Type
procedure RunDaemons; procedure RunDaemons;
procedure UnInstallDaemons; procedure UnInstallDaemons;
procedure CreateForm(InstanceClass: TComponentClass; var Reference); virtual; procedure CreateForm(InstanceClass: TComponentClass; var Reference); virtual;
Property OnRun : TNotifyEvent Read FOnRun Write FOnRun;
Property Logger : TEventLog Read FLogger; Property Logger : TEventLog Read FLogger;
Property GUIMainLoop : TGuiLoopEvent Read FGUIMainLoop Write FGuiMainLoop; Property GUIMainLoop : TGuiLoopEvent Read FGUIMainLoop Write FGuiMainLoop;
Property GuiHandle : THandle Read FGUIHandle Write FGUIHandle; Property GuiHandle : THandle Read FGUIHandle Write FGUIHandle;
@ -418,6 +418,7 @@ Var
SStatus : Array[1..5] of string = SStatus : Array[1..5] of string =
('Stop','Pause','Continue','Interrogate','Shutdown'); ('Stop','Pause','Continue','Interrogate','Shutdown');
DefaultDaemonOptions : TDaemonOptions = [doAllowStop,doAllowPause]; DefaultDaemonOptions : TDaemonOptions = [doAllowStop,doAllowPause];
AppClass : TCustomDaemonApplicationClass;
implementation implementation
@ -429,7 +430,6 @@ Var
MapperClass : TCustomDaemonMapperClass; MapperClass : TCustomDaemonMapperClass;
DesignMapper : TCustomDaemonMapper; DesignMapper : TCustomDaemonMapper;
DaemonClasses : TStringList; DaemonClasses : TStringList;
AppClass : TCustomDaemonApplicationClass;
{$ifdef svcdebug} {$ifdef svcdebug}
Var Var