1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
object ResourcesOptionsFrame: TResourcesOptionsFrame
Left = 0
Height = 330
Top = 0
Width = 742
ClientHeight = 330
ClientWidth = 742
TabOrder = 0
DesignLeft = 735
DesignTop = 393
object lbResources: TListView
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ToolBar1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblResourceName
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 304
Top = 26
Width = 610
Anchors = [akTop, akLeft, akRight, akBottom]
AutoWidthLastColumn = True
BorderSpacing.Right = 6
Columns = <
item
Caption = 'FileName'
Width = 200
end
item
Caption = 'Type'
Width = 80
end
item
Caption = 'Resource'
Width = 326
end>
HideSelection = False
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnInsert = lbResourcesInsert
OnKeyDown = lbResourcesKeyDown
OnSelectItem = lbResourcesSelectItem
end
object ToolBar1: TToolBar
Left = 0
Height = 26
Top = 0
Width = 742
Caption = 'ToolBar1'
EdgeBorders = []
List = True
ShowCaptions = True
TabOrder = 1
object btnAdd: TToolButton
Left = 1
Top = 0
Caption = 'btnAdd'
OnClick = btnAddClick
end
object btnDelete: TToolButton
Left = 49
Top = 0
Caption = 'btnDelete'
Enabled = False
OnClick = btnDeleteClick
end
object btnClear: TToolButton
Left = 108
Top = 0
Caption = 'btnClear'
Enabled = False
OnClick = btnClearClick
end
end
object lblResourceName: TLabel
AnchorSideLeft.Control = edResourceName
AnchorSideTop.Control = lbResources
Left = 616
Height = 15
Top = 26
Width = 93
Caption = 'lblResourceName'
FocusControl = edResourceName
ParentColor = False
end
object edResourceName: TEdit
AnchorSideLeft.Control = lblResourceName
AnchorSideTop.Control = lblResourceName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 616
Height = 23
Top = 47
Width = 126
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
CharCase = ecUppercase
Enabled = False
OnEditingDone = edResourceNameEditingDone
OnKeyDown = edResourceNameKeyDown
TabOrder = 2
end
object lblResourceType: TLabel
AnchorSideLeft.Control = cbResourceType
AnchorSideTop.Control = edResourceName
AnchorSideTop.Side = asrBottom
Left = 616
Height = 15
Top = 76
Width = 87
BorderSpacing.Top = 6
Caption = 'lblResourceType'
ParentColor = False
end
object cbResourceType: TComboBox
AnchorSideLeft.Control = edResourceName
AnchorSideTop.Control = lblResourceType
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 616
Height = 23
Top = 97
Width = 126
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Enabled = False
ItemHeight = 15
OnChange = cbResourceTypeChange
Style = csDropDownList
TabOrder = 3
end
object dlgOpen: TOpenDialog
Options = [ofAllowMultiSelect, ofEnableSizing, ofViewDetail]
left = 146
top = 93
end
end
|
