object GUITestRunner: TGUITestRunner
  Left = 188
  Top = 160
  Width = 485
  Height = 478
  ActiveControl = TestTree
  Caption = 'DUnit: An Xtreme testing framework'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 0
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    08222D8000000008223DDDDD800000222DDDDDDDDD0008222DDDDDDDDD800222
    3DDDDDDDDDD082222DDDDDDDDDD8222222DDDDDDDDDD222222233DDDDDDD2222
    2222223DDDDD222222222223DDDD822222222222DDD80222222222223DD00822
    22222222DD80002222222223DD0000082222222D80000000082223700000F81F
    0000E0070000C003000080010000800100000000000000000000000000000000
    000000000000000000008001000080010000C0030000E0070000F81F0000}
  Menu = MainMenu
  ParentFont = False
  Position = poDefaultPosOnly
  Scaled = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  object BodyPanel: TPanel
    Left = 0
    Top = 0
    Width = 485
    Height = 455
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 2
    Caption = 'BodyPanel'
    TabOrder = 0
    object ErrorBoxSplitter: TSplitter
      Left = 2
      Top = 389
      Width = 481
      Height = 6
      Cursor = crVSplit
      Align = alBottom
      Constraints.MaxHeight = 6
      Constraints.MinHeight = 6
      OnMoved = ErrorBoxSplitterMoved
    end
    object TopPanel: TPanel
      Left = 2
      Top = 2
      Width = 481
      Height = 387
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object ResultsSplitter: TSplitter
        Left = 0
        Top = 201
        Width = 481
        Height = 5
        Cursor = crVSplit
        Align = alBottom
      end
      object TreePanel: TPanel
        Left = 0
        Top = 0
        Width = 481
        Height = 201
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        Caption = 'TreePanel'
        Constraints.MinHeight = 100
        TabOrder = 0
        object lblTestTree: TLabel
          Left = 2
          Top = 31
          Width = 477
          Height = 19
          Align = alTop
          AutoSize = False
          Caption = 'Test Hi&erarchy:'
          FocusControl = TestTree
          Layout = tlCenter
        end
        object TestTree: TTreeView
          Left = 2
          Top = 50
          Width = 477
          Height = 149
          Hint = 'Hierarchy of test cases. Checked test cases will be run.'
          Align = alClient
          Columns = <>
          Images = RunImages
          Items.Data = {
            020000001E000000000000000000000000000000000000000000000002000000
            0554657374312000000000000000000000000000000000000000000000000000
            0000075375625465737423000000000000000000000000000000000000000000
            0000000000000A53756254657374312E321E0000000000000000000000000000
            00000000000000000000000000055465737432}
          Indent = 19
          PopupMenu = pmTestTree
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          OnChange = TestTreeChange
          OnClick = TestTreeClick
          OnKeyPress = TestTreeKeyPress
        end
        object ToolBar1: TToolBar
          Left = 2
          Top = 2
          Width = 477
          Height = 29
          ButtonHeight = 23
          Caption = 'ToolBar'
          EdgeBorders = [ebTop, ebBottom]
          Flat = True
          Images = ActionsImages
          TabOrder = 1
          object SelectAllButton: TToolButton
            HelpType = htContext
            Left = 1
            Top = 4
            Height = 23
            Action = SelectAllAction
            Caption = 'Select &All'
          end
          object DeselectAllButton: TToolButton
            HelpType = htContext
            Left = 24
            Top = 4
            Height = 23
            Action = DeselectAllAction
            Caption = '&Deselect All'
          end
          object ToolButton1: TToolButton
            Left = 47
            Top = 4
            Width = 8
            Height = 23
            Style = tbsSeparator
            Caption = 'ToolButton1'
            ImageIndex = 5
          end
          object SelectFailedButton: TToolButton
            HelpType = htContext
            Left = 55
            Top = 4
            Height = 23
            Action = SelectFailedAction
            Caption = 'Select Fai&led'
          end
          object ToolButton2: TToolButton
            Left = 78
            Top = 4
            Width = 8
            Height = 23
            Style = tbsSeparator
            Caption = 'ToolButton2'
            ImageIndex = 5
          end
          object SelectCurrentButton: TToolButton
            HelpType = htContext
            Left = 86
            Top = 4
            Height = 23
            Action = SelectCurrentAction
            Caption = 'Select &Current'
          end
          object DeselectCurrentButton: TToolButton
            HelpType = htContext
            Left = 109
            Top = 4
            Height = 23
            Action = DeselectCurrentAction
            Caption = 'Deselect C&urrent'
          end
          object ToolButton3: TToolButton
            Left = 132
            Top = 4
            Width = 8
            Height = 23
            Style = tbsSeparator
            Caption = 'ToolButton3'
            ImageIndex = 4
          end
          object ToolButton4: TToolButton
            HelpType = htContext
            Left = 140
            Top = 4
            Height = 23
            Action = RunAction
            Caption = '&Run'
          end
          object ToolButton5: TToolButton
            HelpType = htContext
            Left = 186
            Top = 4
            Height = 23
            Action = StopAction
            Caption = '&Stop'
          end
          object RunSelectedTestToolButton: TToolButton
            HelpType = htContext
            Left = 163
            Top = 4
            Height = 23
            Action = RunSelectedTestAction
            Caption = 'Run selected test'
          end
        end
      end
      object ResultsPanel: TPanel
        Left = 0
        Top = 206
        Width = 481
        Height = 181
        Align = alBottom
        BevelOuter = bvNone
        BorderWidth = 2
        Caption = 'ResultsPanel'
        TabOrder = 1
        object ProgressPanel: TPanel
          Left = 2
          Top = 2
          Width = 477
          Height = 43
          Align = alTop
          BevelOuter = bvLowered
          BorderWidth = 4
          Caption = 'ProgressPanel'
          TabOrder = 0
          object TopProgressPanel: TPanel
            Left = 5
            Top = 5
            Width = 467
            Height = 17
            Align = alTop
            BevelOuter = bvNone
            BorderWidth = 2
            Caption = 'TopProgressPanel'
            TabOrder = 0
            object ProgressBar: TProgressBar
              Left = 54
              Top = 2
              Width = 411
              Height = 13
              Hint = 'Shows the proportion of tests run'
              Align = alClient
              Step = 1
            end
            object pnlProgresslabel: TPanel
              Left = 2
              Top = 2
              Width = 52
              Height = 13
              Align = alLeft
              Alignment = taRightJustify
              BevelOuter = bvNone
              Caption = 'Progress: '
              TabOrder = 0
            end
          end
          object ScorePanel: TPanel
            Left = 5
            Top = 22
            Width = 467
            Height = 16
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 2
            Caption = 'ScorePanel'
            TabOrder = 1
            object ScoreBar: TProgressBar
              Left = 54
              Top = 2
              Width = 355
              Height = 12
              Hint = 'Shows the proportion of successful tests'
              Align = alClient
              BorderWidth = 2
              Step = 1
            end
            object LbProgress: TLabel
              Left = 409
              Top = 2
              Width = 56
              Height = 12
              Align = alRight
              Alignment = taRightJustify
              AutoSize = False
              Caption = 'LbProgress'
            end
            object ScoreLabel: TPanel
              Left = 2
              Top = 2
              Width = 52
              Height = 12
              Align = alLeft
              Alignment = taRightJustify
              BevelOuter = bvNone
              Caption = 'Score: '
              TabOrder = 0
            end
          end
        end
        object ResultsView: TListView
          Left = 2
          Top = 45
          Width = 477
          Height = 46
          Hint = 'Shows statistics about the current/last run'
          Align = alTop
          Columns = <
            item
              Tag = 0
              Width = 8
            end
            item
              Alignment = taRightJustify
              Caption = 'Tests'
              MaxWidth = 180
              Tag = 0
              Width = 80
            end
            item
              Alignment = taRightJustify
              Caption = 'Run'
              MaxWidth = 180
              Tag = 0
              Width = 85
            end
            item
              Alignment = taRightJustify
              Caption = 'Failures'
              MaxWidth = 180
              Tag = 0
              Width = 85
            end
            item
              Alignment = taRightJustify
              Caption = 'Errors'
              MaxWidth = 200
              Tag = 0
              Width = 85
            end
            item
              Alignment = taRightJustify
              AutoSize = True
              Caption = 'Elapsed'
              MaxWidth = 200
              Tag = 0
              Width = 50
            end>
          Font.Color = clText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 0
          Items.Data = {
            3C0000000100000000000000FFFFFFFFFFFFFFFF050000000000000000013101
            32013301340135FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00}
          ParentFont = False
          TabOrder = 1
          ViewStyle = vsReport
        end
        object FailureListView: TListView
          Left = 2
          Top = 91
          Width = 477
          Height = 88
          Hint = 'Shows the list of failed tests'
          Align = alClient
          Columns = <
            item
              Caption = 'Test Name'
              MaxWidth = 400
              MinWidth = 100
              Tag = 0
              Width = 120
            end
            item
              Caption = 'Failure Type'
              MaxWidth = 200
              MinWidth = 100
              Tag = 0
              Width = 100
            end
            item
              Caption = 'Message'
              MaxWidth = 800
              MinWidth = 200
              Tag = 0
              Width = 200
            end
            item
              AutoSize = True
              Caption = 'Location'
              MinWidth = 50
              Tag = 0
              Width = 50
            end>
          Constraints.MinHeight = 50
          RowSelect = True
          PopupMenu = pmErrorMessage
          ReadOnly = True
          TabOrder = 2
          ViewStyle = vsReport
          OnClick = FailureListViewClick
          OnSelectItem = FailureListViewSelectItem
        end
      end
    end
    object ErrorBoxPanel: TPanel
      Left = 2
      Top = 395
      Width = 481
      Height = 58
      Align = alBottom
      BevelOuter = bvNone
      BorderWidth = 2
      Caption = ' '
      Color = clBase
      Constraints.MaxHeight = 200
      TabOrder = 1
      OnResize = ErrorBoxPanelResize
      object FailureTitlePanel: TPanel
        Left = 2
        Top = 2
        Width = 477
        Height = 18
        Align = alTop
        BevelOuter = bvNone
        Caption = 'FailureTitlePanel'
        TabOrder = 1
        object TestNameLabel: TLabel
          Left = 0
          Top = 0
          Width = 75
          Height = 18
          Align = alLeft
          Caption = 'TestNameLabel: '
          Color = clWhite
          Font.Color = clText
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 0
          ParentColor = False
          ParentFont = False
          Layout = tlCenter
        end
        object ErrorTypeLabel: TLabel
          Left = 75
          Top = 0
          Width = 402
          Height = 18
          Align = alClient
          AutoSize = False
          Caption = 'ErrorTypeLabel'
          Color = clWhite
          Font.Color = clFuchsia
          Font.Height = 11
          Font.Name = 'MS Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 0
          ParentColor = False
          ParentFont = False
          Layout = tlCenter
        end
      end
      object MessageLabel: TLabel
        Left = 2
        Top = 20
        Width = 477
        Height = 36
        Align = alClient
        AutoSize = False
        Caption = 'MessageLabel'
        Color = clWhite
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 0
        ParentColor = False
        ParentFont = False
        Layout = tlCenter
      end
    end
  end
  object StateImages: TImageList
    Left = 214
    Top = 68
    Bitmap = {
      [encoded data, 6656 characters]
      0000000000000000}
  end
  object RunImages: TImageList
    BkColor = clWhite
    Width = 36
    Left = 272
    Top = 68
    Bitmap = {
      [encoded data, 43648 characters]
      000000000000FFFF}
  end
  object DialogActions: TActionList
    Images = ActionsImages
    Left = 328
    Top = 16
    object RunAction: TAction
      Category = 'Commands'
      Caption = '&Run'
      Hint = 'Run selected tests'
      ImageIndex = 7
      ShortCut = 13
      OnExecute = RunActionExecute
      OnUpdate = RunActionUpdate
    end
    object ExitAction: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Close'
      ImageIndex = 6
      ShortCut = 27
      OnExecute = ExitActionExecute
    end
    object StopAction: TAction
      Category = 'Commands'
      Caption = '&Stop'
      Hint = 'Stop'
      ImageIndex = 8
      ShortCut = 13
      OnExecute = StopActionExecute
      OnUpdate = StopActionUpdate
    end
    object SelectAllAction: TAction
      Category = 'TestTree'
      Caption = 'Select &All'
      Hint = 'Select all tests'
      ImageIndex = 0
      ShortCut = 16449
      OnExecute = SelectAllActionExecute
    end
    object Alt_R_RunAction: TAction
      Category = 'Commands'
      Caption = '&Run'
      Hint = 'Run selected tests'
      ImageIndex = 7
      ShortCut = 32850
      OnExecute = RunActionExecute
      OnUpdate = RunActionUpdate
    end
    object DeselectAllAction: TAction
      Category = 'TestTree'
      Caption = '&Deselect All'
      Hint = 'Deselect all tests'
      ImageIndex = 1
      ShortCut = 20487
      OnExecute = DeselectAllActionExecute
    end
    object Alt_S_StopAction: TAction
      Category = 'Commands'
      Caption = '&Stop'
      Hint = 'Stop'
      ImageIndex = 8
      ShortCut = 32851
      OnExecute = StopActionExecute
      OnUpdate = StopActionUpdate
    end
    object SelectFailedAction: TAction
      Category = 'TestTree'
      Caption = 'Select Fai&led'
      Hint = 'Select all failed tests'
      ImageIndex = 4
      ShortCut = 16454
      OnExecute = SelectFailedActionExecute
    end
    object SelectCurrentAction: TAction
      Category = 'TestTree'
      Caption = 'Select &Current'
      Hint = 'Select current test'
      ImageIndex = 2
      ShortCut = 24641
      OnExecute = SelectCurrentActionExecute
    end
    object DeselectCurrentAction: TAction
      Category = 'TestTree'
      Caption = 'Deselect C&urrent'
      Hint = 'Deselect current test'
      ImageIndex = 3
      ShortCut = 12295
      OnExecute = DeselectCurrentActionExecute
    end
    object SaveConfigurationAction: TAction
      Category = 'File'
      Caption = '&Save Configuration'
      ShortCut = 16467
      OnExecute = SaveConfigurationActionExecute
    end
    object AutoSaveAction: TAction
      Category = 'Options'
      Caption = '&Auto Save Configuration'
      Checked = True
      OnExecute = AutoSaveActionExecute
    end
    object RestoreSavedAction: TAction
      Category = 'File'
      Caption = '&Restore Saved Configuration'
      OnExecute = RestoreSavedActionExecute
    end
    object ErrorBoxVisibleAction: TAction
      Category = 'Options'
      Caption = '&Error Box Visible'
      Checked = True
      OnExecute = ErrorBoxVisibleActionExecute
    end
    object HideTestNodesAction: TAction
      Category = 'TestTree'
      Caption = '&Hide Test Nodes'
      ShortCut = 16456
      OnExecute = HideTestNodesActionExecute
    end
    object HideTestNodesOnOpenAction: TAction
      Category = 'Options'
      Caption = '&Hide Test Nodes On Open'
      OnExecute = HideTestNodesOnOpenActionExecute
    end
    object ExpandAllNodesAction: TAction
      Category = 'TestTree'
      Caption = 'Ex&pand All'
      ShortCut = 16464
      OnExecute = ExpandAllNodesActionExecute
    end
    object BreakOnFailuresAction: TAction
      Category = 'Options'
      Caption = '&Break on Failures'
      OnExecute = BreakOnFailuresActionExecute
    end
    object ShowTestedNodeAction: TAction
      Category = 'Options'
      Caption = '&Show Tested Node'
      Checked = True
      OnExecute = ShowTestedNodeActionExecute
    end
    object CopyMessageToClipboardAction: TAction
      Category = 'Edit'
      Caption = '&Copy Error Message to Clipboard'
      Enabled = False
      ShortCut = 24643
      OnUpdate = CopyMessageToClipboardActionUpdate
    end
    object UseRegistryAction: TAction
      Category = 'Options'
      Caption = 'UseRegistryAction'
      Visible = False
      OnExecute = UseRegistryActionExecute
    end
    object RunSelectedTestAction: TAction
      Category = 'TestTree'
      Caption = 'Run selected test'
      Hint = 'Run current test'
      ImageIndex = 10
      ShortCut = 4151
      OnExecute = RunSelectedTestActionExecute
      OnUpdate = RunSelectedTestActionUpdate
    end
  end
  object MainMenu: TMainMenu
    Images = ActionsImages
    Left = 392
    Top = 16
    object FileMenu: TMenuItem
      Caption = '&File'
      object SaveConfigurationItem: TMenuItem
        Action = SaveConfigurationAction
      end
      object RestoreSavedConfigurationItem: TMenuItem
        Action = RestoreSavedAction
      end
      object CloseItem: TMenuItem
        Action = ExitAction
        ShortCut = 32856
      end
    end
    object TestTreeMenu: TMenuItem
      Caption = 'Test &Tree'
      object SelectAllItem: TMenuItem
        Action = SelectAllAction
      end
      object DeselectAllItem: TMenuItem
        Action = DeselectAllAction
      end
      object SelectFailedItem: TMenuItem
        Action = SelectFailedAction
      end
      object SelectCurrent1: TMenuItem
        Action = SelectCurrentAction
      end
      object DeselectCurrent1: TMenuItem
        Action = DeselectCurrentAction
      end
      object TestTreeMenuSeparator: TMenuItem
        Caption = '-'
      end
      object CollapseLowestSuiteNodesItem: TMenuItem
        Action = HideTestNodesAction
      end
      object ExpandAllItem: TMenuItem
        Action = ExpandAllNodesAction
      end
    end
    object ViewMenu: TMenuItem
      Caption = '&Options'
      object AutoSaveItem: TMenuItem
        Action = AutoSaveAction
      end
      object HideErrorBoxItem: TMenuItem
        Action = ErrorBoxVisibleAction
      end
      object AutoChangeFocusItem: TMenuItem
        Caption = 'Auto Change &Focus'
        Checked = True
      end
      object HideTestNodesItem: TMenuItem
        Action = HideTestNodesOnOpenAction
      end
      object SelectTestedNodeItem: TMenuItem
        Action = ShowTestedNodeAction
      end
      object BreakonFailuresItem: TMenuItem
        Action = BreakOnFailuresAction
      end
      object UseRegistryItem: TMenuItem
        Action = UseRegistryAction
        Caption = 'Use Registry'
        Enabled = False
      end
    end
    object ActionsMenu: TMenuItem
      Caption = 'Actio&ns'
      object Run1: TMenuItem
        Action = RunAction
        ShortCut = 4152
      end
      object Runselectedtest1: TMenuItem
        Action = RunSelectedTestAction
      end
      object StopActionItem: TMenuItem
        Action = StopAction
        ShortCut = 20529
      end
      object CopyMessagetoCllipboardItem: TMenuItem
        Action = CopyMessageToClipboardAction
      end
    end
  end
  object pmErrorMessage: TPopupMenu
    Left = 253
    Top = 336
    object CopyFailureMessage: TMenuItem
      Action = CopyMessageToClipboardAction
      Visible = False
    end
  end
  object ActionsImages: TImageList
    Left = 144
    Top = 68
    Bitmap = {
      [encoded data, 19456 characters]
      0000000000000000}
  end
  object pmTestTree: TPopupMenu
    Left = 392
    Top = 80
    object pmiSelectAll: TMenuItem
      Action = SelectAllAction
    end
    object pmiDeselectAll: TMenuItem
      Action = DeselectAllAction
    end
    object pmiSelectFailed: TMenuItem
      Action = SelectFailedAction
    end
    object TestTreeLocalMenuSeparator: TMenuItem
      Caption = '-'
    end
    object CollapseLowestSuiteNodes1: TMenuItem
      Action = HideTestNodesAction
    end
    object ExpandAll2: TMenuItem
      Action = ExpandAllNodesAction
    end
  end
end
