TGUITestRunner

type TGUITestRunner = class(TForm,ITestListener)

  ActCloseForm: TAction;

  ActCopyErrorMsg: TAction;

  ActCheckCurrentSuite: TAction;

  ActCheckAll: TAction;

  ActSaveResults: TAction;

  ActCopyTextToClipboard: TAction;

  ActRunHighlightedTest: TAction;

  ActUncheckAll: TAction;

  ActUncheckCurrentSuite: TAction;

  ilNodeStates: TImageList;

  MainMenu1: TMainMenu;

  MemoLog: TMemo;

  MemoDetails: TMemo;

  MenuItem10: TMenuItem;

  MenuItem11: TMenuItem;

  MenuItem12: TMenuItem;

  MenuItem13: TMenuItem;

  MenuItem14: TMenuItem;

  MenuItem15: TMenuItem;

  MenuItem16: TMenuItem;

  MenuItem17: TMenuItem;

  MenuItem18: TMenuItem;

  MenuItem19: TMenuItem;

  MenuItem2: TMenuItem;

  MenuItemEdit: TMenuItem;

  MenuItem3: TMenuItem;

  MenuItemTestTree: TMenuItem;

  MenuItemActions: TMenuItem;

  miExpandNodes: TMenuItem;

  miCollapseNodes: TMenuItem;

  MenuItem4: TMenuItem;

  MenuItem5: TMenuItem;

  MenuItem6: TMenuItem;

  MenuItem7: TMenuItem;

  MenuItem8: TMenuItem;

  MenuItem9: TMenuItem;

  miRunTest: TMenuItem;

  miShowfailureMsg: TMenuItem;

  pbBar: TPaintBox;

  PopupResults: TPopupMenu;

  RunAction: TAction;

  ActionListMain: TActionList;

  Splitter2: TSplitter;

  TestTreeImageList: TImageList;

  MainImageList: TImageList;

  MenuItem1: TMenuItem;

  MenuItemCopyText: TMenuItem;

  PopupTree: TPopupMenu;

  PopupDetails: TPopupMenu;

  SaveDialog: TSaveDialog;

  Splitter1: TSplitter;

  TestTree: TTreeView;

  SynXMLSyn1: TSynXMLSyn;

  PageControl1: TPageControl;

  Panel1: TPanel;

  Panel2: TPanel;

  ToolBar1: TToolBar;

  ToolButton1: TToolButton;

  ToolButton2: TToolButton;

  tsTestTree: TTabSheet;

  tsResultsXML: TTabSheet;

  XMLSynEdit: TSynEdit;

  actNextError: TAction;

  MenuItem20: TMenuItem;

  actPrevError: TAction;

  MenuItem21: TMenuItem;

  MenuItem22: TMenuItem;

  MenuItem23: TMenuItem;

  procedure ActCheckAllExecute();

  procedure ActCheckCurrentSuiteExecute();

  procedure ActCloseFormExecute();

  procedure ActCopyTextToClipboardExecute();

  procedure ActCopyTextToClipboardUpdate();

  procedure ActSaveResultsExecute();

  procedure ActRunHighlightedTestExecute();

  procedure ActUncheckAllExecute();

  procedure ActRunHighLightedTestUpdate();

  procedure ActUncheckCurrentSuiteExecute();

  procedure FormDestroy();

  procedure miCollapseNodesClick();

  procedure miExpandNodesClick();

  procedure RunExecute();

  procedure GUITestRunnerCreate();

  procedure GUITestRunnerShow();

  procedure TestTreeChange();

  procedure TestTreeCreateNodeClass();

  procedure TestTreeMouseDown();

  procedure TestTreeSelectionChanged();

  procedure ActCopyErrorMsgExecute();

  procedure ActCopyErrorMsgUpdate();

  procedure pbBarPaint();

  procedure actNextErrorExecute();

  procedure actPrevErrorExecute();

protected

  FGuiTestRunnerHandlers: array [TGuiTestRunnerHandlerType] of TMethodList;

public

  procedure AddFailure();

  procedure AddError();

  procedure StartTest();

  procedure EndTest();

  procedure RunTest(); virtual;

  procedure StartTestSuite();

  procedure EndTestSuite();

  procedure NextError;

  procedure PrevError;

  destructor Destroy;

  class procedure AddHandlerBeforeRunTest();

  class procedure RemoveHandlerBeforeRunTest();

  class procedure AddHandlerAfterRunTest();

  class procedure RemoveHandlerAfterRunTest();

end;

TGUITestRunner

TObject,ITestListener