object frmURL: TfrmURL Left = 276 Top = 638 HelpContext = 105 ActiveControl = txtFile BorderStyle = bsDialog Caption = 'URL Builder' ClientHeight = 197 ClientWidth = 588 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 4 Top = 4 Width = 577 Height = 157 Shape = bsFrame IsControl = True end object lblResourceType: TLabel Left = 12 Top = 8 Width = 73 Height = 13 Caption = '&Resource Type' FocusControl = lstType end object lblServer: TLabel Left = 144 Top = 24 Width = 34 Height = 13 Caption = '&Server:' Enabled = False FocusControl = txtServer end object lblPort: TLabel Left = 144 Top = 52 Width = 22 Height = 13 Caption = '&Port:' Enabled = False FocusControl = txtPort end object lblFile: TLabel Left = 144 Top = 80 Width = 19 Height = 13 Caption = '&File:' FocusControl = txtFile end object lblAnchor: TLabel Left = 144 Top = 108 Width = 37 Height = 13 Caption = '&Anchor:' FocusControl = txtAnchor end object lblURL: TLabel Left = 16 Top = 136 Width = 25 Height = 13 Caption = '&URL:' FocusControl = cmbURL end object OKBtn: TBitBtn Left = 336 Top = 168 Width = 77 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 4 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 420 Top = 168 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 5 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 504 Top = 168 Width = 77 Height = 25 Caption = '&Help' TabOrder = 6 OnClick = HelpBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object lstType: TListBox Left = 12 Top = 24 Width = 125 Height = 93 Hint = 'Use http:// for www resources or none for document path relative' + ' to current file' ItemHeight = 13 Items.Strings = ( 'none' 'http://' 'afs://' 'gopher://' 'file://' 'file://localhost/' 'ftp://' 'mailto:' 'news:' 'newsrc:' 'nntp://' 'telnet://' 'wais://') TabOrder = 7 OnClick = UpdateURL OnDblClick = lstTypeDblClick OnKeyUp = lstTypeKeyUp end object txtServer: TEdit Left = 192 Top = 20 Width = 229 Height = 21 Hint = 'Server name (e.g., myserver.com)' Enabled = False TabOrder = 0 OnChange = UpdateURL end object txtFile: TEdit Left = 192 Top = 76 Width = 145 Height = 21 Hint = 'Name of file on server (e.g., myfile.html)' TabOrder = 2 OnChange = UpdateURL OnKeyPress = txtFileKeyPress end object txtAnchor: TEdit Left = 192 Top = 104 Width = 229 Height = 21 Hint = 'Named location within a file' TabOrder = 3 OnChange = UpdateURL end object txtPort: TEdit Left = 192 Top = 48 Width = 61 Height = 21 Hint = 'Required only if resource server is on a non-standard port' Enabled = False TabOrder = 1 OnChange = UpdateURL end object bbtnBrowse: TBitBtn Left = 344 Top = 73 Width = 77 Height = 25 Hint = 'Search for file on local computer' Caption = '&Browse' TabOrder = 8 OnClick = bbtnBrowseClick Glyph.Data = { 12040000424D1204000000000000760000002800000054000000150000000100 0400000000009C03000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777700007777777777777777777777777777777777777777777777777777 77777777777F7F7F7F7F7F7F7F7F7F7F00007777777777777777777777777777 7777777777777777777777777777777777777777777777777777777700007777 777777777777777777777FFFFFFFFFFFF77777777777777777777777777F7F7F 7F7F7F7F7F7F7F7F00007780000000000000777777778888888888888F777777 8000000000000077777778000000000000077777000077007B7B7B7B7B7B0777 77788F777777777778F77777007B7B7B7B7B7B07777F7007B7B7B7B7B7B07F7F 0000770F07B7B7B7B7B707777778F8F77777777778F777770707B7B7B7B7B7B0 777770707B7B7B7B7B7B07770000770B0B7B7B7B7B7B07777778F8F777777777 778F77770BB07B7B7B7B7B7B077F70BB07B7B7B7B7B7B07F0000770F0BB7B7B7 B7B7B0777778F78F77777777778F777707BF000007B7B7B7B077707B7000007B 7B7B7B070000770BF07B7B7B7B7B70777778F78FFFFF77777778F7770BFBFBFB F0000000077F70B7BF0FFF000000007F0000770FB0B7B7B7B7B7B0777778F778 8888FFFFFFF8F77707BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770B F07B7B7B7B7B7B077778F77777778888888777770BFBFBFBFBFBF077777F70B7 BF0FFFFFFFF07F7F0000770FBF000000B7B7B7077778F777777777778F777777 07BFBFBFBFBFB0777777707B7B0FFFFFFFF077770000770BFBFBFBF000000077 7778F7777FFFFFFF8F7777770BFBFBFBFBFBF077777F70B7BF0FFFFFFFF07F7F 0000770FBFBF0000000777777778FFFFF88888887777777707BFBF0000000777 7777707B7B0FFFFFFFF077770000777000007777777777777777888887777777 777777777000007777777777777F7F00000FFFFF00007F7F0000777777777777 77777777777777777777777777777777777777777777777777777777770FFFFF 0F07777700007777777777777777777777777777777777777777777777777777 77777777777F7F7F7F0FFFFF007F7F7F00007777777777777777777777777777 7777777777777777777777777777777777777777770000000777777700007777 77777777777777777777777777777777777777777777777777777777777F7F7F 7F7F7F7F7F7F7F7F000077777777777777777777777777777777777777777777 77777777777777777777777777777777777777770000} NumGlyphs = 4 end object cmbURL: TComboBox Left = 48 Top = 132 Width = 373 Height = 21 Hint = 'Click on dropdown for list of previous URLs' ItemHeight = 13 Sorted = True TabOrder = 9 OnChange = cmbURLChange OnClick = cmbURLClick OnKeyPress = cmbURLKeyPress end object chkChangeDOSSlashes: TCheckBox Left = 268 Top = 48 Width = 149 Height = 17 Caption = 'Re&verse DOS Slashes' TabOrder = 10 Visible = False OnClick = chkChangeDOSSlashesClick end object pnlPreview: TPanel Left = 432 Top = 16 Width = 137 Height = 137 BevelOuter = bvLowered TabOrder = 11 object imgPreview: TPMultiImage Left = 1 Top = 1 Width = 135 Height = 135 Align = alClient Color = clBtnFace ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic ImageWriteRes = sAutoMatic TifSaveCompress = sNONE JPegSaveQuality = 25 JPegSaveSmooth = 0 TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 0 TabStop = False end object pnlImageStatus: TPanel Left = 112 Top = 120 Width = 25 Height = 17 BevelInner = bvRaised Caption = 'Off' TabOrder = 1 OnClick = pnlImageStatusClick end end object dlgOpen: TOpenDialog DefaultExt = 'GIF' FileEditStyle = fsEdit FileName = '*.*' Filter = 'All Files (*.*)|*.*|HTML Files (*.HTML;*.HTM;*.HT3)|*.HTML;*.HTM' + ';*.HT3|Image Files (*.GIF;*.JPG;*.BMP)|*.GIF;*.JPG;*.BMP|Audio F' + 'iles (*.WAV;*.AU;*.SND)|*.WAV;*.AU;*.SND' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Select File' Left = 7 Top = 164 end end