-
Notifications
You must be signed in to change notification settings - Fork 24
/
Copy pathImportList.lfm
313 lines (313 loc) · 7.57 KB
/
ImportList.lfm
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
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
object frmImportList: TfrmImportList
Left = 749
Height = 332
Top = 202
Width = 287
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Import list'
ClientHeight = 0
ClientWidth = 0
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
OnClose = FormClose
OnCreate = FormCreate
Position = poMainFormCenter
LCLVersion = '1.0.6.0'
object bvl2: TBevel
Left = 0
Height = 2
Top = 295
Width = 287
Align = alTop
Shape = bsBottomLine
end
object btnBack: TButton
Left = 45
Height = 23
Top = 301
Width = 75
Caption = '< Back'
Enabled = False
OnClick = btnBackClick
TabOrder = 1
end
object btnNext: TButton
Left = 123
Height = 23
Top = 301
Width = 75
Caption = 'Next >'
Default = True
OnClick = btnNextClick
TabOrder = 2
end
object btnCancel: TButton
Left = 204
Height = 23
Top = 301
Width = 75
Cancel = True
Caption = 'Cancel'
OnClick = btnCancelClick
TabOrder = 3
end
object pnlHeader: TPanel
Left = 0
Height = 49
Top = 0
Width = 287
Align = alTop
BevelOuter = bvNone
ClientHeight = 49
ClientWidth = 287
TabOrder = 4
object lblTitle: TLabel
Left = 16
Height = 30
Top = 8
Width = 257
AutoSize = False
Caption = 'Select a launcher from which to import list and settings'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
WordWrap = True
end
end
object nbImport: TNotebook
Left = 0
Height = 244
Top = 51
Width = 287
PageIndex = 0
Align = alTop
TabOrder = 0
TabStop = True
object pgLaunchers: TPage
OnBeforeShow = pgLaunchersBeforeShow
object rgrpLauncher: TRadioGroup
Left = 12
Height = 136
Top = 38
Width = 263
AutoFill = True
Caption = 'Launcher'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 118
ClientWidth = 259
ItemIndex = 0
Items.Strings = (
'ASuite 2.x'
'ASuite 1.x'
'winPenPack Launcher 1.x'
)
TabOrder = 0
end
end
object pgSettings: TPage
OnBeforeShow = pgSettingsBeforeShow
object gbElements: TGroupBox
Left = 12
Height = 105
Top = 119
Width = 263
Caption = 'Elements'
ClientHeight = 87
ClientWidth = 259
TabOrder = 0
object cbImportList: TCheckBox
Left = 14
Height = 19
Top = 16
Width = 36
Caption = 'List'
Checked = True
OnClick = cbImportListClick
State = cbChecked
TabOrder = 0
end
object cbImportSettings: TCheckBox
Left = 14
Height = 19
Top = 47
Width = 59
Caption = 'Settings'
Checked = True
OnClick = cbImportListClick
State = cbChecked
TabOrder = 1
end
end
object gbFile: TGroupBox
Left = 12
Height = 105
Top = 0
Width = 263
Caption = 'Launcher File'
ClientHeight = 87
ClientWidth = 259
TabOrder = 1
object lblFile: TLabel
Left = 14
Height = 14
Top = 7
Width = 66
Caption = 'Launcher File location:'
ParentColor = False
end
object btnBrowse: TButton
Left = 171
Height = 22
Top = 50
Width = 73
Caption = 'Browse...'
OnClick = btnBrowseClick
TabOrder = 0
end
object edtPathList: TEdit
Left = 14
Height = 21
Top = 23
Width = 230
OnEnter = edtPathListEnter
OnExit = edtPathListEnter
TabOrder = 1
end
end
end
object pgItems: TPage
OnBeforeShow = pgItemsBeforeShow
object vstListImp: TVirtualStringTree
Left = 12
Height = 210
Top = 3
Width = 263
AnimationDuration = 0
DragMode = dmAutomatic
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Header.AutoSizeIndex = 0
Header.Columns = <>
Header.DefaultHeight = 17
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Shell Dlg 2'
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
Images = ImagesDM.IcoImages
ParentFont = False
TabOrder = 0
TextMargin = 2
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnExpanding = vstListImpExpanding
OnFreeNode = vstListImpFreeNode
OnGetText = vstListImpGetText
OnGetImageIndex = vstListImpGetImageIndex
end
object btnDeselectAll: TButton
Left = 146
Height = 17
Top = 221
Width = 105
Caption = 'Deselect all'
OnClick = btnDeselectAllClick
TabOrder = 1
end
object btnSelectAll: TButton
Left = 36
Height = 17
Top = 221
Width = 105
Caption = 'Select all'
OnClick = btnSelectAllClick
TabOrder = 2
end
end
object pgProgress: TPage
OnBeforeShow = pgProgressBeforeShow
object lblSettings: TLabel
Left = 35
Height = 14
Top = 68
Width = 40
Caption = 'Settings'
Layout = tlCenter
ParentColor = False
end
object pbImport: TProgressBar
Left = 12
Height = 17
Top = 124
Width = 255
Step = 1
TabOrder = 0
end
object imgSettings: TImage
Left = 12
Height = 18
Top = 68
Width = 17
end
object lblLauncher: TLabel
Left = 12
Height = 14
Top = 16
Width = 88
Caption = 'From %s launcher'
ParentColor = False
end
object lblList: TLabel
Left = 35
Height = 14
Top = 39
Width = 17
Caption = 'List'
Layout = tlCenter
ParentColor = False
end
object imgList: TImage
Left = 12
Height = 18
Top = 39
Width = 17
end
object lblItems: TLabel
Left = 12
Height = 14
Top = 108
Width = 154
Caption = 'Processing items (%d%%): %d'
ParentColor = False
end
end
end
object bvl1: TBevel
Left = 0
Height = 2
Top = 49
Width = 287
Align = alTop
Shape = bsBottomLine
end
object OpenDialog1: TOpenDialog
Filter = 'All list|*.xml;*.sqlite;*.bck;*.sqbck|ASuite 2.x List (*.sqlite, *.sqbck)|*.sqlite;*.sqbck|ASuite 1.x List (*.xml, *.bck)|*.xml;*.bck|winPenPack 1.x List (*.xml)|*.xml|PStart 2.x List (*.xml)|*.xml'
left = 232
top = 4
end
end