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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
|
object FormLazExam: TFormLazExam
Left = 789
Height = 400
Top = 304
Width = 781
Caption = 'Lazarus Examples Window'
ClientHeight = 400
ClientWidth = 781
KeyPreview = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnShow = FormShow
Position = poWorkAreaCenter
LCLVersion = '2.3.0.0'
object Memo1: TMemo
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Splitter2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CheckGroupCategory
Left = 6
Height = 148
Top = 157
Width = 769
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Lines.Strings = (
'Memo1'
)
ParentShowHint = False
ReadOnly = True
ScrollBars = ssAutoVertical
TabOrder = 2
TabStop = False
end
object ListView1: TListView
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = EditSearch
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Splitter2
Left = 6
Height = 111
Hint = 'Click for Info, Double Click to download'
Top = 35
Width = 775
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSort = False
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Bottom = 6
Columns = <
item
Width = 10
end
item
Width = 750
end>
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 1
OnClick = ListView1Click
OnDblClick = ListView1DblClick
OnEnter = ListView1Enter
OnExit = ListView1Exit
OnKeyDown = ListView1KeyDown
OnKeyPress = ListView1KeyPress
OnSelectItem = ListView1SelectItem
end
object CheckGroupCategory: TCheckGroup
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonOpen
Left = 6
Height = 23
Top = 311
Width = 769
Anchors = [akLeft, akRight, akBottom]
AutoFill = True
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'Category'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
Columns = 2
OnDblClick = CheckGroupCategoryDblClick
OnItemClick = CheckGroupCategoryItemClick
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object Splitter2: TSplitter
AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Memo1
Cursor = crVSplit
Left = 0
Height = 5
Top = 152
Width = 781
Align = alNone
Anchors = [akLeft, akRight]
ResizeAnchor = akTop
end
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 377
Width = 781
Panels = <>
end
object ButtonRefresh: TButton
AnchorSideLeft.Control = ButtonView
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonOpen
AnchorSideBottom.Side = asrBottom
Left = 175
Height = 31
Top = 340
Width = 73
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 6
Caption = 'Refresh'
OnClick = ButtonRefreshClick
TabOrder = 7
end
object ButtonClose: TButton
AnchorSideLeft.Control = ButtonView
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonOpen
AnchorSideBottom.Side = asrBottom
Left = 721
Height = 31
Top = 340
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Close'
ModalResult = 11
OnClick = ButtonCloseClick
TabOrder = 8
end
object ButtonOpen: TButton
AnchorSideLeft.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = StatusBar1
Left = 6
Height = 31
Top = 340
Width = 54
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Bottom = 6
Caption = 'Open'
OnClick = ButtonOpenClick
TabOrder = 5
end
object ButtonView: TButton
AnchorSideLeft.Control = ButtonOpen
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonOpen
AnchorSideBottom.Side = asrBottom
Left = 66
Height = 31
Top = 340
Width = 103
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 6
Caption = 'ButtonView'
OnClick = ButtonViewClick
TabOrder = 6
end
object EditSearch: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = ClearSearchButton
Left = 6
Height = 29
Hint = 'Searches for Keywords'
Top = 3
Width = 743
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 3
OnChange = EditSearchChange
OnEnter = EditSearchEnter
OnKeyDown = EditSearchKeyDown
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object ClearSearchButton: TSpeedButton
AnchorSideTop.Control = EditSearch
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 752
Height = 22
Top = 6
Width = 23
Anchors = [akTop, akRight]
BorderSpacing.Left = 3
BorderSpacing.Right = 6
OnClick = ClearSearchButtonClick
end
end
|
