spiegel-keyman/developer/src/tike/debug/UfrmDebugStatus_RegTest.dfm

inherited frmDebugStatus_RegTest: TfrmDebugStatus_RegTest
  Caption = 'frmDebugStatus_RegTest'
  PixelsPerInch = 96
  TextHeight = 13
  object panRegTestCommands: TPanel
    Left = 0
    Top = 0
    Width = 61
    Height = 320
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object cmdRegTestStartStopLog: TDebugBitBtn
      Left = 0
      Top = 0
      Width = 57
      Height = 17
      Caption = 'Stop log'
      TabOrder = 0
      OnClick = cmdRegTestStartStopLogClick
    end
    object cmdRegTestStartStopTest: TDebugBitBtn
      Left = 0
      Top = 20
      Width = 57
      Height = 17
      Caption = 'Stop test'
      TabOrder = 1
      OnClick = cmdRegTestStartStopTestClick
    end
    object cmdRegTestOptions: TDebugBitBtn
      Left = 0
      Top = 40
      Width = 57
      Height = 17
      Caption = 'Options'
      Glyph.Data = {
        96000000424D9600000000000000760000002800000007000000080000000100
        04000000000020000000C40E0000C40E0000100000000000000000000000FFFF
        FF00000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000111011101110
        1110110001101100011010000010100000100000000000000000}
      Layout = blGlyphRight
      TabOrder = 2
      OnClick = cmdRegTestOptionsClick
    end
  end
  object lbRegTestLog: TDebugListBox
    Left = 61
    Top = 0
    Width = 373
    Height = 320
    Align = alClient
    ItemHeight = 13
    TabOrder = 1
  end
  object mnuRegTest: TPopupMenu
    AutoPopup = False
    TrackButton = tbLeftButton
    OnPopup = mnuRegTestPopup
    Left = 333
    Top = 133
    object mnuDebugRegTestClearLog: TMenuItem
      Caption = '&Clear log'
      OnClick = mnuDebugRegTestClearLogClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object mnuDebugRegTestEdit: TMenuItem
      Caption = '&Edit regression test data...'
      OnClick = mnuDebugRegTestEditClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object mnuDebugRegTestOpen: TMenuItem
      Caption = '&Open regression test...'
      OnClick = mnuDebugRegTestOpenClick
    end
    object mnuDebugRegTestSave: TMenuItem
      Caption = '&Save regression test...'
      OnClick = mnuDebugRegTestSaveClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnuDebugRegTestBatch: TMenuItem
      Caption = '&Batch regression tests...'
      OnClick = mnuDebugRegTestBatchClick
    end
  end
  object dlgOpenRegtestBatch: TOpenDialog
    DefaultExt = 'xml'
    Filter = 'XML files (*.xml)|*.xml|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Title = 'Select Batch Regression Tests'
    Left = 305
    Top = 133
  end
  object dlgOpenRegTest: TOpenDialog
    DefaultExt = 'xml'
    Filter = 'XML files (*.xml)|*.xml|All files (*.*)|*.*'
    Title = 'Open Regression Test'
    Left = 305
    Top = 105
  end
  object dlgSaveRegTest: TSaveDialog
    DefaultExt = 'xml'
    Filter = 'XML files (*.xml)|*.xml|All files (*.*)|*.*'
    Left = 333
    Top = 105
  end
end