anchor.diff:    tvTests.Selection.Expand;
   end;
   
  +procedure TGUITestRunnerForm.ResetCounters;
  +begin
  +  lblRuns.Text      := '---';
  +  lblFailures.Text  := '---';
  +  lblErrors.Text    := '---';
  +  failureCounter    := 0;
  +  errorCounter      := 0;
  +  testsCounter      := 0;
  +  skipsCounter      := 0;
  +end;
  +
  +procedure TGUITestRunnerForm.UpdateCounters;
  +begin
  +  lblFailures.Text  := IntToStr(failureCounter);
  +  lblErrors.Text    := IntToStr(errorCounter);
  +//  testsCounter      := 0;
  +//  skipsCounter      := 0;
  +end;
  +
   constructor TGUITestRunnerForm.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  
positive.code:       node.ImageIndex := 2;
    end;
    Inc(errorCounter);
    barColor := clRed;
  
    tvTests.Invalidate;
  
negative.code: 
  procedure TGUITestRunnerForm.FindByData(ANode: TfpgTreeNode; var AFound: boolean);
  begin
  //  writeln('...', ANode.Text);
    AFound := TTest(ANode.Data) = temptest;
  //  if AFound then
  //    MemoLog('Found Node ' + ANode.Text);
  