Chip Hitware 6 A/CHIP_HITWARE6_A.iso/edukacja/SALibrary/_SETUP.1/SALib.exe/0/RCDATA/TSAREGFORM/TSAREGFORM.txt

Text File | 1998-05-16 | 19.5 KB | 849 lines

object SARegForm: TSARegForm
  Left = 259
  Top = 105
  BorderStyle = bsDialog
  Caption = 'Scholar'#39's Aid 3 Pro Order Form'
  ClientHeight = 266
  ClientWidth = 348
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object aBook: TNotebook
    Left = 0
    Top = 0
    Width = 348
    Height = 219
    Align = alClient
    TabOrder = 0
    OnPageChanged = aBookPageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'name'
      object LThank: TLabel
        Left = 26
        Top = 12
        Width = 275
        Height = 13
        Caption = 'Thank you for ordering the best aid for scholars.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = 2
        Top = 80
        Width = 347
        Height = 9
        Shape = bsTopLine
      end
      object Label15: TLabel
        Left = 26
        Top = 160
        Width = 243
        Height = 13
        Caption = 'Your order number will be sent to this email address.'
      end
      object Label23: TLabel
        Left = 200
        Top = 180
        Width = 129
        Height = 13
        Caption = 'e.g., [e-mail]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label28: TLabel
        Left = 26
        Top = 92
        Width = 51
        Height = 13
        Caption = 'User name'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label29: TLabel
        Left = 26
        Top = 148
        Width = 65
        Height = 13
        Caption = 'Email address'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LSee: TLabel
        Left = 289
        Top = 30
        Width = 24
        Height = 13
        Caption = 'here.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
        OnClick = LSeeClick
      end
      object Label37: TLabel
        Left = 28
        Top = 44
        Width = 277
        Height = 29
        AutoSize = False
        Caption =
          'You can go back to previous pages to correct information at any ' +
          'point in this process.'
        WordWrap = True
      end
      object LMethod: TLabel
        Left = 28
        Top = 30
        Width = 259
        Height = 13
        Caption = 'All information will be encrypted. To see a sample, click'
      end
      object Label12: TLabel
        Left = 26
        Top = 105
        Width = 183
        Height = 13
        Caption = 'It must be identical with the user name.'
      end
      object Label13: TLabel
        Left = 207
        Top = 114
        Width = 1
        Height = 1
        AutoSize = False
        Transparent = True
        OnDblClick = Label28DblClick
      end
      object EName: TEdit
        Left = 26
        Top = 121
        Width = 167
        Height = 21
        Enabled = False
        TabOrder = 0
      end
      object EEmail: TEdit
        Left = 26
        Top = 176
        Width = 167
        Height = 21
        TabOrder = 1
      end
      object EProductID: TEdit
        Left = 206
        Top = 121
        Width = 95
        Height = 21
        CharCase = ecUpperCase
        TabOrder = 2
        Visible = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'creditcard'
      object Label1: TLabel
        Left = 22
        Top = 12
        Width = 307
        Height = 57
        AutoSize = False
        Caption =
          'Please fill blanks. The data will be encrypted before they leave' +
          ' your computer. No one can see the data until a specially writte' +
          'n program by Scholar'#39's Aid, Inc. decrypts the data in a computer' +
          ' completely isolated from the Internet.'
        WordWrap = True
      end
      object Label3: TLabel
        Left = 64
        Top = 92
        Width = 91
        Height = 14
        Caption = 'credit card number'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 180
        Top = 92
        Width = 66
        Height = 14
        Caption = 'name on card'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label5: TLabel
        Left = 286
        Top = 92
        Width = 46
        Height = 13
        AutoSize = False
        Caption = 'exp. date'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label6: TLabel
        Left = 23
        Top = 92
        Width = 35
        Height = 14
        Caption = 'amount'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 23
        Top = 132
        Width = 40
        Height = 14
        Caption = 'address'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label8: TLabel
        Left = 23
        Top = 192
        Width = 17
        Height = 14
        Caption = 'city'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label9: TLabel
        Left = 264
        Top = 192
        Width = 37
        Height = 14
        Caption = 'country'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label10: TLabel
        Left = 202
        Top = 192
        Width = 41
        Height = 14
        Caption = 'zip code'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label11: TLabel
        Left = 146
        Top = 192
        Width = 24
        Height = 14
        Caption = 'state'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label35: TLabel
        Left = 286
        Top = 128
        Width = 53
        Height = 13
        Caption = 'e.g., 04/98'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object MECardN: TMaskEdit
        Left = 62
        Top = 106
        Width = 113
        Height = 21
        Hint = 'will be encripted for security'
        EditMask = '0000\-0000\-0000\-0000;0;_'
        MaxLength = 19
        TabOrder = 4
      end
      object MEExpire: TMaskEdit
        Left = 286
        Top = 106
        Width = 43
        Height = 21
        Hint = 'will be encripted for security'
        EditMask = '!00/00;1;_'
        MaxLength = 5
        TabOrder = 6
        Text = '  /  '
      end
      object MEAmount: TMaskEdit
        Left = 22
        Top = 106
        Width = 37
        Height = 21
        Hint = 'You decide the amount.'
        EditMask = '\$999;0; '
        MaxLength = 4
        TabOrder = 3
        Text = '99'
      end
      object EStreet: TEdit
        Left = 22
        Top = 146
        Width = 209
        Height = 21
        TabOrder = 7
      end
      object ECardName: TEdit
        Left = 178
        Top = 106
        Width = 105
        Height = 21
        Hint = 'will be encripted for security'
        CharCase = ecUpperCase
        TabOrder = 5
      end
      object ECity: TEdit
        Left = 22
        Top = 172
        Width = 121
        Height = 21
        TabOrder = 8
      end
      object EState: TEdit
        Left = 146
        Top = 172
        Width = 53
        Height = 21
        CharCase = ecUpperCase
        TabOrder = 9
      end
      object ECountry: TEdit
        Left = 264
        Top = 172
        Width = 65
        Height = 21
        CharCase = ecUpperCase
        TabOrder = 11
      end
      object EZip: TEdit
        Left = 202
        Top = 172
        Width = 59
        Height = 21
        CharCase = ecUpperCase
        TabOrder = 10
      end
      object RBMaster: TRadioButton
        Left = 70
        Top = 76
        Width = 79
        Height = 17
        Caption = 'MasterCard'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RBCheckClick
      end
      object RBVisa: TRadioButton
        Left = 152
        Top = 76
        Width = 61
        Height = 17
        Caption = 'VISA'
        TabOrder = 1
        OnClick = RBCheckClick
      end
      object RBCheck: TRadioButton
        Left = 216
        Top = 76
        Width = 65
        Height = 17
        Caption = 'Check'
        TabOrder = 2
        OnClick = RBCheckClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'survey'
      object Label31: TLabel
        Left = 26
        Top = 12
        Width = 251
        Height = 13
        Caption = 'Please supply the following information for our survey.'
      end
      object Label32: TLabel
        Left = 26
        Top = 32
        Width = 55
        Height = 13
        Caption = 'Occupation'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label33: TLabel
        Left = 26
        Top = 76
        Width = 195
        Height = 13
        Caption = 'Where did you learn about Scholar'#39's Aid?'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object Label34: TLabel
        Left = 26
        Top = 120
        Width = 307
        Height = 29
        AutoSize = False
        Caption =
          'Comments: Whatever you want to say (suggestions, complaints, dis' +
          'count amount and why, etc.)'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object CBOccu: TComboBox
        Left = 27
        Top = 48
        Width = 203
        Height = 21
        DropDownCount = 10
        ItemHeight = 13
        Items.Strings = (
          'Student (Undergraduate)'
          'Student (master'#39's program)'
          'Student (doctoral program)'
          'University Teacher'
          'Freelancer writer'
          'Journalist'
          'Reporter'
          'Editor'
          'Other (please specify)'
          '')
        TabOrder = 0
      end
      object CBLearn: TComboBox
        Left = 26
        Top = 92
        Width = 163
        Height = 21
        ItemHeight = 13
        Items.Strings = (
          'Friend'
          'Teacher'
          'Internet (which site?)'
          'News paper'
          'Magazine'
          'Other (please specify)'
          '')
        TabOrder = 1
      end
      object MComment: TMemo
        Left = 26
        Top = 148
        Width = 299
        Height = 61
        ScrollBars = ssVertical
        TabOrder = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'confirm'
      object Label2: TLabel
        Left = 22
        Top = 12
        Width = 319
        Height = 31
        AutoSize = False
        Caption =
          'Confirm that the following information is accurate. If it is not' +
          ', please go back and make the necessary corrections before proce' +
          'eding.'
        WordWrap = True
      end
      object Label19: TLabel
        Left = 24
        Top = 50
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Name :'
        Transparent = True
      end
      object Label20: TLabel
        Left = 24
        Top = 63
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Email :'
        Transparent = True
      end
      object Label21: TLabel
        Left = 24
        Top = 85
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Amount :'
        Transparent = True
      end
      object Label22: TLabel
        Left = 24
        Top = 98
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Card Number :'
        Transparent = True
      end
      object Label24: TLabel
        Left = 24
        Top = 111
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Name on Card :'
        Transparent = True
      end
      object Label25: TLabel
        Left = 12
        Top = 125
        Width = 85
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Expiration Date :'
        Transparent = True
      end
      object Label26: TLabel
        Left = 24
        Top = 146
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Address :'
        Transparent = True
      end
      object LAddress: TLabel
        Left = 104
        Top = 160
        Width = 221
        Height = 33
        AutoSize = False
        Caption = 'Label'
        WordWrap = True
      end
      object LName: TLabel
        Left = 104
        Top = 50
        Width = 205
        Height = 13
        AutoSize = False
        Caption = 'LName'
      end
      object LEmail: TLabel
        Left = 104
        Top = 63
        Width = 205
        Height = 13
        AutoSize = False
        Caption = 'LEmail'
      end
      object LAmount: TLabel
        Left = 104
        Top = 85
        Width = 205
        Height = 13
        AutoSize = False
        Caption = 'LAmount'
      end
      object LCardN: TLabel
        Left = 104
        Top = 98
        Width = 205
        Height = 13
        AutoSize = False
        Caption = 'LCardN'
      end
      object LCardName: TLabel
        Left = 104
        Top = 111
        Width = 205
        Height = 13
        AutoSize = False
        Caption = 'LCardName'
      end
      object LExpire: TLabel
        Left = 104
        Top = 125
        Width = 205
        Height = 13
        AutoSize = False
        Caption = 'LExpire'
      end
      object LStreet: TLabel
        Left = 104
        Top = 146
        Width = 225
        Height = 13
        AutoSize = False
        Caption = 'LStreet'
      end
      object LMakesure: TLabel
        Left = 12
        Top = 196
        Width = 325
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'transfer'
      object LStatus: TLabel
        Left = 26
        Top = 14
        Width = 288
        Height = 13
        AutoSize = False
      end
      object Memo1: TRichEdit
        Left = 8
        Top = 33
        Width = 333
        Height = 177
        TabOrder = 0
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'cancel'
      object Label18: TLabel
        Left = 40
        Top = 162
        Width = 189
        Height = 13
        Caption = 'To continue the registration, click Order.'
      end
      object Label36: TLabel
        Left = 40
        Top = 180
        Width = 121
        Height = 13
        Caption = 'To order later, click Later.'
      end
      object Label16: TLabel
        Left = 36
        Top = 28
        Width = 3
        Height = 13
        Visible = False
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 219
    Width = 348
    Height = 47
    Align = alBottom
    TabOrder = 1
    object SBToggle: TSpeedButton
      Left = 26
      Top = 10
      Width = 25
      Height = 25
      Hint = 'Toggle between Internet and Printing'
      Caption = 'I/P'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SBToggleClick
    end
    object BPrev: TButton
      Left = 57
      Top = 10
      Width = 83
      Height = 25
      Caption = '<< &Previous'
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BPrevClick
    end
    object BNext: TButton
      Left = 140
      Top = 10
      Width = 83
      Height = 25
      Caption = '&Next >>'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BNextClick
    end
    object Button1: TButton
      Left = 284
      Top = 10
      Width = 40
      Height = 25
      Caption = '&Help'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = Button1Click
    end
    object BCancel: TButton
      Left = 230
      Top = 10
      Width = 48
      Height = 25
      Caption = '&Cancel'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BCancelClick
    end
  end
  object _HTTP1: T_HTTP
    NoCache = False
    ContentTypePost = 'application/x-www-form-urlencoded'
    Left = 308
    Top = 4
  end
end