WDR Computer Club Digital 1997 February/club9702.bin/SHARE95/95GOMOKU/_SETUP.1/Gomoku.exe/0/RCDATA/TFRMREGISTRATION/TFRMREGISTRATION.txt

Text File | 1996-09-02 | 9KB | 382 lines

object frmRegistration: TfrmRegistration
  Left = 193
  Top = 93
  Width = 598
  Height = 440
  HorzScrollBar.Range = 1200
  HorzScrollBar.Visible = False
  VertScrollBar.Range = 2000
  VertScrollBar.Visible = False
  ActiveControl = edtName
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Go-Moku Registration:'
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MSI Console'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label7: TLabel
    Left = 386
    Top = 132
    Width = 8
    Height = 12
  end
  object Panel1: TPanel
    Left = 340
    Top = 7
    Width = 250
    Height = 369
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Bevel1: TBevel
      Left = 7
      Top = 228
      Width = 234
      Height = 7
      Shape = bsBottomLine
    end
    object Label3: TLabel
      Left = 19
      Top = 311
      Width = 224
      Height = 12
      Caption = 'Registration form filled on:'
      Transparent = True
    end
    object lblCurrentDate: TLabel
      Left = 93
      Top = 326
      Width = 8
      Height = 12
      Alignment = taCenter
      Transparent = True
    end
    object Label6: TLabel
      Left = 41
      Top = 349
      Width = 136
      Height = 12
      Caption = 'Go-Moku Version :'
    end
    object Label9: TLabel
      Left = 184
      Top = 349
      Width = 24
      Height = 12
      Caption = '1.2'
    end
    object Bevel2: TBevel
      Left = 8
      Top = 301
      Width = 233
      Height = 7
      Shape = bsBottomLine
    end
    object Bevel3: TBevel
      Left = 7
      Top = 339
      Width = 234
      Height = 7
      Shape = bsBottomLine
    end
    object Memo2: TMemo
      Left = 4
      Top = 239
      Width = 241
      Height = 62
      TabStop = False
      Alignment = taCenter
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'If you have any questions regarding '
        'the registration you can mail the '
        'author at the above address or e-mail '
        'him at [e-mail].')
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      WantReturns = False
    end
    object Memo1: TMemo
      Left = 4
      Top = 6
      Width = 241
      Height = 223
      TabStop = False
      Alignment = taCenter
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'Please send the completed form to:'
        ''
        'Stas Drapkin'
        '6020 Bathurst st. Apt. 905'
        'North York, M2R 1Z8'
        'Ontario, Canada'
        ''
        'Note that due to the low '
        'registration cost the only two currently '
        'accepted payment methods are cash or checks'
        'in $US or $Cdn.'
        ''
        'If You prefer to write a check - please make it'
        'payable to Oleg Drapkin.')
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      WantReturns = False
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 2
    Width = 337
    Height = 374
    Color = clSilver
    ParentColor = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 22
      Width = 99
      Height = 13
      Caption = '&Name (required) :'
      Color = clBlack
      FocusControl = edtName
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 8
      Top = 74
      Width = 89
      Height = 13
      Caption = 'Postal &Address:'
      Color = clBlack
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label5: TLabel
      Left = 8
      Top = 47
      Width = 43
      Height = 13
      Caption = '&E-mail :'
      Color = clBlack
      FocusControl = edtEmail
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 8
      Top = 321
      Width = 264
      Height = 12
      Caption = '&Number of copies {at $5 US each}:'
      Color = clBlack
      FocusControl = edtNumberOfCopies
      ParentColor = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 8
      Top = 355
      Width = 56
      Height = 12
      Caption = 'Total :'
      Color = clBlack
      ParentColor = False
      Transparent = True
    end
    object lblTotal: TLabel
      Left = 70
      Top = 355
      Width = 24
      Height = 12
      Caption = '$10'
      Color = clBtnFace
      ParentColor = False
      Transparent = True
    end
    object Image1: TImage
      Left = 41
      Top = 108
      Width = 29
      Height = 34
      AutoSize = True
      Picture.Data = {<image000.bmp>}
    end
    object Bevel4: TBevel
      Left = 7
      Top = 339
      Width = 298
      Height = 7
      Shape = bsBottomLine
    end
    object rgrpRegistrationMethod: TRadioGroup
      Left = 10
      Top = 184
      Width = 319
      Height = 57
      Hint = 'Choose How Registration Number Will Be Delivered To You'
      HelpContext = 2004
      Caption = '&Deliver the registration number by:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MSI Console'
      Font.Style = []
      Items.Strings = (
        'Email {free}'
        'Regular Mail {$1 US}')
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TabStop = True
      OnClick = rgrpRegistrationMethodClick
    end
    object edtName: TEdit
      Left = 133
      Top = 18
      Width = 196
      Height = 21
      Hint = 'Enter Your Name'
      HelpContext = 2001
      Ctl3D = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 26
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object edtEmail: TEdit
      Left = 56
      Top = 43
      Width = 273
      Height = 21
      Hint = 'Enter Your E-mail Address (if you have one)'
      HelpContext = 2002
      CharCase = ecLowerCase
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 24
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object edtNumberOfCopies: TEdit
      Left = 280
      Top = 317
      Width = 25
      Height = 21
      Hint = 'Select Number Of Copies (One Copy Per Machine Allowed)'
      HelpContext = 2005
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnChange = edtNumberOfCopiesChange
    end
    object memoPostalAddress: TMemo
      Left = 122
      Top = 74
      Width = 207
      Height = 104
      Hint = 'Enter Your Postal Address'
      HelpContext = 2003
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxLength = 196
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
    object RadioGroup1: TRadioGroup
      Left = 8
      Top = 248
      Width = 321
      Height = 57
      Hint = 'Choose Your payment method'
      Caption = 'Payment method:'
      Items.Strings = (
        'Cash'
        'Check made payable to '#39'Oleg Drapkin'#39)
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
    end
  end
  object btnPrint: TButton
    Left = 129
    Top = 384
    Width = 75
    Height = 25
    Hint = 'Print The Registration Form For Sending'
    Caption = '&Print'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = btnPrintClick
  end
  object btnCancel: TButton
    Left = 385
    Top = 384
    Width = 75
    Height = 25
    Hint = 'Cancel Registration'
    Caption = '&Cancel'
    ModalResult = 2
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object PrintDialog: TPrintDialog
    Options = [poHelp]
    Left = 289
    Top = 380
  end
end