anchor.diff:  
     if TestResults.ErrorCount > 0  then
     begin
  -    FConsoleWriter.SetColour(ccBrightRed);
  +    SetConsoleErrorColor();
       FConsoleWriter.WriteLn;
       FConsoleWriter.WriteLn('Tests With Errors');
       FConsoleWriter.WriteLn;
  -    FConsoleWriter.SetColour(ccDefault);
  +    SetConsoleDefaultColor();
   
       for testResult in TestResults.GetResults do
       begin
         if testResult.ResultType = TTestResultType.Error then
         begin
  -        FConsoleWriter.SetColour(ccBrightRed);
  +        SetConsoleErrorColor();
           FConsoleWriter.WriteLn('  ' + testResult.Test.FullName);
  -        FConsoleWriter.SetColour(ccDefault);
  +        SetConsoleDefaultColor();
           FConsoleWriter.WriteLn('  Message: ' + testResult.Message);
           FConsoleWriter.WriteLn;
         end;
  
positive.code:   if FQuietMode then
      exit;
  
    FConsoleWriter.SetColour(ccBrightPurple);
    FConsoleWriter.WriteLn('Running Setup for : ' + Test.Name);
  end;
  
  
negative.code:   FConsoleWriter.WriteLn('         License - http://www.apache.org/licenses/LICENSE-2.0         ');
    FConsoleWriter.WriteLn('**********************************************************************');
    FConsoleWriter.WriteLn();
    SetConsoleDefaultColor();
    FConsoleWriter.Indent(1);
  end;
  
  procedure TDUnitXConsoleLogger.OnTestWarning(const threadId: Cardinal; const AWarning: ITestResult);
  begin
    if FQuietMode then
      FConsoleWriter.Write('W');
  end;
  
  procedure TDUnitXConsoleLogger.SetConsoleDefaultColor();
  begin
    FConsoleWriter.SetColour(ccDefault);
  end;
  
  procedure TDUnitXConsoleLogger.SetConsoleErrorColor();
  begin
    FConsoleWriter.SetColour(ccBrightRed, ccBlack);
  end;
  
  procedure TDUnitXConsoleLogger.SetConsolePassColor();
  begin
    FConsoleWriter.SetColour(ccBrightGreen, ccBlack);
  end;
  
  procedure TDUnitXConsoleLogger.SetConsoleRunTestColor();
  begin
    FConsoleWriter.SetColour(ccBrightAqua, ccBlack);
  end;
  
  procedure TDUnitXConsoleLogger.SetConsoleSetupTestColor();
  begin
    FConsoleWriter.SetColour(ccBrightPurple, ccBlack);
  end;
  
  procedure TDUnitXConsoleLogger.SetConsoleSummaryColor();
  begin
    FConsoleWriter.SetColour(ccBrightWhite, ccBlack);
  end;
  
  procedure TDUnitXConsoleLogger.SetConsoleWarningColor();
  begin
    FConsoleWriter.SetColour(ccBrightYellow, ccBlack);
  end;
  
  end.
  