paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 09:49:27 +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;
Procedure GetEnvironmentList(List : TStrings;NamesOnly : Boolean);
Procedure GetEnvironmentList(List : TStrings);
Procedure Log(EventType : TEventType; Msg : String); virtual;
// Delphi properties
property ExeName: string read GetExeName;
property HelpFile: string read FHelpFile write FHelpFile;
@ -222,6 +223,12 @@ begin
// Do nothing. Override in descendent classes.
end;
Procedure TCustomApplication.Log(EventType : TEventType; Msg : String);
begin
// Do nothing. Override in descendent classes.
end;
constructor TCustomApplication.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

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

@ -23,7 +23,6 @@ uses SysUtils,Classes;
Type
TEventLog = Class;
TEventType = (etCustom,etInfo,etWarning,etError,etDebug);
TLogType = (ltSystem,ltFile);
TLogCodeEvent = Procedure (Sender : TObject; Var Code : DWord) 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;
TGetTempFileEvent = Function (Const Dir,Prefix : String) : String;
Type
TEventType = (etCustom,etInfo,etWarning,etError,etDebug);
Var
OnGetVendorName : TGetVendorNameEvent;
OnGetApplicationName : TGetAppNameEvent;