anchor.diff:    Node: TfpgTreeNode;
   begin
   //  MemoLog('StartTest');
  +
     Node := FindNode(ATest);
     if Assigned(Node) then
     begin
  -    Node.TextColor := clBlue;
  +    Node.Clear;
  +//    Node.TextColor := clBlue;
       tvTests.Invalidate;
       fpgApplication.ProcessMessages;
     end;
  +
   end;
   
   procedure TGUITestRunnerForm.EndTest(ATest: TTest);
  
positive.code: {@VFD_NEWFORM_IMPL}
  
  procedure TGUITestRunnerForm.AddFailure(ATest: TTest; AFailure: TTestFailure);
  begin
    MemoLog('Failure in ' + ATest.TestName + ': ' + AFailure.ExceptionMessage);
  end;
  
  procedure TGUITestRunnerForm.AddError(ATest: TTest; AError: TTestFailure);
  begin
    MemoLog('Error in ' + ATest.TestName + ': ' + AError.ExceptionMessage);
  end;
  
  procedure TGUITestRunnerForm.StartTest(ATest: TTest);
  
negative.code:     skipsCounter: Integer;
      testSuite: TTest;
      temptest: TTest;
      barColor: TfpgColor;
      // ITestListener
      procedure AddFailure(ATest: TTest; AFailure: TTestFailure);
      procedure AddError(ATest: TTest; AError: TTestFailure);
  