|
Last change
on this file was 219, checked in by chronos, 5 days ago |
- Modified: Updated Common package.
- Modified: Remove U prefix from unit names.
- Modified: Use Gneeric.Collections instead of fgl.
- Modified: Do not use global form variables.
|
|
File size:
1.8 KB
|
| Line | |
|---|
| 1 | object FormTests: TFormTests
|
|---|
| 2 | Left = 514
|
|---|
| 3 | Height = 632
|
|---|
| 4 | Top = 338
|
|---|
| 5 | Width = 1072
|
|---|
| 6 | Caption = 'Tests'
|
|---|
| 7 | ClientHeight = 632
|
|---|
| 8 | ClientWidth = 1072
|
|---|
| 9 | DesignTimePPI = 144
|
|---|
| 10 | OnShow = FormShow
|
|---|
| 11 | LCLVersion = '3.6.0.0'
|
|---|
| 12 | object ListViewTestCases: TListView
|
|---|
| 13 | Left = 19
|
|---|
| 14 | Height = 562
|
|---|
| 15 | Top = 11
|
|---|
| 16 | Width = 1041
|
|---|
| 17 | Anchors = [akTop, akLeft, akRight, akBottom]
|
|---|
| 18 | Columns = <
|
|---|
| 19 | item
|
|---|
| 20 | Caption = 'Name'
|
|---|
| 21 | Width = 288
|
|---|
| 22 | end
|
|---|
| 23 | item
|
|---|
| 24 | Caption = 'Result'
|
|---|
| 25 | Width = 738
|
|---|
| 26 | end>
|
|---|
| 27 | OwnerData = True
|
|---|
| 28 | PopupMenu = PopupMenuTest
|
|---|
| 29 | ReadOnly = True
|
|---|
| 30 | RowSelect = True
|
|---|
| 31 | TabOrder = 0
|
|---|
| 32 | ViewStyle = vsReport
|
|---|
| 33 | OnData = ListViewTestCasesData
|
|---|
| 34 | OnDblClick = AShowExecute
|
|---|
| 35 | OnSelectItem = ListViewTestCasesSelectItem
|
|---|
| 36 | end
|
|---|
| 37 | object ButtonRun: TButton
|
|---|
| 38 | Left = 816
|
|---|
| 39 | Height = 37
|
|---|
| 40 | Top = 585
|
|---|
| 41 | Width = 112
|
|---|
| 42 | Anchors = [akRight, akBottom]
|
|---|
| 43 | Caption = 'Run'
|
|---|
| 44 | TabOrder = 1
|
|---|
| 45 | OnClick = ButtonRunClick
|
|---|
| 46 | end
|
|---|
| 47 | object LabelResult: TLabel
|
|---|
| 48 | Left = 21
|
|---|
| 49 | Height = 26
|
|---|
| 50 | Top = 583
|
|---|
| 51 | Width = 15
|
|---|
| 52 | Anchors = [akLeft, akBottom]
|
|---|
| 53 | Caption = ' '
|
|---|
| 54 | ParentColor = False
|
|---|
| 55 | end
|
|---|
| 56 | object ButtonClose: TButton
|
|---|
| 57 | Left = 945
|
|---|
| 58 | Height = 37
|
|---|
| 59 | Top = 585
|
|---|
| 60 | Width = 112
|
|---|
| 61 | Anchors = [akRight, akBottom]
|
|---|
| 62 | Caption = 'Close'
|
|---|
| 63 | ModalResult = 11
|
|---|
| 64 | TabOrder = 2
|
|---|
| 65 | OnClick = ButtonRunClick
|
|---|
| 66 | end
|
|---|
| 67 | object ActionList1: TActionList
|
|---|
| 68 | Left = 516
|
|---|
| 69 | Top = 110
|
|---|
| 70 | object AShow: TAction
|
|---|
| 71 | Caption = 'Show'
|
|---|
| 72 | OnExecute = AShowExecute
|
|---|
| 73 | end
|
|---|
| 74 | object ARun: TAction
|
|---|
| 75 | Caption = 'Run'
|
|---|
| 76 | OnExecute = ARunExecute
|
|---|
| 77 | end
|
|---|
| 78 | end
|
|---|
| 79 | object PopupMenuTest: TPopupMenu
|
|---|
| 80 | Left = 517
|
|---|
| 81 | Top = 234
|
|---|
| 82 | object MenuItem1: TMenuItem
|
|---|
| 83 | Action = AShow
|
|---|
| 84 | end
|
|---|
| 85 | object MenuItem2: TMenuItem
|
|---|
| 86 | Action = ARun
|
|---|
| 87 | end
|
|---|
| 88 | end
|
|---|
| 89 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
