Statistiques
| Révision:

root / UFLicense.dfm @ 3

Historique | Voir | Annoter | Télécharger (10,587 ko)

1 3 avalancogn 
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.Mode = sslmUnassigned
451 
    SSLOptions.VerifyMode = []
452 
    SSLOptions.VerifyDepth = 0
453 
    Left = 40
454 
    Top = 176
455 
  end
456 
end