anchor.diff:      FName: String;
       {$IFDEF MSWINDOWS}
       FMessageHandle: HWND;
  +    FRaiseOnLoggerEmptyMessage: Boolean;
       procedure DoMainThreadWork(var AMsg: TMessage);
       {$ENDIF}
       procedure SetWorking(pvWorking:Boolean);
  
positive.code: var
    lvPData:TLogDataObject;
  begin
    SetCurrentThreadInfo(Name +  ':logMessage START');
    try
      if not FEnable then exit;
  
negative.code:     /// </summary>
      property LogFilter: TLogLevels read FLogFilter write FLogFilter;
      property Name: String read FName write FName;
  
      property RaiseOnLoggerEmptyMessage: Boolean read FRaiseOnLoggerEmptyMessage
          write FRaiseOnLoggerEmptyMessage;
  
  
  
  
  
  