-
Notifications
You must be signed in to change notification settings - Fork 24
/
PropertyFile.lfm
303 lines (303 loc) · 6.84 KB
/
PropertyFile.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
object frmPropertyFile: TfrmPropertyFile
Left = 370
Height = 362
Top = 237
Width = 402
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Properties'
ClientHeight = 362
ClientWidth = 402
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poMainFormCenter
LCLVersion = '1.0.6.0'
object btnOk: TButton
Left = 233
Height = 25
Top = 327
Width = 75
Caption = 'Ok'
Default = True
ModalResult = 1
OnClick = btnOkClick
TabOrder = 1
end
object btnCancel: TButton
Left = 319
Height = 25
Top = 327
Width = 75
Caption = 'Cancel'
ModalResult = 2
OnClick = btnCancelClick
TabOrder = 2
end
object PageControl1: TPageControl
Left = 8
Height = 313
Top = 8
Width = 385
ActivePage = tsInfo1
TabIndex = 0
TabOrder = 0
object tsInfo1: TTabSheet
Caption = 'General'
ClientHeight = 287
ClientWidth = 377
object lbInfo1: TLabel
Left = 9
Height = 41
Top = 9
Width = 361
AutoSize = False
Caption = 'Every page in ASuite requires some information about the respective application. All fields are optional except the application''s name.'
ParentColor = False
WordWrap = True
end
object lbName: TLabel
Left = 9
Height = 14
Top = 56
Width = 28
Caption = 'Name'
ParentColor = False
end
object lbPathExe: TLabel
Left = 9
Height = 14
Top = 151
Width = 162
Caption = 'Executable/folder/web page path'
ParentColor = False
end
object lbParameters: TLabel
Left = 8
Height = 14
Top = 197
Width = 105
Caption = 'Parameters (optional)'
ParentColor = False
end
object lbInfo2: TLabel
Left = 8
Height = 25
Top = 243
Width = 361
AutoSize = False
Caption = 'Note: You can use $ASuite even when applications are in the same folder as ASuite.'
ParentColor = False
WordWrap = True
end
object edtName: TEdit
Left = 9
Height = 21
Top = 72
Width = 145
OnEnter = edtNameEnter
TabOrder = 0
end
object edtPathExe: TEdit
Left = 9
Height = 21
Top = 170
Width = 289
OnExit = edtPathExeExit
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = '$ASuite\'
end
object edtParameters: TEdit
Left = 8
Height = 21
Top = 216
Width = 289
TabOrder = 3
end
object btnBrowseExe: TButton
Left = 304
Height = 21
Top = 170
Width = 65
Caption = 'Browse'
OnClick = Browse
TabOrder = 2
end
end
object tsInfo2: TTabSheet
Caption = 'Advanced'
ClientHeight = 287
ClientWidth = 377
object lbPathIcon: TLabel
Left = 8
Height = 14
Top = 48
Width = 133
Caption = 'Custom icon path (optional)'
ParentColor = False
end
object lbAutoExecute: TLabel
Left = 8
Height = 14
Top = 88
Width = 63
Caption = 'Autoexecute'
ParentColor = False
end
object lbWindowState: TLabel
Left = 272
Height = 14
Top = 176
Width = 67
Caption = 'Window state'
ParentColor = False
end
object lbWorkingDir: TLabel
Left = 8
Height = 14
Top = 8
Width = 172
Caption = 'Custom working directory (optional)'
ParentColor = False
end
object lbActionOnExe: TLabel
Left = 221
Height = 14
Top = 129
Width = 65
Caption = 'On execution'
ParentColor = False
end
object edtPathIcon: TEdit
Left = 8
Height = 21
Top = 64
Width = 289
ParentShowHint = False
ShowHint = True
TabOrder = 2
Text = '$ASuite\'
end
object btnBrowseIcon: TButton
Left = 309
Height = 21
Top = 64
Width = 65
Caption = 'Browse'
OnClick = Browse
TabOrder = 3
end
object cxAutoExecute: TComboBox
Left = 8
Height = 21
Top = 104
Width = 249
ItemHeight = 13
Items.Strings = (
'Never'
'Always on startup'
'Only if no previous instances are running'
'Always on shutdown'
)
OnChange = cxAutoExecuteChange
Style = csDropDownList
TabOrder = 4
end
object cxWindowState: TComboBox
Left = 272
Height = 21
Top = 192
Width = 102
ItemHeight = 13
Items.Strings = (
'Normal'
'Minimized'
'Maximized'
)
Style = csDropDownList
TabOrder = 7
end
object edtWorkingDir: TEdit
Left = 8
Height = 21
Top = 24
Width = 289
TabOrder = 0
Text = '$ASuite\'
end
object btnBrowseWorkingDir: TButton
Left = 309
Height = 21
Top = 24
Width = 65
Caption = 'Browse'
OnClick = Browse
TabOrder = 1
end
object cxActionOnExe: TComboBox
Left = 221
Height = 21
Top = 148
Width = 153
ItemHeight = 13
Items.Strings = (
'Default (options)'
'Just run file'
'Run and hide ASuite'
'Run and close ASuite'
)
Style = csDropDownList
TabOrder = 6
end
object cbDontInsertMRU: TCheckBox
Left = 8
Height = 19
Top = 219
Width = 224
Caption = 'Don''t insert this software in recents (MRU)'
TabOrder = 10
end
object cbShortcutDesktop: TCheckBox
Left = 8
Height = 19
Top = 250
Width = 264
Caption = 'Create shortcut on desktop when ASuite is running'
TabOrder = 11
end
object cbHideSoftware: TCheckBox
Left = 8
Height = 19
Top = 152
Width = 161
Caption = 'Hide this software from menu'
TabOrder = 8
end
object btnChangeOrder: TButton
Left = 272
Height = 21
Top = 104
Width = 102
Caption = 'Change order'
OnClick = btnChangeOrderClick
TabOrder = 5
end
object cbDontInsertMFU: TCheckBox
Left = 8
Height = 19
Top = 188
Width = 176
Caption = 'Don''t insert this software in MFU'
TabOrder = 9
end
end
end
object OpenDialog1: TOpenDialog
left = 296
end
end