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