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

git-svn-id: trunk@19536 -

packages/fcl-base/src/eventlog.pp

@@ -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;