Encyclopedia of Australia 1998/WEBAUST98.ISO/waust98/rego32.exe/0/RCDATA/TREGFORM/TREGFORM.txt

Text File | 1997-11-05 | 20KB | 955 lines

object RegForm: TRegForm
  Left = 176
  Top = 129
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Registration Wizard'
  ClientHeight = 282
  ClientWidth = 419
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  Visible = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Sockets1: TSockets
    Left = 7
    Top = 353
    Width = 32
    Height = 32
    MaximumReceiveLength = 8192
    OnErrorOccurred = Sockets1ErrorOccurred
  end
  object Sockets2: TSockets
    Left = 7
    Top = 397
    Width = 32
    Height = 32
    MaximumReceiveLength = 8192
    OnErrorOccurred = Sockets1ErrorOccurred
  end
  object grpWiz6a: TGroupBox
    Left = 377
    Top = 405
    Width = 269
    Height = 217
    Caption = ' Select Internet Connection '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 3
    Visible = False
    object lblSelect: TLabel
      Left = 13
      Top = 20
      Width = 246
      Height = 29
      AutoSize = False
      Caption =
        'Select a connection from the list below or click on the Create N' +
        'ew button to setup a new connection:'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lstEntries: TListBox
      Left = 13
      Top = 60
      Width = 242
      Height = 97
      Hint = 'Click on an entry to select it'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object btnCreateEntry: TButton
      Left = 19
      Top = 177
      Width = 106
      Height = 23
      Hint = 'Click to add a new Internet connection'
      Caption = '&Create New...'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnCreateEntryClick
    end
    object btnEditEntry: TButton
      Left = 141
      Top = 177
      Width = 106
      Height = 23
      Hint = 'Click to edit the selected connection'
      Caption = '&Edit Selected...'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnEditEntryClick
    end
  end
  object grpWiz7a: TGroupBox
    Left = 356
    Top = 407
    Width = 269
    Height = 217
    Caption = ' Name and Password '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 4
    Visible = False
    object lblParams: TLabel
      Left = 12
      Top = 43
      Width = 66
      Height = 16
      AutoSize = False
      Caption = 'Connect To:'
    end
    object lblISP: TLabel
      Left = 84
      Top = 43
      Width = 180
      Height = 16
      AutoSize = False
    end
    object lblPassword: TLabel
      Left = 12
      Top = 114
      Width = 59
      Height = 19
      Caption = '&Password:'
    end
    object lblUserName: TLabel
      Left = 12
      Top = 76
      Width = 59
      Height = 19
      Caption = '&User name:'
    end
    object lblNamePass: TLabel
      Left = 12
      Top = 18
      Width = 235
      Height = 19
      AutoSize = False
      Caption = 'Please enter your Name and Password (if blank):'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object txtUserName: TEdit
      Left = 81
      Top = 74
      Width = 158
      Height = 21
      Hint = 'Enter the User name for this connection'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = txtUserNameChange
    end
    object txtPassword: TEdit
      Left = 81
      Top = 112
      Width = 158
      Height = 21
      Hint = 'Enter the Password for this connection'
      ParentShowHint = False
      PasswordChar = '*'
      ShowHint = True
      TabOrder = 1
      OnChange = txtPasswordChange
    end
    object optDialMode: TRadioGroup
      Left = 22
      Top = 203
      Width = 121
      Height = 33
      Caption = 'Dial mode'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Sync'
        'Async')
      TabOrder = 3
      Visible = False
    end
    object chkSave: TCheckBox
      Left = 12
      Top = 155
      Width = 152
      Height = 17
      Hint = 'Save the User name and Password for next time'
      Caption = '&Save Name and Password'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
  end
  object btnClose: TButton
    Left = 337
    Top = 248
    Width = 69
    Height = 21
    Hint = 'Click to close the Registration Wizard'
    Caption = 'Cancel'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = btnCloseClick
  end
  object btnNext: TButton
    Left = 213
    Top = 248
    Width = 74
    Height = 21
    Hint = 'Click to go to the next screen'
    Caption = '&Next >'
    Default = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = btnNextClick
  end
  object btnBack: TButton
    Left = 139
    Top = 248
    Width = 74
    Height = 21
    Hint = 'Click to go to the previous screen'
    Caption = '< &Back'
    Enabled = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = btnBackClick
  end
  object grpWiz8a: TGroupBox
    Left = 36
    Top = 368
    Width = 269
    Height = 217
    Caption = ' Connection Status '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 5
    Visible = False
    object lblStatus0: TLabel
      Left = 13
      Top = 157
      Width = 80
      Height = 17
      AutoSize = False
      Caption = 'Connect Status:'
    end
    object lblStatus: TLabel
      Left = 93
      Top = 157
      Width = 159
      Height = 17
      Hint = 'Shows status of internet connection and file retrieval'
      AutoSize = False
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object lblConStat1: TLabel
      Left = 13
      Top = 35
      Width = 80
      Height = 17
      AutoSize = False
      Caption = 'Connected To:'
    end
    object lblConStat1b: TLabel
      Left = 93
      Top = 35
      Width = 159
      Height = 17
      Hint = 'Shows status of internet connection and file retrieval'
      AutoSize = False
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object lblConStat2: TLabel
      Left = 13
      Top = 76
      Width = 80
      Height = 17
      AutoSize = False
      Caption = 'Device Type:'
    end
    object lblConStat2b: TLabel
      Left = 93
      Top = 76
      Width = 159
      Height = 17
      Hint = 'Shows status of internet connection and file retrieval'
      AutoSize = False
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object lblConStat3: TLabel
      Left = 13
      Top = 116
      Width = 80
      Height = 17
      AutoSize = False
      Caption = 'Device Name:'
    end
    object lblConStat3b: TLabel
      Left = 93
      Top = 116
      Width = 159
      Height = 17
      Hint = 'Shows status of internet connection and file retrieval'
      AutoSize = False
      Color = clSilver
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
  end
  object grpWiz1: TGroupBox
    Left = 138
    Top = 11
    Width = 269
    Height = 217
    Caption = ' Name and Company '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 8
    object lblName1: TLabel
      Left = 12
      Top = 50
      Width = 55
      Height = 17
      AutoSize = False
      Caption = 'Name:'
    end
    object lblName2: TLabel
      Left = 12
      Top = 86
      Width = 55
      Height = 17
      AutoSize = False
      Caption = 'Job Title:'
    end
    object lblName3: TLabel
      Left = 12
      Top = 122
      Width = 55
      Height = 17
      AutoSize = False
      Caption = 'Company:'
    end
    object lblName4: TLabel
      Left = 12
      Top = 158
      Width = 109
      Height = 17
      AutoSize = False
      Caption = 'Product to Register:'
      WordWrap = True
    end
    object lblName: TLabel
      Left = 12
      Top = 18
      Width = 235
      Height = 19
      AutoSize = False
      Caption = 'Please enter your Name and Company details:'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object txtName: TEdit
      Left = 66
      Top = 48
      Width = 187
      Height = 21
      TabOrder = 0
    end
    object txtJob: TEdit
      Left = 66
      Top = 84
      Width = 187
      Height = 21
      TabOrder = 1
    end
    object txtCompany: TEdit
      Left = 66
      Top = 120
      Width = 187
      Height = 21
      TabOrder = 2
    end
    object txtProduct: TEdit
      Left = 12
      Top = 174
      Width = 241
      Height = 21
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 3
    end
  end
  object grpWiz5: TGroupBox
    Left = 135
    Top = 362
    Width = 269
    Height = 217
    Caption = ' Registration Method '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 9
    Visible = False
    object lblMethod: TLabel
      Left = 12
      Top = 24
      Width = 241
      Height = 31
      AutoSize = False
      Caption =
        'Please select the method to send your registration details to We' +
        'bster Publishing:'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object radMethod1: TRadioButton
      Left = 18
      Top = 84
      Width = 235
      Height = 19
      Caption = '&Print registration form and send by fax or post'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object radMethod2: TRadioButton
      Left = 18
      Top = 120
      Width = 235
      Height = 19
      Caption = '&Transmit registration form using the Internet'
      TabOrder = 1
    end
    object radMethod3: TRadioButton
      Left = 18
      Top = 156
      Width = 241
      Height = 19
      Caption = '&Save registration form to a file'
      TabOrder = 2
    end
  end
  object grpWiz9: TGroupBox
    Left = 406
    Top = 362
    Width = 269
    Height = 217
    Caption = ' Registration Complete '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 13
    Visible = False
    object lblFinish: TLabel
      Left = 12
      Top = 37
      Width = 247
      Height = 60
      AutoSize = False
      Caption = 'Thankyou. Registration was successful.'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Memo1: TMemo
      Left = 264
      Top = 211
      Width = 151
      Height = 29
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'Memo1')
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 12
    Top = 16
    Width = 113
    Height = 253
    BevelOuter = bvLowered
    Color = clSilver
    TabOrder = 14
    object imgLogo: TImage
      Left = 1
      Top = 1
      Width = 111
      Height = 251
      Picture.Data = {<image001.bmp>}
      Stretch = True
    end
  end
  object grpWiz2: TGroupBox
    Left = 440
    Top = 23
    Width = 269
    Height = 217
    Caption = ' Address Details '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 10
    Visible = False
    object lblAddr1: TLabel
      Left = 12
      Top = 42
      Width = 97
      Height = 17
      AutoSize = False
      Caption = '&Address:'
    end
    object lblAddr3: TLabel
      Left = 138
      Top = 122
      Width = 79
      Height = 17
      AutoSize = False
      Caption = '&Zip/Post Code:'
    end
    object lblAddr2: TLabel
      Left = 12
      Top = 122
      Width = 79
      Height = 17
      AutoSize = False
      Caption = '&State:'
    end
    object lblAddr4: TLabel
      Left = 12
      Top = 170
      Width = 79
      Height = 17
      AutoSize = False
      Caption = '&City'
    end
    object lblAddr5: TLabel
      Left = 138
      Top = 170
      Width = 79
      Height = 17
      AutoSize = False
      Caption = 'C&ountry'
    end
    object lblAddr: TLabel
      Left = 12
      Top = 18
      Width = 235
      Height = 19
      AutoSize = False
      Caption = 'Please enter your address details:'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object memAddr: TMemo
      Left = 12
      Top = 58
      Width = 241
      Height = 49
      TabOrder = 0
    end
    object txtPostCode: TEdit
      Left = 138
      Top = 138
      Width = 115
      Height = 21
      TabOrder = 2
    end
    object txtState: TEdit
      Left = 12
      Top = 138
      Width = 115
      Height = 21
      TabOrder = 1
    end
    object txtCity: TEdit
      Left = 12
      Top = 186
      Width = 115
      Height = 21
      TabOrder = 3
    end
    object txtCountry: TEdit
      Left = 138
      Top = 186
      Width = 115
      Height = 21
      TabOrder = 4
    end
  end
  object grpWiz3: TGroupBox
    Left = 462
    Top = 108
    Width = 269
    Height = 217
    Caption = ' Phone, Fax and Email'
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 11
    Visible = False
    object lblPh4: TLabel
      Left = 12
      Top = 142
      Width = 73
      Height = 17
      AutoSize = False
      Caption = 'Internet Email:'
    end
    object lblPh1: TLabel
      Left = 12
      Top = 50
      Width = 85
      Height = 17
      AutoSize = False
      Caption = 'Telephone (AH):'
    end
    object lblPh3: TLabel
      Left = 12
      Top = 106
      Width = 46
      Height = 17
      Caption = 'Facsimile:'
    end
    object lblPh2: TLabel
      Left = 12
      Top = 78
      Width = 85
      Height = 17
      AutoSize = False
      Caption = 'Telephone (BH):'
    end
    object lblPh5: TLabel
      Left = 60
      Top = 192
      Width = 157
      Height = 17
      AutoSize = False
      Caption = 'representative to contact me.'
    end
    object lblPh: TLabel
      Left = 12
      Top = 18
      Width = 235
      Height = 19
      AutoSize = False
      Caption = 'Please enter your contact details:'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object txtPh1: TEdit
      Left = 100
      Top = 48
      Width = 39
      Height = 21
      TabOrder = 0
    end
    object txtPh2: TEdit
      Left = 144
      Top = 48
      Width = 109
      Height = 21
      TabOrder = 1
    end
    object txtFax1: TEdit
      Left = 100
      Top = 104
      Width = 39
      Height = 21
      TabOrder = 4
    end
    object txtFax2: TEdit
      Left = 144
      Top = 104
      Width = 109
      Height = 21
      TabOrder = 5
    end
    object txtEmail: TEdit
      Left = 100
      Top = 140
      Width = 153
      Height = 21
      CharCase = ecLowerCase
      TabOrder = 6
    end
    object txtPh3: TEdit
      Left = 100
      Top = 76
      Width = 39
      Height = 21
      TabOrder = 2
    end
    object txtPh4: TEdit
      Left = 144
      Top = 76
      Width = 109
      Height = 21
      TabOrder = 3
    end
    object chkContact: TCheckBox
      Left = 42
      Top = 177
      Width = 193
      Height = 17
      Caption = 'I would like a Webster Publishing'
      TabOrder = 7
    end
  end
  object grpWiz4: TGroupBox
    Left = 374
    Top = 323
    Width = 269
    Height = 217
    Caption = ' Software Survey (optional) '
    Ctl3D = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 12
    Visible = False
    object lblSurv1: TLabel
      Left = 12
      Top = 19
      Width = 238
      Height = 26
      Caption = 'Which companies'#39' Office productivity tools do you use?'
      WordWrap = True
    end
    object lblSurv2: TLabel
      Left = 12
      Top = 78
      Width = 253
      Height = 16
      AutoSize = False
      Caption = 'Comments on this product or Webster Publishing:'
      WordWrap = True
    end
    object lblSurv3: TLabel
      Left = 10
      Top = 156
      Width = 243
      Height = 16
      AutoSize = False
      Caption = 'Webster Publishing products you are interested in:'
      WordWrap = True
    end
    object chkSurv1: TCheckBox
      Left = 12
      Top = 48
      Width = 67
      Height = 19
      Caption = 'Microsoft'
      TabOrder = 0
    end
    object chkSurv2: TCheckBox
      Left = 85
      Top = 48
      Width = 48
      Height = 19
      Caption = 'Corel'
      TabOrder = 1
    end
    object chkSurv3: TCheckBox
      Left = 141
      Top = 48
      Width = 52
      Height = 19
      Caption = 'Lotus'
      TabOrder = 2
    end
    object chkSurv4: TCheckBox
      Left = 199
      Top = 48
      Width = 48
      Height = 19
      Caption = 'Other'
      TabOrder = 3
    end
    object memSurv: TMemo
      Left = 12
      Top = 94
      Width = 241
      Height = 49
      ScrollBars = ssVertical
      TabOrder = 4
    end
    object chkSurv6: TCheckBox
      Left = 156
      Top = 174
      Width = 97
      Height = 17
      Caption = 'Training books'
      TabOrder = 6
    end
    object chkSurv8: TCheckBox
      Left = 156
      Top = 192
      Width = 97
      Height = 17
      Caption = 'Games'
      TabOrder = 8
    end
    object chkSurv5: TCheckBox
      Left = 12
      Top = 174
      Width = 141
      Height = 17
      Caption = 'Computer Based Training'
      TabOrder = 5
    end
    object chkSurv7: TCheckBox
      Left = 12
      Top = 192
      Width = 127
      Height = 17
      Caption = 'Multimedia references'
      TabOrder = 7
    end
  end
  object dlgPrint: TPrintDialog
    Left = 336
    Top = 336
  end
end