500 Game Surplus/XSurplus.iso/279/_SETUP.1/UltraLogic.exe/0/RCDATA/TFRMREGISTRATIONCHECKORCASH/TFRMREGISTRATIONCHECKORCASH.txt

Text File | 1996-12-23 | 12KB | 527 lines

object frmRegistrationCheckorCash: TfrmRegistrationCheckorCash
  Left = 14
  Top = 0
  Width = 616
  Height = 445
  HorzScrollBar.Range = 975
  HorzScrollBar.Visible = False
  VertScrollBar.Range = 1625
  VertScrollBar.Visible = False
  ActiveControl = edtName
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsSingle
  Caption = 'Register Ultra Logic'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 314
    Top = 107
    Width = 1
    Height = 8
  end
  object Label10: TLabel
    Left = 32
    Top = 365
    Width = 543
    Height = 13
    Caption =
      'All the given information will be kept confidential. It will not' +
      ' be given away or sold for profit under any circumstances.'
    Transparent = True
  end
  object Bevel4: TBevel
    Left = 2
    Top = 378
    Width = 603
    Height = 7
    Shape = bsBottomLine
  end
  object pnlInfo: TPanel
    Left = 417
    Top = -6
    Width = 189
    Height = 288
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Label3: TLabel
      Left = 20
      Top = 213
      Width = 150
      Height = 13
      Caption = 'Registration form filled on:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lblCurrentDate: TLabel
      Left = 70
      Top = 228
      Width = 48
      Height = 13
      Alignment = taCenter
      Caption = '5/10/96'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 26
      Top = 262
      Width = 112
      Height = 13
      Caption = 'Ultra Logic version:'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label9: TLabel
      Left = 144
      Top = 262
      Width = 19
      Height = 13
      Caption = '1.4'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel3: TBevel
      Left = 5
      Top = 246
      Width = 179
      Height = 6
      Shape = bsBottomLine
    end
    object Bevel2: TBevel
      Left = 5
      Top = 198
      Width = 179
      Height = 6
      Shape = bsBottomLine
    end
    object Bevel1: TBevel
      Left = 5
      Top = 110
      Width = 179
      Height = 6
      Shape = bsBottomLine
    end
    object Memo2: TMemo
      Left = 5
      Top = 121
      Width = 178
      Height = 74
      TabStop = False
      Alignment = taCenter
      Color = clWhite
      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 send email to '
        '[e-mail].')
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      WantReturns = False
    end
    object Memo1: TMemo
      Left = 5
      Top = 9
      Width = 178
      Height = 101
      TabStop = False
      Alignment = taCenter
      Color = clWhite
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'Please send the completed form '
        'to:'
        'Vitaly Livshits'
        '605 Finch Ave. West, Apt 517'
        'Willowdale, Ontario'
        'M2R 1P1'
        'Canada')
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      WantReturns = False
    end
  end
  object btnCancel: TButton
    Left = 315
    Top = 390
    Width = 75
    Height = 25
    HelpContext = 2
    Cancel = True
    Caption = 'Cancel'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    PopupMenu = pmenuWhatsThis
    TabOrder = 1
  end
  object gboxRegistrationInfo: TGroupBox
    Left = 2
    Top = 0
    Width = 412
    Height = 360
    Caption = 'Registration Information:'
    Color = clBtnFace
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 7
      Top = 18
      Width = 95
      Height = 13
      Caption = '&Name (required):'
      Color = clBlack
      FocusControl = edtName
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 7
      Top = 75
      Width = 89
      Height = 13
      Caption = 'Postal &Address:'
      Color = clBlack
      FocusControl = memoPostalAddress
      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 = 7
      Top = 47
      Width = 132
      Height = 13
      Caption = '&Internet Email Address:'
      Color = clBlack
      FocusControl = edtEmail
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 7
      Top = 310
      Width = 205
      Height = 13
      Caption = 'Number of &copies (at 10 US$ each):'
      Color = clBlack
      FocusControl = edtNumberOfCopies
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 7
      Top = 335
      Width = 34
      Height = 13
      Caption = 'Total:'
      Color = clBlack
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object lblTotal: TLabel
      Left = 55
      Top = 335
      Width = 22
      Height = 13
      Caption = '$10'
      Color = clBtnFace
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Image1: TImage
      Left = 54
      Top = 115
      Width = 29
      Height = 34
      AutoSize = True
      Picture.Data = {<image000.bmp>}
    end
    object edtName: TEdit
      Left = 111
      Top = 15
      Width = 295
      Height = 21
      HelpContext = 2001
      Ctl3D = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
    object edtEmail: TEdit
      Left = 149
      Top = 43
      Width = 257
      Height = 21
      HelpContext = 2002
      CharCase = ecLowerCase
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object edtNumberOfCopies: TEdit
      Left = 225
      Top = 307
      Width = 24
      Height = 21
      HelpContext = 2005
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 2
      ParentFont = False
      TabOrder = 5
      OnChange = edtNumberOfCopiesChange
    end
    object memoPostalAddress: TMemo
      Left = 111
      Top = 76
      Width = 294
      Height = 105
      HelpContext = 2003
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object rgroupRegistrationMethod: TRadioGroup
      Left = 6
      Top = 200
      Width = 399
      Height = 42
      HelpContext = 2004
      Caption = 'Deliver the registration number by:'
      Columns = 2
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Items.Strings = (
        'Email'
        'Regular Mail')
      ParentFont = False
      TabOrder = 3
      OnClick = rgroupRegistrationMethodClick
    end
    object rgroupPaymentMethod: TRadioGroup
      Left = 6
      Top = 246
      Width = 400
      Height = 53
      Caption = 'Payment Method:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Items.Strings = (
        'Cash (US$ or Cdn$ only)'
        'Check (US$ or Cdn$ only, made payable to "Vitaly Livshits")')
      ParentFont = False
      TabOrder = 4
    end
  end
  object btnPrint: TButton
    Left = 216
    Top = 390
    Width = 75
    Height = 25
    HelpContext = 2006
    Caption = '&Print'
    Default = True
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = pmenuWhatsThis
    TabOrder = 0
    OnClick = btnPrintClick
  end
  object pnlLogo: TPanel
    Left = 417
    Top = 287
    Width = 189
    Height = 73
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 4
    object lblLogo1: TLabelEffect
      Left = 11
      Top = 6
      Width = 105
      Height = 96
      DepthHighlight = 0
      DepthShadow = 0
      DirectionHighlight = edNone
      DirectionShadow = edNone
      ColourHighlight = clBlack
      EffectStyle = esNone
      ColourScheme = csCustom
      Angle = 10
      Alignment = taCenter
      Caption = 'Ultra Logic'
      Color = clNavy
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object lblLogo2: TLabelEffect
      Left = 54
      Top = -7
      Width = 105
      Height = 96
      DepthHighlight = 0
      DepthShadow = 0
      DirectionHighlight = edNone
      DirectionShadow = edNone
      ColourHighlight = clBlack
      EffectStyle = esNone
      ColourScheme = csCustom
      Angle = 330
      Caption = 'Ultra Logic'
      Color = clNavy
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object lblLogo3: TLabelEffect
      Left = 107
      Top = 16
      Width = 105
      Height = 96
      DepthHighlight = 0
      DepthShadow = 0
      DirectionHighlight = edNone
      DirectionShadow = edNone
      ColourHighlight = clBlack
      EffectStyle = esNone
      ColourScheme = csCustom
      Angle = 200
      Caption = 'Ultra Logic'
      Color = clNavy
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
  end
  object PrintDialog: TPrintDialog
    Options = [poHelp]
    Left = 101
    Top = 389
  end
  object tmrLogo: TTimer
    Interval = 150
    OnTimer = tmrLogoTimer
    Left = 139
    Top = 389
  end
  object pmenuWhatsThis: TPopupMenu
    Left = 58
    Top = 389
    object mitemWhatsThis: TMenuItem
      Caption = '&What'#39's This?'
      ShortCut = 0
      OnClick = mitemWhatsThisClick
    end
  end
end