Added a friendly name property to the Writer objects

Resolves #29

Signed-off-by: jachguate <[email protected]>

src/UjachLogMgr.pas

@@ -138,8 +138,11 @@   TjachLogWriter = class
     function GetLogLevel(Index: TjachLogTopicIndex): TLogLevel;
     procedure SetLogLevel(Index: TjachLogTopicIndex; const Value: TLogLevel);
     procedure SetDebugVerbosityThreshold(const Value: Byte);
+    procedure SetFriendlyName(const Value: string);
   protected
     const WWMAX_LEN = 255;
+    var
+      FFriendlyName: string;
     function WordWrap(const S: string; MaxLen: UInt16 = WWMAX_LEN): TStringDynArray; virtual;
   public
     constructor Create(ADefaultTopicLevel: TLogLevel = llAll); virtual;
@@ -157,6 +160,7 @@   TjachLogWriter = class
     property Thread: TThread read FThread;
     property LogLevel[Index: TjachLogTopicIndex]: TLogLevel read GetLogLevel write SetLogLevel;
     property DebugVerbosityThreshold: Byte read FDebugVerbosityThreshold write SetDebugVerbosityThreshold;
+    property FriendlyName: string read FFriendlyName write SetFriendlyName;
   end;
 
   TjachLogWriterClass = class of TjachLogWriter;
@@ -541,6 +545,7 @@ constructor TjachLogWriter.Create;
   FLock := TCriticalSection.Create;
   for I := Low(FLogLevel) to High(FLogLevel) do
     FLogLevel[I] := ADefaultTopicLevel;
+  FFriendlyName := Self.ClassName;
 end;
 
 destructor TjachLogWriter.Destroy;
@@ -575,6 +580,11 @@ procedure TjachLogWriter.SetDebugVerbosityThreshold(const Value: Byte);
   FDebugVerbosityThreshold := Value;
 end;
 
+procedure TjachLogWriter.SetFriendlyName(const Value: string);
+begin
+  FFriendlyName := Value;
+end;
+
 procedure TjachLogWriter.SetIsActive(const Value: Boolean);
 begin
   FIsActive := Value;

src/ujachLogToConsole.pas

@@ -44,6 +44,7 @@ interface
 type
   TjachLogToConsole = class(TjachLogWriter)
   public
+    constructor Create(ADefaultTopicLevel: TLogLevel = llAll); override;
     procedure Write(ATopic: TjachLogTopicIndex; ASeverity: TLogSeverity;
       ADebugVerbosity: Byte; const S, AIndentSpaces: string;
       const AThreadID: TThreadID; const ATimeStamp: TDateTime); override;
@@ -61,6 +62,12 @@ implementation
 
 { TjachLogToConsole }
 
+constructor TjachLogToConsole.Create(ADefaultTopicLevel: TLogLevel);
+begin
+  inherited;
+  FFriendlyName := 'Console';
+end;
+
 procedure TjachLogToConsole.Write(ATopic: TjachLogTopicIndex;
   ASeverity: TLogSeverity; ADebugVerbosity: Byte; const S, AIndentSpaces: string;
   const AThreadID: TThreadID; const ATimeStamp: TDateTime);

src/ujachLogToDisk.pas

@@ -121,6 +121,7 @@ procedure TjachLogToDisk.CloseLogChannel;
 constructor TjachLogToDisk.Create(ADefaultTopicLevel: TLogLevel = llAll);
 begin
   inherited;
+  FFriendlyName := 'Disk';
   FMaxFileSize := 20 * 1024 * 1024; //20MB
   FMaxLineSize := 255;
   FBasePath := GetDefaultBasePath;

src/ujachLogToFMXMemo.pas

@@ -110,6 +110,7 @@ procedure TjachLogToFMXMemo.CloseLogChannel;
 constructor TjachLogToFMXMemo.Create;
 begin
   inherited;
+  FFriendlyName := 'Screen';
   FEntries := TThreadedQueue<IjachLogEntry>.Create(32768, 0, 0);
   IsActive := False;
   if GetIsMainThread then

src/ujachLogToSysLogIndyUDP.pas

@@ -76,6 +76,7 @@ procedure TjachLogToSysLogIndyUDP.CloseLogChannel;
 constructor TjachLogToSysLogIndyUDP.Create;
 begin
   inherited;
+  FFriendlyName := 'SysLog';
   IsActive := False;
   FIdSysLog := TIdSysLog.Create(nil);
   FIdSysLogMessage := TIdSysLogMessage.Create(nil);

src/ujachLogToVCLRichEdit.pas

@@ -123,6 +123,7 @@ procedure TjachLogToVCLRichEdit.CloseLogChannel;
 constructor TjachLogToVCLRichEdit.Create;
 begin
   inherited;
+  FFriendlyName := 'Screen';
   FEntries := TThreadedQueue<IjachLogEntry>.Create(32768, 0, 0);
   IsActive := False;
   if GetIsMainThread then