source: branches/xpascal/Packages/Common/Forms/FormTests.lfm

object FormTests: TFormTests
  Left = 514
  Height = 632
  Top = 338
  Width = 1072
  Caption = 'Tests'
  ClientHeight = 632
  ClientWidth = 1072
  DesignTimePPI = 144
  OnShow = FormShow
  LCLVersion = '2.2.6.0'
  object ListViewTestCases: TListView
    Left = 19
    Height = 562
    Top = 11
    Width = 1041
    Anchors = [akTop, akLeft, akRight, akBottom]
    Columns = <    
      item
        Caption = 'Name'
        Width = 288
      end    
      item
        Caption = 'Result'
        Width = 738
      end>
    OwnerData = True
    PopupMenu = PopupMenuTest
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnData = ListViewTestCasesData
    OnDblClick = AShowExecute
    OnSelectItem = ListViewTestCasesSelectItem
  end
  object ButtonRun: TButton
    Left = 945
    Height = 37
    Top = 585
    Width = 112
    Anchors = [akRight, akBottom]
    Caption = 'Run'
    OnClick = ButtonRunClick
    TabOrder = 1
  end
  object LabelResult: TLabel
    Left = 21
    Height = 26
    Top = 583
    Width = 15
    Anchors = [akLeft, akBottom]
    Caption = '   '
    ParentColor = False
  end
  object ActionList1: TActionList
    Left = 516
    Top = 110
    object AShow: TAction
      Caption = 'Show'
      OnExecute = AShowExecute
    end
    object ARun: TAction
      Caption = 'Run'
      OnExecute = ARunExecute
    end
  end
  object PopupMenuTest: TPopupMenu
    Left = 517
    Top = 234
    object MenuItem1: TMenuItem
      Action = AShow
    end
    object MenuItem2: TMenuItem
      Action = ARun
    end
  end
end