home *** CD-ROM | disk | FTP | other *** search
- object firstsetup: Tfirstsetup
- Left = 213
- Top = 152
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Welcome to Webspector!'
- ClientHeight = 259
- ClientWidth = 488
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 488
- Height = 259
- ActivePage = TabSheet6
- Align = alClient
- TabOrder = 0
- object TabSheet1: TTabSheet
- Caption = 'TabSheet1'
- TabVisible = False
- object Bevel1: TBevel
- Left = 8
- Top = 208
- Width = 468
- Height = 2
- end
- object Label1: TLabel
- Left = 168
- Top = 8
- Width = 175
- Height = 16
- Caption = 'Welcome to Webspector!'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 168
- Top = 40
- Width = 287
- Height = 39
- Caption =
- 'The following wizard will help you set up Webspector'#39's basic opt' +
- 'ions and will allow you to register for e-mail updates of Illumi' +
- 'x Software'#39's products.'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 168
- Top = 96
- Width = 107
- Height = 13
- Caption = 'Click Next to continue.'
- end
- object Panel1: TPanel
- Left = 8
- Top = 8
- Width = 150
- Height = 192
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'Panel1'
- TabOrder = 3
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 146
- Height = 188
- Align = alClient
- Picture.Data = {<image000.bmp>}
- end
- end
- object BitBtn1: TBitBtn
- Left = 160
- Top = 216
- Width = 75
- Height = 25
- Caption = '< Back'
- Enabled = False
- TabOrder = 0
- end
- object BitBtn2: TBitBtn
- Left = 240
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Next >'
- Default = True
- TabOrder = 1
- OnClick = BitBtn2Click
- end
- object BitBtn3: TBitBtn
- Left = 320
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 2
- OnClick = BitBtn3Click
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'TabSheet2'
- ImageIndex = 1
- TabVisible = False
- object Label4: TLabel
- Left = 168
- Top = 40
- Width = 291
- Height = 26
- Caption =
- 'To register for e-mail updates, enter your e-mail address in the' +
- ' field below, and click the Register Now button.'
- WordWrap = True
- end
- object Label5: TLabel
- Left = 168
- Top = 8
- Width = 193
- Height = 16
- Caption = 'Register for E-Mail Updates'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 216
- Top = 104
- Width = 93
- Height = 13
- Caption = 'e.g. john@doe.com'
- end
- object Bevel2: TBevel
- Left = 8
- Top = 208
- Width = 468
- Height = 2
- end
- object Label7: TLabel
- Left = 168
- Top = 82
- Width = 32
- Height = 13
- Caption = 'E-Mail:'
- end
- object Label30: TLabel
- Left = 168
- Top = 168
- Width = 282
- Height = 13
- Caption = 'Illumix Software keeps e-mail addresses entirely confidential.'
- end
- object Wait1: TWait
- Left = 17
- Top = 32
- Width = 111
- Height = 41
- Caption = 'Progress'
- ModalResult = 0
- Interval = 1000
- Visible = False
- IsControl = True
- end
- object Panel2: TPanel
- Left = 8
- Top = 8
- Width = 150
- Height = 192
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'Panel1'
- TabOrder = 5
- object Image2: TImage
- Left = 0
- Top = 0
- Width = 146
- Height = 188
- Align = alClient
- Picture.Data = {<image001.bmp>}
- end
- end
- object regback: TBitBtn
- Left = 160
- Top = 216
- Width = 75
- Height = 25
- Caption = '< Back'
- TabOrder = 2
- OnClick = regbackClick
- end
- object regnext: TBitBtn
- Left = 240
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Next >'
- TabOrder = 3
- OnClick = regnextClick
- end
- object regcancel: TBitBtn
- Left = 320
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 4
- OnClick = regcancelClick
- end
- object emailaddress: TEdit
- Left = 216
- Top = 80
- Width = 241
- Height = 21
- TabOrder = 0
- OnKeyDown = emailaddressKeyDown
- end
- object register1: TBitBtn
- Left = 216
- Top = 124
- Width = 113
- Height = 25
- Caption = 'Register Now!'
- Default = True
- TabOrder = 1
- OnClick = register1Click
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'TabSheet3'
- ImageIndex = 2
- TabVisible = False
- object Label8: TLabel
- Left = 168
- Top = 8
- Width = 122
- Height = 16
- Caption = 'Connection Setup'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label9: TLabel
- Left = 168
- Top = 40
- Width = 285
- Height = 39
- Caption =
- 'In order to monitor URLs, Webspector must be properly configured' +
- ' to work with your Internet connection. Select the option below ' +
- 'that best describes your connection.'
- WordWrap = True
- end
- object Bevel3: TBevel
- Left = 8
- Top = 208
- Width = 468
- Height = 2
- end
- object Panel3: TPanel
- Left = 8
- Top = 8
- Width = 150
- Height = 192
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'Panel1'
- TabOrder = 5
- object Image3: TImage
- Left = 0
- Top = 0
- Width = 146
- Height = 188
- Align = alClient
- Picture.Data = {<image002.bmp>}
- end
- end
- object BitBtn9: TBitBtn
- Left = 160
- Top = 216
- Width = 75
- Height = 25
- Caption = '< Back'
- TabOrder = 1
- OnClick = BitBtn9Click
- end
- object BitBtn10: TBitBtn
- Left = 240
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Next >'
- Default = True
- TabOrder = 2
- OnClick = BitBtn10Click
- end
- object BitBtn11: TBitBtn
- Left = 320
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 3
- OnClick = BitBtn11Click
- end
- object BitBtn12: TBitBtn
- Left = 400
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 4
- OnClick = BitBtn12Click
- end
- object RadioGroup1: TRadioGroup
- Left = 168
- Top = 88
- Width = 305
- Height = 105
- Caption = 'Internet Connection'
- ItemIndex = 2
- Items.Strings = (
- 'I use Dial-Up Networking'
- 'I use a Proxy Server'
- 'I connect directly without Proxy or Dial-Up Networking')
- TabOrder = 0
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'TabSheet4'
- ImageIndex = 3
- TabVisible = False
- object Label10: TLabel
- Left = 168
- Top = 8
- Width = 84
- Height = 16
- Caption = 'Proxy Setup'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label11: TLabel
- Left = 168
- Top = 40
- Width = 302
- Height = 26
- Caption =
- 'Enter your proxy information in the fields below. If you do not' +
- ' have this information, please contact your network administrato' +
- 'r.'
- WordWrap = True
- end
- object Bevel4: TBevel
- Left = 8
- Top = 208
- Width = 468
- Height = 2
- end
- object Label20: TLabel
- Left = 168
- Top = 82
- Width = 63
- Height = 13
- Caption = 'Proxy Server:'
- end
- object Label21: TLabel
- Left = 168
- Top = 130
- Width = 51
- Height = 13
- Caption = 'Username:'
- end
- object Label22: TLabel
- Left = 168
- Top = 154
- Width = 49
- Height = 13
- Caption = 'Password:'
- end
- object Label23: TLabel
- Left = 168
- Top = 106
- Width = 22
- Height = 13
- Caption = 'Port:'
- end
- object Label31: TLabel
- Left = 168
- Top = 184
- Width = 192
- Height = 13
- Caption = 'Proxy Server and Port are required fields.'
- end
- object Panel4: TPanel
- Left = 8
- Top = 8
- Width = 150
- Height = 192
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'Panel1'
- TabOrder = 8
- object Image4: TImage
- Left = 0
- Top = 0
- Width = 146
- Height = 188
- Align = alClient
- Picture.Data = {<image003.bmp>}
- end
- end
- object BitBtn13: TBitBtn
- Left = 160
- Top = 216
- Width = 75
- Height = 25
- Caption = '< Back'
- TabOrder = 4
- OnClick = BitBtn13Click
- end
- object BitBtn14: TBitBtn
- Left = 240
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Next >'
- Default = True
- TabOrder = 5
- OnClick = BitBtn14Click
- end
- object BitBtn15: TBitBtn
- Left = 320
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 6
- OnClick = BitBtn15Click
- end
- object BitBtn16: TBitBtn
- Left = 400
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 7
- OnClick = BitBtn16Click
- end
- object proxyserver: TEdit
- Left = 256
- Top = 80
- Width = 209
- Height = 21
- TabOrder = 0
- end
- object proxyuser: TEdit
- Left = 256
- Top = 128
- Width = 145
- Height = 21
- TabOrder = 2
- end
- object proxypass: TEdit
- Left = 256
- Top = 152
- Width = 145
- Height = 21
- PasswordChar = '*'
- TabOrder = 3
- end
- object proxyport: TEdit
- Left = 256
- Top = 104
- Width = 57
- Height = 21
- TabOrder = 1
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'TabSheet5'
- ImageIndex = 4
- TabVisible = False
- object Label12: TLabel
- Left = 168
- Top = 8
- Width = 179
- Height = 16
- Caption = 'Dial-Up Networking Setup'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label13: TLabel
- Left = 168
- Top = 40
- Width = 306
- Height = 13
- Caption =
- 'Please enter your Dial-Up Networking settings in the fields belo' +
- 'w.'
- WordWrap = True
- end
- object Bevel5: TBevel
- Left = 8
- Top = 208
- Width = 468
- Height = 2
- end
- object Label25: TLabel
- Left = 168
- Top = 131
- Width = 51
- Height = 13
- Caption = 'Username:'
- end
- object Label26: TLabel
- Left = 336
- Top = 131
- Width = 49
- Height = 13
- Caption = 'Password:'
- end
- object Label27: TLabel
- Left = 168
- Top = 159
- Width = 156
- Height = 13
- Caption = 'Default Busy/No Answer Retries:'
- end
- object Label24: TLabel
- Left = 168
- Top = 64
- Width = 74
- Height = 13
- Caption = 'Select an entry:'
- end
- object Panel5: TPanel
- Left = 8
- Top = 8
- Width = 150
- Height = 192
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'Panel1'
- TabOrder = 9
- object Image5: TImage
- Left = 0
- Top = 0
- Width = 146
- Height = 188
- Align = alClient
- Picture.Data = {<image004.bmp>}
- end
- end
- object BitBtn17: TBitBtn
- Left = 160
- Top = 216
- Width = 75
- Height = 25
- Caption = '< Back'
- TabOrder = 5
- OnClick = BitBtn17Click
- end
- object BitBtn18: TBitBtn
- Left = 240
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Next >'
- Default = True
- TabOrder = 6
- OnClick = BitBtn18Click
- end
- object BitBtn19: TBitBtn
- Left = 320
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 7
- OnClick = BitBtn19Click
- end
- object BitBtn20: TBitBtn
- Left = 400
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 8
- OnClick = BitBtn20Click
- end
- object pbookentries: TListBox
- Left = 168
- Top = 80
- Width = 305
- Height = 41
- ItemHeight = 13
- TabOrder = 0
- end
- object dunuser: TEdit
- Left = 224
- Top = 128
- Width = 100
- Height = 21
- TabOrder = 1
- end
- object dunpass: TEdit
- Left = 390
- Top = 128
- Width = 83
- Height = 21
- PasswordChar = '*'
- TabOrder = 2
- end
- object busyretries: TEdit
- Left = 336
- Top = 156
- Width = 39
- Height = 21
- TabOrder = 3
- end
- object discdun: TCheckBox
- Left = 168
- Top = 184
- Width = 241
- Height = 17
- Caption = 'Disconnect Established Dial-Up Networking'
- TabOrder = 4
- end
- end
- object TabSheet6: TTabSheet
- Caption = 'TabSheet6'
- ImageIndex = 5
- TabVisible = False
- OnShow = TabSheet6Show
- object Label14: TLabel
- Left = 168
- Top = 8
- Width = 69
- Height = 16
- Caption = 'Reporting'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label15: TLabel
- Left = 168
- Top = 40
- Width = 305
- Height = 39
- AutoSize = False
- Caption =
- 'Webspector'#39's extensive reporting capabilities notify you on a re' +
- 'gular basis as to which pages have changed. Reports can even be' +
- ' e-mailed to remote accounts.'
- WordWrap = True
- end
- object Bevel6: TBevel
- Left = 8
- Top = 208
- Width = 468
- Height = 2
- end
- object Panel6: TPanel
- Left = 8
- Top = 8
- Width = 150
- Height = 192
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'Panel1'
- TabOrder = 7
- object Image6: TImage
- Left = 0
- Top = 0
- Width = 146
- Height = 188
- Align = alClient
- Picture.Data = {<image005.bmp>}
- end
- end
- object BitBtn21: TBitBtn
- Left = 160
- Top = 216
- Width = 75
- Height = 25
- Caption = '< Back'
- TabOrder = 3
- OnClick = BitBtn21Click
- end
- object BitBtn22: TBitBtn
- Left = 240
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Next >'
- Default = True
- TabOrder = 4
- OnClick = BitBtn22Click
- end
- object BitBtn23: TBitBtn
- Left = 320
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 5
- OnClick = BitBtn23Click
- end
- object BitBtn24: TBitBtn
- Left = 400
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 6
- OnClick = BitBtn24Click
- end
- object reportscapability: TCheckBox
- Left = 168
- Top = 88
- Width = 105
- Height = 17
- Caption = 'Enable Reports'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = reportscapabilityClick
- end
- object emailreports: TCheckBox
- Left = 168
- Top = 110
- Width = 100
- Height = 21
- Caption = 'E-mail Reports '
- TabOrder = 1
- OnClick = emailreportsClick
- end
- object emailbox: TGroupBox
- Left = 168
- Top = 136
- Width = 305
- Height = 65
- Enabled = False
- TabOrder = 2
- object Label29: TLabel
- Left = 6
- Top = 39
- Width = 99
- Height = 13
- Caption = 'Outgoing mail server:'
- 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 Label32: TLabel
- Left = 8
- Top = 15
- Width = 95
- Height = 13
- Caption = 'Your e-mail address:'
- end
- object smtpserver: TEdit
- Left = 112
- Top = 36
- Width = 177
- Height = 21
- Color = clSilver
- TabOrder = 1
- end
- object origmail: TEdit
- Left = 112
- Top = 12
- Width = 177
- Height = 21
- Color = clSilver
- TabOrder = 0
- end
- end
- end
- object TabSheet7: TTabSheet
- Caption = 'TabSheet7'
- ImageIndex = 7
- TabVisible = False
- object Label18: TLabel
- Left = 168
- Top = 8
- Width = 111
- Height = 16
- Caption = 'Setup Complete'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label19: TLabel
- Left = 168
- Top = 40
- Width = 305
- Height = 39
- Caption =
- 'Webspector is now configured and ready to monitor pages. To spe' +
- 'cify the sites you wish to monitor, enable the checkbox below to' +
- ' allow Webspector to run the URL List Wizard.'
- WordWrap = True
- end
- object Bevel8: TBevel
- Left = 8
- Top = 208
- Width = 468
- Height = 2
- end
- object Panel8: TPanel
- Left = 8
- Top = 8
- Width = 150
- Height = 192
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'Panel1'
- TabOrder = 5
- object Image8: TImage
- Left = 0
- Top = 0
- Width = 146
- Height = 188
- Align = alClient
- Picture.Data = {<image006.bmp>}
- end
- end
- object BitBtn30: TBitBtn
- Left = 160
- Top = 216
- Width = 75
- Height = 25
- Caption = '< Back'
- TabOrder = 1
- OnClick = BitBtn30Click
- end
- object BitBtn31: TBitBtn
- Left = 240
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Finish'
- Default = True
- TabOrder = 2
- OnClick = BitBtn31Click
- end
- object BitBtn32: TBitBtn
- Left = 320
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 3
- OnClick = BitBtn32Click
- end
- object BitBtn33: TBitBtn
- Left = 400
- Top = 216
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 4
- OnClick = BitBtn33Click
- end
- object runwiz: TCheckBox
- Left = 168
- Top = 96
- Width = 185
- Height = 17
- Caption = 'Run URL List Wizard'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
- end
- end
- object SmtpClient: TSmtpClient
- Tag = 0
- Port = 'smtp'
- Wait = Wait1
- CharSet = 'iso-8859-1'
- TimeOut = 15
- Left = 312
- Top = 32
- end
- object NetDial1: TipwNetDial
- OnPhonebookEntry = NetDial1PhonebookEntry
- Left = 372
- Top = 40
- RegHnd = {
- 83E4365136C67FBFB5B5B8789A8B489097C955A429C3DA953DA519CD9E10FB1B
- E95AB8F26D3770F26730E127F4E30809AD05DBD74298981751F99731ABF55FAE
- 83E4365136C67FBF18DC536A4930B79182A991A479A5FC2DEFF75CF25F04797F
- 9BB4A9E15F81A86B6EA639E9D41823F723CCA20FA76274CB7302DBEFD494D854}
- end
- end
-