home *** CD-ROM | disk | FTP | other *** search
- object FrmURLAssistant: TFrmURLAssistant
- Left = 227
- Top = 235
- BorderStyle = bsDialog
- Caption = 'URL Assistant'
- ClientHeight = 151
- ClientWidth = 369
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 16
- object lblResourceType: TLabel
- Left = 8
- Top = 32
- Width = 49
- Height = 33
- Caption = '&Resource type'
- FocusControl = lbRType
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object lblPort: TLabel
- Left = 192
- Top = 56
- Width = 19
- Height = 13
- Caption = '&Port'
- Enabled = False
- FocusControl = EditPort
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblFile: TLabel
- Left = 8
- Top = 96
- Width = 16
- Height = 13
- Caption = '&File'
- FocusControl = EditFile
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblServer: TLabel
- Left = 192
- Top = 32
- Width = 31
- Height = 13
- Caption = '&Server'
- Enabled = False
- FocusControl = EditServer
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblURL: TLabel
- Left = 8
- Top = 8
- Width = 22
- Height = 13
- Caption = '&URL'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblAnchor: TLabel
- Left = 8
- Top = 120
- Width = 34
- Height = 13
- Caption = '&Anchor'
- FocusControl = EditAnchor
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EditServer: TEdit
- Left = 240
- Top = 32
- Width = 121
- Height = 21
- Hint = 'Server name (e.g., www.example.com)'
- Enabled = False
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnChange = FreshenURL
- end
- object EditAnchor: TEdit
- Left = 56
- Top = 120
- Width = 121
- Height = 21
- Hint = 'Named location within a file'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnChange = FreshenURL
- end
- object EditPort: TEdit
- Left = 240
- Top = 56
- Width = 121
- Height = 21
- Hint = 'Required only if server is on a non-standard port'
- Enabled = False
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnChange = FreshenURL
- end
- object EditFile: TEdit
- Left = 56
- Top = 96
- Width = 121
- Height = 21
- Hint = 'Name of file on server'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnChange = FreshenURL
- end
- object btnOK: TButton
- Left = 272
- Top = 88
- Width = 89
- Height = 25
- Caption = 'OK'
- Default = True
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 7
- OnClick = btnOKClick
- end
- object btnCancel: TButton
- Left = 272
- Top = 120
- Width = 89
- Height = 25
- Caption = 'Cancel'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 8
- end
- object btnBrowse: TBitBtn
- Left = 184
- Top = 96
- Width = 73
- Height = 21
- Hint = 'Search for file on local computer'
- Caption = '&Browse'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = btnBrowseClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 77777777777777777777000000000007777700333333333077770B0333333333
- 07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
- 77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
- 7007777777770777070777777777700077777777777777777777}
- end
- object lbRType: TListBox
- Left = 56
- Top = 32
- Width = 121
- Height = 57
- Hint = 'Use http:// for world wide web resources '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'none'
- 'http://'
- 'afs://'
- 'gopher://'
- 'file://'
- 'file://localhost/'
- 'ftp://'
- 'mailto:'
- 'news:'
- 'newsrc:'
- 'nntp://'
- 'telnet://'
- 'wais://')
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = lbRTypeClick
- end
- object cbURL: TComboBox
- Left = 56
- Top = 8
- Width = 305
- Height = 21
- Hint = 'The complete URL'
- 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 DlgFile: TOpenDialog
- FileEditStyle = fsEdit
- FileName = '*.*'
- Filter = 'All files|*.*|HTML documents (*.html; *.htm)|*.html;*.htm;*.ht3'
- Options = [ofHideReadOnly]
- Title = 'Select file'
- Left = 496
- Top = 112
- end
- end
-