Hot Shareware 32/hot34.iso/ficheros/9APLI/32PSHD30.ZIP/_SETUP.1/HAO30.exe/0/RCDATA/TORDERFORM/TORDERFORM.txt

Text File | 1998-02-19 | 14KB | 640 lines

object OrderForm: TOrderForm
  Left = 169
  Top = 98
  ActiveControl = NameEd
  BorderStyle = bsDialog
  Caption = 'Order Form'
  ClientHeight = 448
  ClientWidth = 580
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 401
    Height = 401
    Shape = bsFrame
    IsControl = True
  end
  object Label1: TLabel
    Left = 16
    Top = 13
    Width = 384
    Height = 39
    Caption =
      'Please, take your time and fill in as much information as possib' +
      'le so that we can serve you better. If you need more information' +
      ' click on Help button.'
    WordWrap = True
  end
  object Bevel3: TBevel
    Left = 416
    Top = 13
    Width = 161
    Height = 396
    Shape = bsFrame
  end
  object Label16: TLabel
    Left = 416
    Top = 0
    Width = 101
    Height = 13
    Caption = 'Price Calculation:'
  end
  object Label17: TLabel
    Left = 424
    Top = 201
    Width = 34
    Height = 13
    Caption = 'Price:'
  end
  object Label18: TLabel
    Left = 424
    Top = 333
    Width = 34
    Height = 13
    Caption = 'Total:'
  end
  object Label19: TLabel
    Left = 536
    Top = 201
    Width = 18
    Height = 13
    Caption = 'US'
  end
  object Label20: TLabel
    Left = 536
    Top = 333
    Width = 23
    Height = 13
    Caption = 'Cdn'
  end
  object Label22: TLabel
    Left = 424
    Top = 156
    Width = 101
    Height = 13
    Caption = 'Number Of Users:'
  end
  object Label21: TLabel
    Left = 424
    Top = 255
    Width = 119
    Height = 13
    Caption = 'Shipping && Handling:'
  end
  object Label23: TLabel
    Left = 536
    Top = 273
    Width = 18
    Height = 13
    Caption = 'US'
  end
  object Bevel4: TBevel
    Left = 417
    Top = 356
    Width = 159
    Height = 9
    Shape = bsTopLine
    Visible = False
  end
  object Label24: TLabel
    Left = 424
    Top = 307
    Width = 34
    Height = 13
    Caption = 'Total:'
  end
  object Label25: TLabel
    Left = 536
    Top = 307
    Width = 18
    Height = 13
    Caption = 'US'
  end
  object Bevel5: TBevel
    Left = 417
    Top = 295
    Width = 159
    Height = 9
    Shape = bsTopLine
  end
  object Label26: TLabel
    Left = 424
    Top = 387
    Width = 34
    Height = 13
    Caption = 'Total:'
    Visible = False
  end
  object Label27: TLabel
    Left = 536
    Top = 387
    Width = 23
    Height = 13
    Caption = 'Cdn'
    Visible = False
  end
  object Label28: TLabel
    Left = 420
    Top = 232
    Width = 39
    Height = 13
    Caption = 'Media:'
  end
  object OKBtn: TBitBtn
    Left = 332
    Top = 416
    Width = 77
    Height = 27
    Hint = 'Close Order Form'
    Caption = '&Close'
    TabOrder = 14
    Kind = bkOK
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 252
    Top = 416
    Width = 77
    Height = 27
    Hint = 'Display Help Window'
    TabOrder = 13
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object BitBtn1: TBitBtn
    Left = 91
    Top = 416
    Width = 77
    Height = 27
    Hint = 'Print This Order Form On Default Windows Printer'
    Caption = '&Print'
    TabOrder = 11
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object Panel1: TPanel
    Left = 16
    Top = 56
    Width = 385
    Height = 345
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 10
      Width = 57
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Name:'
    end
    object Label3: TLabel
      Left = 4
      Top = 33
      Width = 61
      Height = 13
      Alignment = taRightJustify
      Caption = 'Address 1:'
    end
    object Label8: TLabel
      Left = 3
      Top = 122
      Width = 77
      Height = 13
      Caption = 'Telephone #:'
    end
    object Label9: TLabel
      Left = 107
      Top = 122
      Width = 89
      Height = 13
      Caption = 'E-Mail Address:'
    end
    object Label10: TLabel
      Left = 235
      Top = 122
      Width = 112
      Height = 13
      Caption = 'Source Of Program:'
    end
    object Label11: TLabel
      Left = 8
      Top = 158
      Width = 160
      Height = 13
      Caption = 'Comments and Suggestions:'
    end
    object Bevel2: TBevel
      Left = 1
      Top = 227
      Width = 382
      Height = 2
      Shape = bsBottomLine
    end
    object Label12: TLabel
      Left = 8
      Top = 259
      Width = 170
      Height = 13
      Caption = 'If Payment by CREDIT CARD:'
    end
    object Label13: TLabel
      Left = 16
      Top = 271
      Width = 78
      Height = 13
      Caption = 'Card Number:'
    end
    object Label14: TLabel
      Left = 208
      Top = 271
      Width = 92
      Height = 13
      Caption = 'Expiration Date:'
    end
    object Label15: TLabel
      Left = 8
      Top = 235
      Width = 84
      Height = 13
      Caption = 'Payment Form:'
    end
    object Label4: TLabel
      Left = 4
      Top = 47
      Width = 61
      Height = 13
      Alignment = taRightJustify
      Caption = 'Address 2:'
    end
    object Label5: TLabel
      Left = 4
      Top = 60
      Width = 61
      Height = 13
      Alignment = taRightJustify
      Caption = 'Address 3:'
    end
    object Label6: TLabel
      Left = 20
      Top = 101
      Width = 48
      Height = 13
      Caption = 'Country:'
    end
    object Label7: TLabel
      Left = 16
      Top = 308
      Width = 108
      Height = 13
      Caption = 'Card Holder Name:'
    end
    object NameEd: TEdit
      Left = 72
      Top = 6
      Width = 305
      Height = 20
      Hint = 'Enter Company or User Name'
      AutoSize = False
      TabOrder = 0
    end
    object PhoneEd: TEdit
      Left = 5
      Top = 136
      Width = 97
      Height = 21
      Hint = 'Enter The Contact Phone Number'
      TabOrder = 3
    end
    object EMailEd: TEdit
      Left = 107
      Top = 136
      Width = 121
      Height = 21
      Hint = 'Enter The Contact E-Mail Address (if any)'
      TabOrder = 4
    end
    object SourceEd: TComboBox
      Left = 233
      Top = 136
      Width = 145
      Height = 21
      Hint = 'Select The Program Source From The List'
      DropDownCount = 14
      ItemHeight = 13
      Items.Strings = (
        'America Online'
        'BBS'
        'CD-ROM'
        'Compuserve'
        'Computer Magazine'
        'Delphi'
        'Friend'
        'Genie'
        'Internet'
        'Microsoft Network (MSN)'
        'Prodigy'
        'Software Distributor'
        'Other')
      TabOrder = 5
    end
    object CommentsEd: TMemo
      Left = 8
      Top = 172
      Width = 369
      Height = 53
      Hint = 'Enter Your Comments Or Suggestions (if any)'
      TabOrder = 6
    end
    object VisaNoEd: TEdit
      Left = 16
      Top = 285
      Width = 177
      Height = 21
      Hint = 'Enter VISA Card Number (if Payment Form is VISA)'
      TabOrder = 8
    end
    object ExpiryEd: TEdit
      Left = 208
      Top = 285
      Width = 121
      Height = 21
      Hint = 'Enter VISA Card Expiration Date (if Payment Form is VISA)'
      TabOrder = 9
    end
    object PaymentEd: TComboBox
      Left = 96
      Top = 233
      Width = 281
      Height = 21
      Hint = 'Select Payment Form From The List'
      ItemHeight = 13
      Items.Strings = (
        'VISA'
        'MasterCard'
        'Money Order (from US or Canadian bank)'
        'International Postal Money Order'
        'Check (US or Canadian)'
        'Cash')
      TabOrder = 7
      OnChange = PaymentEdChange
    end
    object AddressEd: TMemo
      Left = 72
      Top = 31
      Width = 305
      Height = 62
      Hint = 'Enter The Address Where The Software Should Be Sent'
      ScrollBars = ssHorizontal
      TabOrder = 1
    end
    object CountryCB: TComboBox
      Left = 72
      Top = 98
      Width = 305
      Height = 21
      Hint = 'If your country is not on the list you MUST type it in'
      ItemHeight = 13
      Items.Strings = (
        'Canada'
        'U.S.A.'
        'Australia'
        'Austria'
        'Belgium'
        'Brazil'
        'Czech Republik'
        'Denmark'
        'Finland'
        'France'
        'Germany'
        'Greece'
        'Hong Kong'
        'Norway'
        'Singapore'
        'Slovenia'
        'Indonesia'
        'Italy'
        'Mexico'
        'Poland'
        'Portugal'
        'South Korea'
        'Spain'
        'Sweden'
        'Switzerland'
        'The Netherlands'
        'U.K.')
      TabOrder = 2
      Text = 'Canada'
      OnExit = CountryCBExit
    end
    object CardNameEd: TEdit
      Left = 16
      Top = 320
      Width = 313
      Height = 21
      TabOrder = 10
    end
  end
  object VersionRG: TRadioGroup
    Left = 424
    Top = 37
    Width = 145
    Height = 57
    Hint = '16-bit: Windows 3.1 and 95;  32-bit: Windows 95 and NT'
    Caption = 'Program Version:'
    Items.Strings = (
      '16-bit Version'
      '32-bit Version'
      'Both Versions')
    TabOrder = 2
    OnClick = VersionRGClick
  end
  object LicenseRG: TRadioGroup
    Left = 424
    Top = 97
    Width = 145
    Height = 57
    Caption = 'License Type:'
    Items.Strings = (
      'Single-User'
      'Multi-User'
      'Unlimited')
    TabOrder = 3
    OnClick = LicenseRGClick
  end
  object UsersNoEd: TFilterEdit
    Left = 424
    Top = 171
    Width = 105
    Height = 22
    AutoSize = False
    MaxLength = 3
    TabOrder = 4
    OnChange = UsersNoEdChange
    Alignment = taRightJustify
    ValidChars = '[0..9]'
  end
  object Total1Ed: TMemo
    Left = 460
    Top = 198
    Width = 68
    Height = 22
    Alignment = taRightJustify
    Color = clSilver
    Lines.Strings = (
      '')
    ReadOnly = True
    TabOrder = 5
    WordWrap = False
  end
  object SHEd: TMemo
    Left = 460
    Top = 270
    Width = 68
    Height = 22
    Alignment = taRightJustify
    Color = clSilver
    Lines.Strings = (
      '')
    ReadOnly = True
    TabOrder = 6
    WordWrap = False
  end
  object Total3Ed: TMemo
    Left = 460
    Top = 328
    Width = 68
    Height = 22
    Hint = 'Total Registration Fee in Canadian dollars'
    Alignment = taRightJustify
    Color = clSilver
    Lines.Strings = (
      '')
    ReadOnly = True
    TabOrder = 8
    WordWrap = False
  end
  object Total2Ed: TMemo
    Left = 460
    Top = 303
    Width = 68
    Height = 22
    Hint = 'Total Registration Fee in US Dollars'
    Alignment = taRightJustify
    Color = clSilver
    Lines.Strings = (
      '')
    ReadOnly = True
    TabOrder = 7
    WordWrap = False
  end
  object BitBtn2: TBitBtn
    Left = 172
    Top = 416
    Width = 77
    Height = 27
    Hint = 'Save or Save Encrypted To A File'
    Caption = '&Save'
    TabOrder = 12
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object CheckBox1: TCheckBox
    Left = 424
    Top = 361
    Width = 145
    Height = 17
    Hint = '7% - Goods & Services Tax'
    Caption = 'GST - Canadians Only'
    TabOrder = 9
    Visible = False
    OnClick = CheckBox1Click
  end
  object Total4Ed: TMemo
    Left = 460
    Top = 382
    Width = 68
    Height = 22
    Hint = 'Total Registration Fee in Canadian Dollars With The GST'
    Alignment = taRightJustify
    Color = clSilver
    Lines.Strings = (
      '')
    ReadOnly = True
    TabOrder = 10
    Visible = False
    WordWrap = False
  end
  object CheckBox2: TCheckBox
    Left = 424
    Top = 18
    Width = 145
    Height = 17
    Hint = 'Upgrade from Older Version'
    Caption = 'Upgrade'
    TabOrder = 1
    OnClick = CheckBox1Click
  end
  object MediaCB: TComboBox
    Left = 460
    Top = 230
    Width = 111
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    Items.Strings = (
      '3.5" disk'
      'CD ROM'
      'code (e-mail)')
    TabOrder = 15
    OnChange = MediaCBChange
  end
end