|
Last change
on this file was 127, checked in by chronos, 3 years ago |
- Modified: Removed explicit Delphi directive.
- Fixed: Added mising UTestCase file.
|
|
File size:
1.6 KB
|
| Line | |
|---|
| 1 | object FormTest: TFormTest
|
|---|
| 2 | Left = 514
|
|---|
| 3 | Height = 632
|
|---|
| 4 | Top = 338
|
|---|
| 5 | Width = 1072
|
|---|
| 6 | Caption = 'Test'
|
|---|
| 7 | ClientHeight = 632
|
|---|
| 8 | ClientWidth = 1072
|
|---|
| 9 | DesignTimePPI = 144
|
|---|
| 10 | OnClose = FormClose
|
|---|
| 11 | OnCreate = FormCreate
|
|---|
| 12 | OnDestroy = FormDestroy
|
|---|
| 13 | OnShow = FormShow
|
|---|
| 14 | LCLVersion = '2.2.0.4'
|
|---|
| 15 | object ListViewTestCases: TListView
|
|---|
| 16 | Left = 19
|
|---|
| 17 | Height = 562
|
|---|
| 18 | Top = 11
|
|---|
| 19 | Width = 1041
|
|---|
| 20 | Anchors = [akTop, akLeft, akRight, akBottom]
|
|---|
| 21 | Columns = <
|
|---|
| 22 | item
|
|---|
| 23 | Caption = 'Name'
|
|---|
| 24 | Width = 288
|
|---|
| 25 | end
|
|---|
| 26 | item
|
|---|
| 27 | Caption = 'Result'
|
|---|
| 28 | Width = 738
|
|---|
| 29 | end>
|
|---|
| 30 | OwnerData = True
|
|---|
| 31 | PopupMenu = PopupMenuTest
|
|---|
| 32 | ReadOnly = True
|
|---|
| 33 | RowSelect = True
|
|---|
| 34 | TabOrder = 0
|
|---|
| 35 | ViewStyle = vsReport
|
|---|
| 36 | OnData = ListViewTestCasesData
|
|---|
| 37 | OnDblClick = AShowExecute
|
|---|
| 38 | OnSelectItem = ListViewTestCasesSelectItem
|
|---|
| 39 | end
|
|---|
| 40 | object ButtonRun: TButton
|
|---|
| 41 | Left = 945
|
|---|
| 42 | Height = 37
|
|---|
| 43 | Top = 585
|
|---|
| 44 | Width = 112
|
|---|
| 45 | Anchors = [akRight, akBottom]
|
|---|
| 46 | Caption = 'Run'
|
|---|
| 47 | OnClick = ButtonRunClick
|
|---|
| 48 | TabOrder = 1
|
|---|
| 49 | end
|
|---|
| 50 | object LabelResult: TLabel
|
|---|
| 51 | Left = 21
|
|---|
| 52 | Height = 26
|
|---|
| 53 | Top = 583
|
|---|
| 54 | Width = 15
|
|---|
| 55 | Anchors = [akLeft, akBottom]
|
|---|
| 56 | Caption = ' '
|
|---|
| 57 | end
|
|---|
| 58 | object ActionList1: TActionList
|
|---|
| 59 | Left = 516
|
|---|
| 60 | Top = 110
|
|---|
| 61 | object AShow: TAction
|
|---|
| 62 | Caption = 'Show'
|
|---|
| 63 | OnExecute = AShowExecute
|
|---|
| 64 | end
|
|---|
| 65 | object ARun: TAction
|
|---|
| 66 | Caption = 'Run'
|
|---|
| 67 | OnExecute = ARunExecute
|
|---|
| 68 | end
|
|---|
| 69 | end
|
|---|
| 70 | object PopupMenuTest: TPopupMenu
|
|---|
| 71 | Left = 517
|
|---|
| 72 | Top = 234
|
|---|
| 73 | object MenuItem1: TMenuItem
|
|---|
| 74 | Action = AShow
|
|---|
| 75 | end
|
|---|
| 76 | object MenuItem2: TMenuItem
|
|---|
| 77 | Action = ARun
|
|---|
| 78 | end
|
|---|
| 79 | end
|
|---|
| 80 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
