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

* reverted earlier change to logeventype on Michael's request.

Browse Source 
git-svn-id: trunk@19536 -
This commit is contained in:
marco 2011-10-24 08:06:14 +00:00
parent 7daf8a19c2
commit 4d00966be2
1 changed files with 1 additions and 2 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
TEventLog = Class;
TLogType = (ltSystem,ltFile,ltNone);
TLogType = (ltSystem,ltFile);
TLogCodeEvent = Procedure (Sender : TObject; Var Code : DWord) of Object;
TLogCategoryEvent = Procedure (Sender : TObject; Var Code : Word) of Object;
@ -181,7 +181,6 @@ begin
Case FlogType of
ltFile : WriteFileLog(EventType,Msg);
ltSystem : WriteSystemLog(EventType,Msg);
ltNone : ;
end;
end;