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

* Moved TEventType from eventlog.pp tot sysutils

Browse Source 
* Added empty TCustomApplication.Log method

git-svn-id: trunk@14960 -
This commit is contained in:
joost 2010-03-01 13:15:36 +00:00
parent f8e6a86e32
commit 151fab0548
3 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-base/src/custapp.pp
View File

@ -63,6 +63,7 @@ Type
Function CheckOptions(Const ShortOptions : String; Const LongOpts : String) : String; Function CheckOptions(Const ShortOptions : String; Const LongOpts : String) : String;
Procedure GetEnvironmentList(List : TStrings;NamesOnly : Boolean); Procedure GetEnvironmentList(List : TStrings;NamesOnly : Boolean);
Procedure GetEnvironmentList(List : TStrings); Procedure GetEnvironmentList(List : TStrings);
Procedure Log(EventType : TEventType; Msg : String); virtual;
// Delphi properties // Delphi properties
property ExeName: string read GetExeName; property ExeName: string read GetExeName;
property HelpFile: string read FHelpFile write FHelpFile; property HelpFile: string read FHelpFile write FHelpFile;
@ -222,6 +223,12 @@ begin
// Do nothing. Override in descendent classes. // Do nothing. Override in descendent classes.
end; end;
Procedure TCustomApplication.Log(EventType : TEventType; Msg : String);
begin
// Do nothing. Override in descendent classes.
end;
constructor TCustomApplication.Create(AOwner: TComponent); constructor TCustomApplication.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);

1
packages/fcl-base/src/eventlog.pp
View File

@ -23,7 +23,6 @@ uses SysUtils,Classes;
Type Type
TEventLog = Class; TEventLog = Class;
TEventType = (etCustom,etInfo,etWarning,etError,etDebug);
TLogType = (ltSystem,ltFile); TLogType = (ltSystem,ltFile);
TLogCodeEvent = Procedure (Sender : TObject; Var Code : DWord) of Object; TLogCodeEvent = Procedure (Sender : TObject; Var Code : DWord) of Object;
TLogCategoryEvent = Procedure (Sender : TObject; Var Code : Word) of Object; TLogCategoryEvent = Procedure (Sender : TObject; Var Code : Word) of Object;

3
rtl/objpas/sysutils/osutilsh.inc
View File

@ -52,6 +52,9 @@ Type
TGetTempDirEvent = Function (Global : Boolean) : String; TGetTempDirEvent = Function (Global : Boolean) : String;
TGetTempFileEvent = Function (Const Dir,Prefix : String) : String; TGetTempFileEvent = Function (Const Dir,Prefix : String) : String;
Type
TEventType = (etCustom,etInfo,etWarning,etError,etDebug);
Var Var
OnGetVendorName : TGetVendorNameEvent; OnGetVendorName : TGetVendorNameEvent;
OnGetApplicationName : TGetAppNameEvent; OnGetApplicationName : TGetAppNameEvent;