uutlLogger: publish TutlLogger.FormatTime

uutlLogger.pas

@@ -53,7 +53,6 @@ type
     fConsumersLock: TCriticalSection;
     fConsumers: array[TutlLogLevel] of TutlLogConsumerList;
   protected
-    class function FormatTime(const aTime:TDateTime): string;
     function FormatSender(const aSender: TObject): String;
     procedure InternalLog(const aLevel:TutlLogLevel; const aSender: TObject; const aMessage: String; const aParams: array of const); overload;
     procedure InternalLog(const aLevel:TutlLogLevel; const aSender: String; const aMessage: String; const aParams: array of const); overload;
@@ -61,6 +60,7 @@ type
     procedure RegisterConsumer(const aConsumer: IutlLogConsumer; const aFilter:TutlLogLevels=utlLogLevel_Any);
     procedure UnRegisterConsumer(const aConsumer: IutlLogConsumer; const aFilter:TutlLogLevels=utlLogLevel_Any);
 
+    class function FormatTime(const aTime:TDateTime): string;
     class function FormatLine(const aTime:TDateTime; const aLevel: TutlLogLevel; const aSender: string; const aMessage: String): string;
 
     procedure Debug(const aSender: TObject; const aMessage: String; const aParams: array of const); overload;