forked from corneliusdavid/AutoGetIt
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathufrmAutoGetItMain.dfm
380 lines (380 loc) · 11.4 KB
/
ufrmAutoGetItMain.dfm
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
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
object frmAutoGetItMain: TfrmAutoGetItMain
Left = 0
Top = 0
Caption = 'Auto GetIt!'
ClientHeight = 569
ClientWidth = 914
Color = clBtnFace
Constraints.MinHeight = 300
Constraints.MinWidth = 868
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object pnlTop: TPanel
Left = 0
Top = 0
Width = 914
Height = 89
Align = alTop
TabOrder = 0
DesignSize = (
914
89)
object Label1: TLabel
Left = 594
Top = 22
Width = 116
Height = 16
Alignment = taRightJustify
Anchors = [akTop, akRight]
Caption = 'RAD Studio Version:'
ExplicitLeft = 550
end
object Label2: TLabel
Left = 495
Top = 69
Width = 214
Height = 16
Alignment = taRightJustify
Caption = 'All EULAs are automatically accepted.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object btnRefresh: TBitBtn
Left = 16
Top = 12
Width = 161
Height = 39
Action = actRefresh
Caption = '&Refresh Package List'
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF91DA8F5C
D65958E25630D92F3AD2387EC97BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FF84CE806ACB6678C074FF00FF67B36231C62E41CA3F7CC0
78FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF66B7604BA946FF00FFFF
00FFFF00FFFF00FF67B36261DA5E91DE8F61A95AFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF67B36299EA
974FA448FF00FFFF00FFFF00FFFF00FFFF00FF84BE80FF00FFFF00FFFF00FFFF
00FFFF00FF67B36267B36267B3628DEA8CAFE7AD68B4629BC797FF00FFFF00FF
32D12F79CA7532D12FFF00FFFF00FFFF00FFFF00FFFF00FF4FD14B7AE8798DEA
8C99DE97449D3CFF00FFFF00FF8FDF8D26D42546D14572B76DFF00FFFF00FFFF
00FFFF00FFFF00FF6AD1668CEC8B9FEF9E6AB7647BB575FF00FF84BE8032D431
28D1262CCB2A71D46F84BE80FF00FFFF00FFFF00FFFF00FFFF00FF61DA5E9FE0
9C449D3CFF00FFFF00FF67B36267B36227D2266BD56967B36267B362FF00FFFF
00FFFF00FFFF00FFFF00FFFF00FF6DC569FF00FFFF00FFFF00FFFF00FF54BE4F
27D2266ED56C53A24BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF3ADC388BE68867B362FF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
5AD85785E783A1E89F67B362FF00FFFF00FFFF00FF83CB7F3EA638FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF7EDD7B92EC9188EA8767B3627A
D67773D26F3EB239FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF9ACE9790D38D84CA8154B54F6FBE6AFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
TabOrder = 0
end
object cmbRADVersions: TComboBox
Left = 716
Top = 19
Width = 186
Height = 24
Style = csDropDownList
Anchors = [akTop, akRight]
TabOrder = 1
end
object rgrpSortBy: TRadioGroup
Left = 183
Top = 10
Width = 210
Height = 46
Hint =
'This parameter is passed to the command line but does not seem t' +
'o have any effect.'
Caption = 'Sort By'
Columns = 3
ItemIndex = 0
Items.Strings = (
'Name'
'Vendor'
'Date')
TabOrder = 2
OnClick = rgrpSortByClick
end
object chkInstalledOnly: TCheckBox
Left = 399
Top = 30
Width = 103
Height = 17
Caption = 'Installed Only'
TabOrder = 3
end
object edtNameFilter: TLabeledEdit
Left = 183
Top = 62
Width = 265
Height = 24
EditLabel.Width = 160
EditLabel.Height = 16
EditLabel.Caption = 'Name/description contains: '
LabelPosition = lpLeft
TabOrder = 4
TextHint = 'leave blank to include all packages'
end
object chkAcceptEULAs: TCheckBox
Left = 605
Top = 50
Width = 105
Height = 17
Alignment = taLeftJustify
Anchors = [akTop, akRight]
Caption = 'Accept EULAs'
Checked = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 5
end
object btnInstallSelected: TBitBtn
Left = 716
Top = 49
Width = 186
Height = 34
Action = actInstallChecked
Anchors = [akTop, akRight]
Caption = 'Install checked'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF
FEFEFED5D4D4D5D5D5D5D6D6D3D4D4D2D2D2D3D0CFD9C7C3E2D6D3FDFDFDFBFA
FAF9F8F8FBFBFBFDFDFDFFFFFFFFFFFF4949496262626A6A6A6A6A6A6A6A6A6C
6C6C393D3DF6EAE7915B51814032B49187FFFFFFF9F8F8FCFCFCFFFFFF747474
858787FFFFFFF5F5F5F5F5F5F5F5F5FFFFFF333535E5D1CC6E2313905448B38C
87A7796FFDFDFDFBFAFAFFFFFF696969CACDCDFFFFFFFDFFFFFDFFFFFDFFFFFF
FFFF313133FFFFFFC9ABA9884A3ED2B3B5B07E79FFFFFFFBFAFAFFFFFF6B6F71
996448B88F7EB68F7AB68F7AB68F7ABE9580402C21FCF7F7B48C888C4E40D5B8
BADBC0C0FFFFFFFDFDFDFFFFFF75655DE0B692FFBE59FFBE5DFFBE5DFFBE5DFF
C25DA27D4BE8DBDD874C4371301F6F2D1D712E1D7A3726E7DBD8FFFFFF6C6F75
FFAC4E8D3000913200913200913200933200663713FFFFFFD5BABCD2B9BBCFB3
B3CFB1B38E5247DFCFCADDDDDD45454540444ABBC1C5E2E8ECE0E6EAE0E6EAE6
EEF22F3335FDFAFCE5D7DBE3D5D7DDCBCBD1B2B48E5246E1D2CE3131317B7B7B
B2B2B23131313333333333333535356161617272729D9994FFD8ABF9D3A8ECE8
EAD5BABA8D5345E1D2CED5D5D5404040CACACAFFFFFFFFFFFFFFFFFFD7D7D73D
3D3D5A5A5C8F8578FFD79FFCBB6DEFEBEFDBC0C08E5446E1D2CEFFFFFF2F2F2F
353535333333333333313333333537565450595654FFE8C9FFE5C4FCC88BF0EB
EFE0C8CA8F5448E2D3D0FFFFFFFFFFFFFFFFFFF6EFECF5E6E4FFFAFBF2E3DAFF
EBC5FFF0D0FFE3C1FFC277FDD6A8F2EDEFE5D0D090564AE2D3D0FFFFFFFFFFFF
FFFFFFC5A69FBD9990DACACDB18967FFAA31FFBE66FFC87CFFD18FFFE4C1F5EE
F2E9D6D891584CE2D3D0FFFFFFFFFFFFFFFFFFB79188B1867ED4C0C080675D80
696780676380676380655F8B736ED6C6C4ECDADC92594DE2D3D0FFFFFFFFFFFF
FFFFFFBB9991B38A82F2E2E2F2E0E2F2E0E2F2E0E2F2E0E2F2E0E2F0E0E0ECDC
DCF2E2E2955B4FE2D3D0FFFFFFFFFFFFFFFFFFBA968D874A3A935B4F93594D93
594D93594D93594D93594D93594D93594D955B4F813F30E0D0CD}
ParentFont = False
TabOrder = 6
end
end
object lbPackages: TCheckListBox
Left = 0
Top = 89
Width = 914
Height = 461
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Consolas'
Font.Style = []
ItemHeight = 15
Items.Strings = (
'one'
'two'
'three')
ParentFont = False
PopupMenu = mnuCheckListPopup
TabOrder = 1
OnClick = lbPackagesClick
end
object StatusBar: TStatusBar
Left = 0
Top = 550
Width = 914
Height = 19
Panels = <
item
Width = 100
end
item
Width = 100
end
item
Width = 50
end>
end
object aclAutoGetit: TActionList
Left = 216
Top = 184
object actRefresh: TAction
Caption = '&Refresh Package List'
OnExecute = actRefreshExecute
end
object actInstallChecked: TAction
Category = 'install'
Caption = 'Install checked'
Enabled = False
OnExecute = actInstallCheckedExecute
end
object actSaveCheckedList: TAction
Category = 'load and save'
Caption = 'Saved checked items'
ShortCut = 16467
OnExecute = actSaveCheckedListExecute
end
object actCheckAll: TAction
Category = 'check all'
Caption = 'Check All'
ShortCut = 16449
OnExecute = actCheckAllExecute
end
object actUncheckAll: TAction
Category = 'check all'
Caption = 'Uncheck All'
OnExecute = actUncheckAllExecute
end
object actUninstallChecked: TAction
Category = 'install'
Caption = 'Uninstall checked'
Enabled = False
OnExecute = actUninstallCheckedExecute
end
object actLoadCheckedList: TAction
Category = 'load and save'
Caption = 'Load checked items'
OnExecute = actLoadCheckedListExecute
end
object actInstallOne: TAction
Category = 'install'
Caption = 'Install highlighted'
Enabled = False
OnExecute = actInstallOneExecute
end
object actUninstallOne: TAction
Category = 'install'
Caption = 'Uninstall highlighted'
Enabled = False
OnExecute = actUninstallOneExecute
end
end
object DosCommand: TDosCommand
InputToOutput = False
MaxTimeAfterBeginning = 60
MaxTimeAfterLastOutput = 30
OnNewLine = DosCommandNewLine
OnTerminated = DosCommandTerminated
Left = 225
Top = 265
end
object mnuCheckListPopup: TPopupMenu
Left = 224
Top = 328
object CheckAll1: TMenuItem
Action = actCheckAll
end
object UncheckAll1: TMenuItem
Action = actUncheckAll
end
object N1: TMenuItem
Caption = '-'
end
object InstallChecked1: TMenuItem
Action = actInstallChecked
end
object UninstallChecked1: TMenuItem
Action = actUninstallChecked
end
object Installhighlightedpackage1: TMenuItem
Action = actInstallOne
end
object Uninstallhighlightedpackage1: TMenuItem
Action = actUninstallOne
end
object N2: TMenuItem
Caption = '-'
end
object Savedcheckeditems1: TMenuItem
Action = actSaveCheckedList
end
object actLoadCheckedList1: TMenuItem
Action = actLoadCheckedList
end
end
object FileOpenDialogSavedChecks: TFileOpenDialog
DefaultExtension = '*.txt'
FavoriteLinks = <>
FileTypes = <
item
DisplayName = 'Text files'
FileMask = '*.txt'
end
item
DisplayName = 'Any file'
FileMask = '*.*'
end>
Options = [fdoPathMustExist, fdoFileMustExist]
Title = 'Open a saved set of GetIt checked names'
Left = 348
Top = 304
end
object FileSaveDialogSavedChecks: TFileSaveDialog
DefaultExtension = '*.txt'
FavoriteLinks = <>
FileTypes = <
item
DisplayName = 'Text files'
FileMask = '*.txt'
end
item
DisplayName = 'Any file'
FileMask = '*.*'
end>
Options = [fdoOverWritePrompt, fdoCreatePrompt]
Title = 'Save a set of GetIt checked names'
Left = 344
Top = 352
end
object dlgClearChecksFirst: TTaskDialog
Buttons = <>
Caption = 'AutoGetIt'
CommonButtons = [tcbYes, tcbNo, tcbCancel]
DefaultButton = tcbCancel
RadioButtons = <>
Text =
'Should all currently checked packages be unchcecked before loadi' +
'ng the saved list of checked packages?'
Title = 'Clear checked first?'
Left = 352
Top = 256
end
end