home *** CD-ROM | disk | FTP | other *** search
- object DlgReg: TDlgReg
- Left = 224
- Top = 133
- Width = 310
- Height = 360
- BorderIcons = [biSystemMenu]
- Caption = 'Registration'
- Color = clBtnFace
- Constraints.MaxHeight = 360
- Constraints.MaxWidth = 310
- Constraints.MinHeight = 360
- Constraints.MinWidth = 310
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnShow = FormShow
- DesignSize = (
- 302
- 326)
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 1
- Width = 301
- Height = 324
- Anchors = [akLeft, akTop, akRight, akBottom]
- Picture.Data = {<image000.bmp>}
- Stretch = True
- end
- object Label1: TLabel
- Left = 6
- Top = 33
- Width = 76
- Height = 14
- Caption = 'Choose RakID'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- end
- object Label2: TLabel
- Left = 6
- Top = 70
- Width = 54
- Height = 14
- Caption = 'NickName'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- end
- object Label3: TLabel
- Left = 6
- Top = 109
- Width = 56
- Height = 14
- Caption = 'Password'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- end
- object Label4: TLabel
- Left = 5
- Top = 142
- Width = 97
- Height = 14
- Caption = 'Repeat Password'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label5: TLabel
- Left = 6
- Top = 226
- Width = 80
- Height = 14
- Caption = 'Email Address'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label6: TLabel
- Left = 6
- Top = 252
- Width = 70
- Height = 14
- Caption = 'Repeat Email'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label7: TLabel
- Left = 6
- Top = 4
- Width = 147
- Height = 19
- Caption = 'Register for Raketu'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Shape1: TShape
- Left = 33
- Top = 297
- Width = 22
- Height = 20
- Brush.Color = clLime
- Pen.Color = clGray
- Shape = stCircle
- Visible = False
- end
- object Shape2: TShape
- Left = 10
- Top = 167
- Width = 281
- Height = 46
- Brush.Color = clInfoBk
- Pen.Color = clSilver
- Pen.Width = 2
- end
- object Label11: TLabel
- Left = 15
- Top = 168
- Width = 274
- Height = 49
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Raketu requires your email address for you to recover your passw' +
- 'ord. Raketu does not provide your email address to thrid partie' +
- 's.'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clGray
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object LErrName: TLabel
- Left = 99
- Top = 32
- Width = 7
- Height = 22
- Caption = '*'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label12: TLabel
- Left = 99
- Top = 68
- Width = 7
- Height = 22
- Caption = '*'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label13: TLabel
- Left = 107
- Top = 104
- Width = 7
- Height = 22
- Caption = '*'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label14: TLabel
- Left = 107
- Top = 134
- Width = 7
- Height = 22
- Caption = '*'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label15: TLabel
- Left = 107
- Top = 224
- Width = 7
- Height = 22
- Caption = '*'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label16: TLabel
- Left = 107
- Top = 248
- Width = 7
- Height = 22
- Caption = '*'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label8: TLabel
- Left = 6
- Top = 275
- Width = 99
- Height = 13
- AutoSize = False
- Caption = 'Affiliate RakID'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- end
- object PassWord: TMaskEdit
- Left = 120
- Top = 108
- Width = 170
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 25
- ParentFont = False
- ParentShowHint = False
- PasswordChar = '*'
- ShowHint = True
- TabOrder = 2
- OnKeyPress = PassWordKeyPress
- end
- object PassWordV: TMaskEdit
- Left = 120
- Top = 136
- Width = 170
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 25
- ParentFont = False
- PasswordChar = '*'
- TabOrder = 3
- OnKeyPress = PassWordKeyPress
- end
- object WavID: TEdit
- Left = 110
- Top = 32
- Width = 190
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- MaxLength = 30
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnKeyPress = WavIDKeyPress
- end
- object NickName: TEdit
- Left = 110
- Top = 70
- Width = 190
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 30
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnEnter = NickNameEnter
- end
- object Email: TEdit
- Left = 120
- Top = 222
- Width = 170
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 60
- ParentFont = False
- TabOrder = 4
- OnKeyPress = EmailKeyPress
- end
- object EmailV: TEdit
- Left = 120
- Top = 246
- Width = 170
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 60
- ParentFont = False
- TabOrder = 5
- OnKeyPress = EmailKeyPress
- end
- object BReg: TButton
- Left = 120
- Top = 298
- Width = 83
- Height = 25
- Caption = 'Register'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 7
- OnClick = BRegClick
- end
- object BClose: TButton
- Left = 208
- Top = 298
- Width = 83
- Height = 25
- Caption = 'Close'
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 8
- OnClick = BCloseClick
- end
- object AffID: TEdit
- Left = 120
- Top = 272
- Width = 170
- Height = 22
- Font.Charset = EASTEUROPE_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- MaxLength = 32
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnKeyPress = WavIDKeyPress
- end
- object ClientSocket1: TClientSocket
- Active = False
- ClientType = ctNonBlocking
- Port = 0
- OnConnect = ClientSocket1Connect
- OnRead = ClientSocket1Read
- OnError = ClientSocket1Error
- Left = 72
- Top = 296
- end
- object Timer1: TTimer
- Enabled = False
- OnTimer = Timer1Timer
- Left = 72
- Top = 296
- end
- end
-