home *** CD-ROM | disk | FTP | other *** search
- object ApplyRegistrationCode: TApplyRegistrationCode
- Left = 128
- Top = 98
- BorderStyle = bsDialog
- Caption = 'Apply Registration Code...'
- ClientHeight = 206
- ClientWidth = 304
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object LMDFill1: TLMDFill
- Left = 0
- Top = 41
- Width = 304
- Height = 165
- Align = alClient
- Bevel.Mode = bmCustom
- Bevel.StandardStyle = lsSingleLowered
- Caption.Font.Charset = DEFAULT_CHARSET
- Caption.Font.Color = clWindowText
- Caption.Font.Height = -11
- Caption.Font.Name = 'MS Sans Serif'
- Caption.Font.Style = []
- FillObject.Style = sfBitmap
- end
- object Label1: TLabel
- Left = 16
- Top = 50
- Width = 265
- Height = 65
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Please apply your registration code here below!'#13#10'A special messa' +
- 'ge will be posted to our office telling us about application of ' +
- 'the code. If you do not enter any code, or if the code is illega' +
- 'l, no message will be sent!'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object Label2: TLabel
- Left = 53
- Top = 120
- Width = 31
- Height = 13
- Alignment = taRightJustify
- Caption = 'Name:'
- Transparent = True
- end
- object Label3: TLabel
- Left = 42
- Top = 144
- Width = 42
- Height = 13
- Alignment = taRightJustify
- Caption = 'Userkey:'
- Transparent = True
- end
- object LMDLabelFill1: TLMDLabelFill
- Left = 4
- Top = 173
- Width = 120
- Height = 28
- FillObject.Style = sfGradient
- FillObject.Gradient.Color = clRed
- FillObject.Gradient.ColorCount = 31
- FillObject.Gradient.Style = gstElliptic
- Caption = 'Please wait...'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -21
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- FontFx.Style = tdRaisedShadow
- ParentFont = False
- Visible = False
- end
- object PanelManager1: TPanelManager
- Left = 0
- Top = 0
- Width = 304
- Height = 41
- ButtonHeight = 1
- TabHeight = 13
- TabColor = clBlack
- TabHighColor = 14013868
- TabHighLight = True
- object ButtonPanel: TMPanel
- Left = 10
- Top = 0
- Width = 294
- Height = 41
- TabCaption = 'Buttons'
- ParentTabColor = True
- object LMDFill2: TLMDFill
- Left = 1
- Top = 1
- Width = 257
- Height = 39
- Align = alClient
- Bevel.Mode = bmCustom
- Bevel.StandardStyle = lsSingleLowered
- Caption.Font.Charset = DEFAULT_CHARSET
- Caption.Font.Color = clWindowText
- Caption.Font.Height = -11
- Caption.Font.Name = 'MS Sans Serif'
- Caption.Font.Style = []
- FillObject.Style = sfBitmap
- end
- object Panel3: TPanel
- Left = 258
- Top = 1
- Width = 35
- Height = 39
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object Panel16: TPanel
- Left = 1
- Top = 0
- Width = 34
- Height = 39
- Align = alRight
- BevelOuter = bvLowered
- TabOrder = 0
- object Animate1: TAnimate
- Left = 1
- Top = 1
- Width = 32
- Height = 37
- Active = False
- Align = alClient
- Color = clBtnFace
- FileName = 'Working.avi'
- ParentColor = False
- StopFrame = 24
- Transparent = False
- end
- end
- end
- end
- end
- object Edit1: TEdit
- Left = 90
- Top = 117
- Width = 164
- Height = 21
- TabOrder = 1
- end
- object Edit2: TEdit
- Left = 90
- Top = 141
- Width = 164
- Height = 21
- TabOrder = 2
- end
- object Button1: TButton
- Left = 134
- Top = 175
- Width = 75
- Height = 25
- Caption = 'Apply'
- Default = True
- TabOrder = 3
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 215
- Top = 175
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 4
- OnClick = Button2Click
- end
- object MultiLang1: TMultiLang
- Languages = 2
- Words.Strings = (
- '%Form%'
- 'Apply Registration Code...'
- 'Sl� inn skr�ningarlykil...'
- 'PanelManager1'
- ''
- ''
- 'ButtonPanel'
- ''
- ''
- 'Panel3'
- ''
- ''
- 'Panel16'
- ''
- ''
- 'Label1'
-
- 'Please apply your registration code here below!'#13#10'A special messa' +
- 'ge will be posted to our office telling us about application of ' +
- 'the code. If you do not enter any code, or if the code is illega' +
- 'l, no message will be sent!'
-
- 'Vinsamlega sl��u inn lykil �inn h�r fyrir ne�an!'#13#10'Sendur ver�ur ' +
- 'p�stur me� skilabo�um um notkun lykilsins til okkar. Ef lykill e' +
- 'r rangur e�a sleppt er nafni/lykli er ekki sent p�st!'
- 'Label2'
- 'Name:'
- 'Nafn:'
- 'Label3'
- 'Userkey:'
- 'Lykill:'
- 'Edit1'
- ''
- ''
- 'Edit2'
- ''
- ''
- 'Button1'
- 'Apply'
- 'Senda!'
- 'Button2'
- 'Cancel'
- 'H�tta vi�'
- 'LMDLabelFill1'
- 'Please wait...'
- 'B��i�...')
- Left = 232
- Top = 40
- end
- object msMessage1: TmsMessage
- ContentType = 'text/plain'
- Recipients.Items = (
- 'TransSoft'
- 'bjorn@fastservice.com')
- ReturnReceipt = False
- Left = 273
- Top = 53
- end
- object SendReg: TmsSMTP
- WinsockLoaded = True
- DefaultPort = 25
- MailMessage = msMessage1
- Left = 272
- Top = 39
- end
- object HTTP: TagHTTP
- WinsockLoaded = True
- DefaultPort = 80
- TimeOut = 30
- OnError = HTTPError
- Left = 170
- Top = 32
- end
- end
-