source: trunk/Forms/FormFields.lfm

Last change on this file was 32, checked in by chronos, 18 months ago
  • Modified: Removed U prefix from units names.
  • Modified: Use TFormEx for all forms.
File size: 2.6 KB
Line 
1object FormFields: TFormFields
2 Left = 538
3 Height = 472
4 Top = 358
5 Width = 940
6 Caption = 'Fields'
7 ClientHeight = 472
8 ClientWidth = 940
9 OnShow = FormShow
10 Position = poMainFormCenter
11 LCLVersion = '1.8.0.4'
12 object ToolBar1: TToolBar
13 Left = 0
14 Height = 36
15 Top = 436
16 Width = 940
17 Align = alBottom
18 ButtonHeight = 32
19 ButtonWidth = 32
20 Images = Core.ImageList1
21 ParentShowHint = False
22 ShowHint = True
23 TabOrder = 0
24 object ToolButton1: TToolButton
25 Left = 1
26 Top = 2
27 Action = AAdd
28 end
29 object ToolButton2: TToolButton
30 Left = 37
31 Top = 2
32 Action = AModify
33 end
34 object ToolButton3: TToolButton
35 Left = 73
36 Top = 2
37 Action = ARemove
38 end
39 object ToolButton4: TToolButton
40 Left = 109
41 Top = 2
42 Action = AOk
43 end
44 object ToolButton5: TToolButton
45 Left = 145
46 Top = 2
47 Action = ACancel
48 end
49 end
50 object ListView1: TListView
51 Left = 4
52 Height = 428
53 Top = 4
54 Width = 932
55 Align = alClient
56 BorderSpacing.Around = 4
57 Columns = <
58 item
59 Caption = 'Name'
60 Width = 200
61 end
62 item
63 Caption = 'Type'
64 Width = 200
65 end
66 item
67 Caption = 'Required'
68 Width = 100
69 end
70 item
71 Caption = 'TextBefore'
72 Width = 100
73 end
74 item
75 Caption = 'TextAfter'
76 Width = 315
77 end>
78 OwnerData = True
79 PopupMenu = PopupMenu1
80 ReadOnly = True
81 RowSelect = True
82 TabOrder = 1
83 ViewStyle = vsReport
84 OnData = ListView1Data
85 OnDblClick = AModifyExecute
86 OnSelectItem = ListView1SelectItem
87 end
88 object ActionList1: TActionList
89 Images = Core.ImageList1
90 left = 350
91 top = 168
92 object AAdd: TAction
93 Caption = 'Add'
94 ImageIndex = 5
95 OnExecute = AAddExecute
96 end
97 object AModify: TAction
98 Caption = 'Modify'
99 ImageIndex = 3
100 OnExecute = AModifyExecute
101 end
102 object ARemove: TAction
103 Caption = 'Remove'
104 ImageIndex = 4
105 OnExecute = ARemoveExecute
106 end
107 object AOk: TAction
108 Caption = 'Ok'
109 ImageIndex = 0
110 OnExecute = AOkExecute
111 end
112 object ACancel: TAction
113 Caption = 'Cancel'
114 ImageIndex = 1
115 OnExecute = ACancelExecute
116 end
117 end
118 object PopupMenu1: TPopupMenu
119 Images = Core.ImageList1
120 left = 492
121 top = 172
122 object MenuItem1: TMenuItem
123 Action = AAdd
124 end
125 object MenuItem2: TMenuItem
126 Action = AModify
127 Default = True
128 end
129 object MenuItem3: TMenuItem
130 Action = ARemove
131 end
132 end
133end
Note: See TracBrowser for help on using the repository browser.