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

* added ltnone logtype. Mantis #20544

Browse Source 
git-svn-id: trunk@19535 -
This commit is contained in:
marco 2011-10-24 07:48:51 +00:00
parent 85b52cf8c3
commit 7daf8a19c2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,7 +23,7 @@ uses SysUtils,Classes;
Type Type
TEventLog = Class; TEventLog = Class;
TLogType = (ltSystem,ltFile); TLogType = (ltSystem,ltFile,ltNone);
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;
@ -181,6 +181,7 @@ begin
Case FlogType of Case FlogType of
ltFile : WriteFileLog(EventType,Msg); ltFile : WriteFileLog(EventType,Msg);
ltSystem : WriteSystemLog(EventType,Msg); ltSystem : WriteSystemLog(EventType,Msg);
ltNone : ;
end; end;
end; end;