root / UFLicense.dfm @ 5
Historique | Voir | Annoter | Télécharger (10,666 ko)
1 |
object FLicense: TFLicense |
---|---|
2 |
Left = 160 |
3 |
Top = 160 |
4 |
HelpContext = 200 |
5 |
Caption = 'License information' |
6 |
ClientHeight = 568 |
7 |
ClientWidth = 816 |
8 |
Color = clBtnFace |
9 |
Font.Charset = DEFAULT_CHARSET |
10 |
Font.Color = clWindowText |
11 |
Font.Height = -11 |
12 |
Font.Name = 'MS Sans Serif' |
13 |
Font.Style = [] |
14 |
OldCreateOrder = True |
15 |
Position = poMainFormCenter |
16 |
Scaled = False |
17 |
OnClose = FormClose |
18 |
OnCreate = FormCreate |
19 |
OnShow = FormShow |
20 |
PixelsPerInch = 96 |
21 |
TextHeight = 13 |
22 |
object PLicense: TPanel |
23 |
Left = 400 |
24 |
Top = 0 |
25 |
Width = 416 |
26 |
Height = 568 |
27 |
Align = alRight |
28 |
BevelOuter = bvNone |
29 |
TabOrder = 0 |
30 |
DesignSize = ( |
31 |
416 |
32 |
568) |
33 |
object BBOk: TBitBtn |
34 |
Left = 240 |
35 |
Top = 534 |
36 |
Width = 80 |
37 |
Height = 25 |
38 |
Anchors = [akRight, akBottom] |
39 |
Caption = 'OK' |
40 |
Default = True |
41 |
ModalResult = 1 |
42 |
NumGlyphs = 2 |
43 |
TabOrder = 5 |
44 |
end |
45 |
object BBCancel: TBitBtn |
46 |
Left = 328 |
47 |
Top = 534 |
48 |
Width = 80 |
49 |
Height = 25 |
50 |
Anchors = [akRight, akBottom] |
51 |
Cancel = True |
52 |
Caption = 'Cancel' |
53 |
ModalResult = 2 |
54 |
NumGlyphs = 2 |
55 |
TabOrder = 6 |
56 |
end |
57 |
object GBLicenseType: TGroupBox |
58 |
Left = 8 |
59 |
Top = 8 |
60 |
Width = 400 |
61 |
Height = 96 |
62 |
Caption = 'License' |
63 |
TabOrder = 0 |
64 |
object RBEvaluation: TRadioButton |
65 |
Left = 8 |
66 |
Top = 18 |
67 |
Width = 80 |
68 |
Height = 17 |
69 |
Caption = 'Evaluation' |
70 |
TabOrder = 0 |
71 |
OnClick = RBLicenseTypeClick |
72 |
end |
73 |
object RBEducation: TRadioButton |
74 |
Left = 8 |
75 |
Top = 42 |
76 |
Width = 80 |
77 |
Height = 17 |
78 |
Caption = 'Education' |
79 |
TabOrder = 1 |
80 |
OnClick = RBLicenseTypeClick |
81 |
end |
82 |
object RBComplete: TRadioButton |
83 |
Left = 8 |
84 |
Top = 66 |
85 |
Width = 80 |
86 |
Height = 17 |
87 |
Caption = 'Complete' |
88 |
TabOrder = 2 |
89 |
OnClick = RBLicenseTypeClick |
90 |
end |
91 |
object PComplete: TPanel |
92 |
Left = 136 |
93 |
Top = 64 |
94 |
Width = 160 |
95 |
Height = 24 |
96 |
BevelOuter = bvNone |
97 |
TabOrder = 3 |
98 |
object LLicenseNumber: TLabel |
99 |
Left = 0 |
100 |
Top = 4 |
101 |
Width = 75 |
102 |
Height = 13 |
103 |
Caption = 'License number' |
104 |
end |
105 |
object PBLicenseNumber: TPBNumEdit |
106 |
Left = 120 |
107 |
Top = 0 |
108 |
Width = 40 |
109 |
Height = 21 |
110 |
Alignment = taRightJustify |
111 |
Decimals = 0 |
112 |
NumberFormat = Standard |
113 |
OnChange = PBLicenseNumberChange |
114 |
TabOrder = 0 |
115 |
end |
116 |
end |
117 |
object PEducation: TPanel |
118 |
Left = 96 |
119 |
Top = 40 |
120 |
Width = 296 |
121 |
Height = 24 |
122 |
BevelOuter = bvNone |
123 |
TabOrder = 4 |
124 |
object LCourse: TLabel |
125 |
Left = 0 |
126 |
Top = 4 |
127 |
Width = 33 |
128 |
Height = 13 |
129 |
Caption = 'Course' |
130 |
end |
131 |
object ECourse: TEdit |
132 |
Left = 40 |
133 |
Top = 0 |
134 |
Width = 256 |
135 |
Height = 21 |
136 |
MaxLength = 40 |
137 |
TabOrder = 0 |
138 |
OnChange = ECourseChange |
139 |
end |
140 |
end |
141 |
end |
142 |
object PInfo: TPanel |
143 |
Left = 8 |
144 |
Top = 110 |
145 |
Width = 400 |
146 |
Height = 344 |
147 |
BevelOuter = bvNone |
148 |
TabOrder = 1 |
149 |
object LPhone: TLabel |
150 |
Left = 8 |
151 |
Top = 260 |
152 |
Width = 31 |
153 |
Height = 13 |
154 |
Caption = 'Phone' |
155 |
end |
156 |
object LMail: TLabel |
157 |
Left = 8 |
158 |
Top = 316 |
159 |
Width = 27 |
160 |
Height = 13 |
161 |
Caption = 'e-mail' |
162 |
end |
163 |
object LLastName: TLabel |
164 |
Left = 8 |
165 |
Top = 36 |
166 |
Width = 49 |
167 |
Height = 13 |
168 |
Caption = 'Last name' |
169 |
end |
170 |
object LFirstName: TLabel |
171 |
Left = 8 |
172 |
Top = 12 |
173 |
Width = 48 |
174 |
Height = 13 |
175 |
Caption = 'First name' |
176 |
end |
177 |
object LFax: TLabel |
178 |
Left = 8 |
179 |
Top = 284 |
180 |
Width = 17 |
181 |
Height = 13 |
182 |
Caption = 'Fax' |
183 |
end |
184 |
object LCompany: TLabel |
185 |
Left = 8 |
186 |
Top = 68 |
187 |
Width = 44 |
188 |
Height = 13 |
189 |
Caption = 'Company' |
190 |
end |
191 |
object LOrganisation: TLabel |
192 |
Left = 8 |
193 |
Top = 68 |
194 |
Width = 46 |
195 |
Height = 13 |
196 |
Caption = 'University' |
197 |
Visible = False |
198 |
end |
199 |
object GBAddress: TGroupBox |
200 |
Left = 0 |
201 |
Top = 96 |
202 |
Width = 400 |
203 |
Height = 144 |
204 |
Caption = 'Address' |
205 |
TabOrder = 3 |
206 |
object LPostalCode: TLabel |
207 |
Left = 8 |
208 |
Top = 68 |
209 |
Width = 44 |
210 |
Height = 13 |
211 |
Caption = 'ZIP code' |
212 |
end |
213 |
object LCity: TLabel |
214 |
Left = 8 |
215 |
Top = 92 |
216 |
Width = 17 |
217 |
Height = 13 |
218 |
Caption = 'City' |
219 |
end |
220 |
object LCountry: TLabel |
221 |
Left = 8 |
222 |
Top = 116 |
223 |
Width = 36 |
224 |
Height = 13 |
225 |
Caption = 'Country' |
226 |
end |
227 |
object EAddress1: TEdit |
228 |
Left = 8 |
229 |
Top = 16 |
230 |
Width = 384 |
231 |
Height = 21 |
232 |
MaxLength = 60 |
233 |
TabOrder = 0 |
234 |
OnChange = EAddress1Change |
235 |
end |
236 |
object EAddress2: TEdit |
237 |
Left = 8 |
238 |
Top = 40 |
239 |
Width = 384 |
240 |
Height = 21 |
241 |
MaxLength = 60 |
242 |
TabOrder = 1 |
243 |
OnChange = EAddress2Change |
244 |
end |
245 |
object EPostalCode: TEdit |
246 |
Left = 88 |
247 |
Top = 64 |
248 |
Width = 64 |
249 |
Height = 21 |
250 |
MaxLength = 10 |
251 |
TabOrder = 2 |
252 |
OnChange = EPostalCodeChange |
253 |
end |
254 |
object ECity: TEdit |
255 |
Left = 88 |
256 |
Top = 88 |
257 |
Width = 192 |
258 |
Height = 21 |
259 |
MaxLength = 30 |
260 |
TabOrder = 3 |
261 |
OnChange = ECityChange |
262 |
end |
263 |
object ECountry: TEdit |
264 |
Left = 88 |
265 |
Top = 112 |
266 |
Width = 192 |
267 |
Height = 21 |
268 |
CharCase = ecUpperCase |
269 |
MaxLength = 30 |
270 |
TabOrder = 4 |
271 |
OnChange = ECountryChange |
272 |
end |
273 |
end |
274 |
object EPhone: TEdit |
275 |
Left = 88 |
276 |
Top = 256 |
277 |
Width = 128 |
278 |
Height = 21 |
279 |
MaxLength = 20 |
280 |
TabOrder = 4 |
281 |
OnChange = EPhoneChange |
282 |
end |
283 |
object EMail: TEdit |
284 |
Left = 88 |
285 |
Top = 312 |
286 |
Width = 256 |
287 |
Height = 21 |
288 |
Hint = 'Address to which the license activation key will be sent' |
289 |
MaxLength = 60 |
290 |
ParentShowHint = False |
291 |
ShowHint = True |
292 |
TabOrder = 6 |
293 |
OnChange = EMailChange |
294 |
end |
295 |
object ELastName: TEdit |
296 |
Left = 88 |
297 |
Top = 32 |
298 |
Width = 192 |
299 |
Height = 21 |
300 |
MaxLength = 30 |
301 |
TabOrder = 1 |
302 |
OnChange = ELastNameChange |
303 |
end |
304 |
object EFirstName: TEdit |
305 |
Left = 88 |
306 |
Top = 8 |
307 |
Width = 192 |
308 |
Height = 21 |
309 |
MaxLength = 30 |
310 |
TabOrder = 0 |
311 |
OnChange = EFirstNameChange |
312 |
end |
313 |
object EFax: TEdit |
314 |
Left = 88 |
315 |
Top = 280 |
316 |
Width = 128 |
317 |
Height = 21 |
318 |
MaxLength = 20 |
319 |
TabOrder = 5 |
320 |
OnChange = EFaxChange |
321 |
end |
322 |
object ECompany: TEdit |
323 |
Left = 88 |
324 |
Top = 64 |
325 |
Width = 256 |
326 |
Height = 21 |
327 |
MaxLength = 40 |
328 |
TabOrder = 2 |
329 |
OnChange = ECompanyChange |
330 |
end |
331 |
end |
332 |
object BBHelp: TBitBtn |
333 |
Left = 152 |
334 |
Top = 534 |
335 |
Width = 80 |
336 |
Height = 25 |
337 |
Anchors = [akRight, akBottom] |
338 |
Caption = 'Help' |
339 |
NumGlyphs = 2 |
340 |
TabOrder = 4 |
341 |
OnClick = BBHelpClick |
342 |
end |
343 |
object GBExport: TGroupBox |
344 |
Left = 8 |
345 |
Top = 456 |
346 |
Width = 264 |
347 |
Height = 64 |
348 |
Caption = 'Request a license activation key' |
349 |
TabOrder = 2 |
350 |
object BBAutomatic: TBitBtn |
351 |
Left = 24 |
352 |
Top = 24 |
353 |
Width = 80 |
354 |
Height = 25 |
355 |
Hint = |
356 |
'Send information from which the license activation key will be g' + |
357 |
'enerated (network connection needed)' |
358 |
Caption = 'Automatic' |
359 |
ParentShowHint = False |
360 |
ShowHint = True |
361 |
TabOrder = 0 |
362 |
OnClick = BBAutomaticClick |
363 |
end |
364 |
object BBManual: TBitBtn |
365 |
Left = 160 |
366 |
Top = 24 |
367 |
Width = 80 |
368 |
Height = 25 |
369 |
Hint = |
370 |
'Create a license activation file that you have to upload manuall' + |
371 |
'y' |
372 |
Caption = 'Manual' |
373 |
ParentShowHint = False |
374 |
ShowHint = True |
375 |
TabOrder = 1 |
376 |
OnClick = BBManualClick |
377 |
end |
378 |
end |
379 |
object GBImport: TGroupBox |
380 |
Left = 280 |
381 |
Top = 456 |
382 |
Width = 128 |
383 |
Height = 64 |
384 |
Caption = 'Validate the license' |
385 |
TabOrder = 3 |
386 |
object BBImport: TBitBtn |
387 |
Left = 24 |
388 |
Top = 24 |
389 |
Width = 80 |
390 |
Height = 25 |
391 |
Hint = |
392 |
'Import the license activation file (InraPorc.lic) that you recie' + |
393 |
'ved by e-mail' |
394 |
Caption = 'Import' |
395 |
ParentShowHint = False |
396 |
ShowHint = True |
397 |
TabOrder = 0 |
398 |
OnClick = BBImportClick |
399 |
end |
400 |
end |
401 |
end |
402 |
object REHelp: TRichEdit |
403 |
Left = 0 |
404 |
Top = 0 |
405 |
Width = 400 |
406 |
Height = 568 |
407 |
Align = alClient |
408 |
Font.Charset = ANSI_CHARSET |
409 |
Font.Color = clWindowText |
410 |
Font.Height = -11 |
411 |
Font.Name = 'MS Sans Serif' |
412 |
Font.Style = [] |
413 |
ParentFont = False |
414 |
ReadOnly = True |
415 |
TabOrder = 1 |
416 |
end |
417 |
object SaveDialogLicFile: TSaveDialog |
418 |
Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofEnableSizing] |
419 |
Left = 40 |
420 |
Top = 8 |
421 |
end |
422 |
object OpenDialogLicFile: TOpenDialog |
423 |
Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing] |
424 |
Left = 40 |
425 |
Top = 64 |
426 |
end |
427 |
object IdHTTPLicense: TIdHTTP |
428 |
IOHandler = IdSSL |
429 |
AllowCookies = True |
430 |
HandleRedirects = True |
431 |
ProxyParams.BasicAuthentication = False |
432 |
ProxyParams.ProxyPort = 0 |
433 |
Request.ContentLength = -1 |
434 |
Request.ContentRangeEnd = -1 |
435 |
Request.ContentRangeStart = -1 |
436 |
Request.ContentRangeInstanceLength = -1 |
437 |
Request.Accept = 'text/html, */*' |
438 |
Request.BasicAuthentication = False |
439 |
Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' |
440 |
Request.Ranges.Units = 'bytes' |
441 |
Request.Ranges = <> |
442 |
HTTPOptions = [hoForceEncodeParams] |
443 |
Left = 40 |
444 |
Top = 120 |
445 |
end |
446 |
object IdSSL: TIdSSLIOHandlerSocketOpenSSL |
447 |
MaxLineAction = maException |
448 |
Port = 0 |
449 |
DefaultPort = 0 |
450 |
SSLOptions.Method = sslvTLSv1_2 |
451 |
SSLOptions.SSLVersions = [sslvTLSv1_2] |
452 |
SSLOptions.Mode = sslmUnassigned |
453 |
SSLOptions.VerifyMode = [] |
454 |
SSLOptions.VerifyDepth = 0 |
455 |
Left = 40 |
456 |
Top = 176 |
457 |
end |
458 |
end |