anchor.diff:        procedure ReleaseBuilder;
         procedure WriteLine(const S : String); virtual; abstract;
       protected
  -      function FormatLogMessage(Severity : TLogMsgSeverity; const Msg : String) : String; virtual;
  -      function FormatLogSectionBeginning(const Msg : String) : String; virtual;
  -      function FormatLogSectionEnding(const Msg : String) : String; virtual;
  -
  -      function FormatCurrentThread : String; virtual;
  -      function FormatSeverity(Severity : TLogMsgSeverity) : String; virtual;
  -      function FormatTimestamp(Timestamp : TLogTimestamp) : String; virtual;
  -      function GetLogRecordPreamble(Instant : TLogTimestamp) : String; virtual;
  -      function IndentText(const Text, PaddingStr : String; LeftPadding : Word; ExceptFirstLine : Boolean) : String;
  +      function  FormatLogMessage(PreambleLength : Word; Severity : TLogMsgSeverity; const Msg : String) : String; virtual;
  +      function  FormatLogSectionBeginning(PreambleLength : Word; const Msg : String) : String; virtual;
  +      function  FormatLogSectionEnding(PreambleLength : Word; const Msg : String) : String; virtual;
  +
  +      function  FormatCurrentThread : String; virtual;
  +      function  FormatPreamble(Instant : TLogTimestamp) : String; virtual;
  +      function  FormatSeverity(Severity : TLogMsgSeverity) : String; virtual;
  +      function  FormatTimestamp(Timestamp : TLogTimestamp) : String; virtual;
  +      function  IndentText(const Text, PaddingStr : String; LeftPadding : Word; ExceptFirstLine : Boolean) : String;
       public
         constructor Create; override;
         destructor Destroy; override;
  
positive.code:   Result := Result.PadRight(Max(RSPTOMainThreadName.Length, High(TThreadID).ToString.Length));
  end;
  
  function TPlainTextOutput.FormatLogMessage(Severity : TLogMsgSeverity; const Msg : String) : String;
  begin
    // TODO: implement {TPlainTextOutput.FormatLogMessage}
  end;
  
  function TPlainTextOutput.FormatLogSectionBeginning(const Msg : String) : String;
  begin
    // TODO: implement {TPlainTextOutput.FormatLogSectionBeginning}
  end;
  
  function TPlainTextOutput.FormatLogSectionEnding(const Msg : String) : String;
  begin
    // TODO: implement {TPlainTextOutput.FormatLogSectionEnding}
  end;
  
  function TPlainTextOutput.FormatSeverity(Severity : TLogMsgSeverity) : String;
  begin
    // TODO: implement {TPlainTextOutput.FormatSeverity}
  
negative.code: function TPlainTextOutput.FormatTimestamp(Timestamp : TLogTimestamp) : String;
  begin
    Result := DateTimeToStr(Timestamp);
  end;
  
  function TPlainTextOutput.IndentText(const Text, PaddingStr : String; LeftPadding : Word;
  