object frmIFrame: TfrmIFrame Left = 254 Top = 174 BorderStyle = bsDialog Caption = 'IFrame' ClientHeight = 192 ClientWidth = 479 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 465 Height = 145 Shape = bsFrame IsControl = True end object lblSrc: TLabel Left = 15 Top = 22 Width = 16 Height = 13 Caption = '&Src' FocusControl = cmbFrameURL Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblScrolling: TLabel Left = 312 Top = 78 Width = 40 Height = 13 Caption = 'S&crolling' FocusControl = cmbScrolling Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblName: TLabel Left = 15 Top = 54 Width = 28 Height = 13 Caption = '&Name' FocusControl = cmbName Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblWidth: TLabel Left = 68 Top = 78 Width = 114 Height = 13 Caption = 'Margin &Width' FocusControl = txtWidth Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object lblHeight: TLabel Left = 188 Top = 78 Width = 117 Height = 13 Caption = 'Margin &Height' FocusControl = txtHeight Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object OKBtn: TBitBtn Left = 226 Top = 162 Width = 77 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 310 Top = 162 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 394 Top = 162 Width = 77 Height = 25 HelpContext = 148 Caption = '&Help' TabOrder = 2 OnClick = HelpBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object cmbFrameURL: TComboBox Left = 68 Top = 18 Width = 313 Height = 21 Hint = 'URL of document to be displayed in this frame' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True Sorted = True TabOrder = 3 end object bbtnURL: TBitBtn Left = 388 Top = 14 Width = 77 Height = 27 Hint = 'Open the URL Builder' Caption = '&URL' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = bbtnURLClick Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777070000007777777777777770000000000000000000007700070000000FFF FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777 777777000000} end object cmbName: TComboBox Left = 68 Top = 50 Width = 313 Height = 21 Hint = 'Assigns a name so this frame can be targeted by links in other d' + 'ocuments' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( '_blank' '_parent' '_self' '_top') ParentFont = False ParentShowHint = False ShowHint = True Sorted = True TabOrder = 5 end object cmbScrolling: TComboBox Left = 312 Top = 98 Width = 69 Height = 21 Hint = 'Should this frame have a scrollbar?' Style = csDropDownList Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Yes' 'No' 'Auto') ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 end object txtWidth: TMaskEdit Left = 68 Top = 98 Width = 65 Height = 21 Hint = 'Width of frame in pixels' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 7 OnKeyPress = txtWidthKeyPress end object txtHeight: TMaskEdit Left = 188 Top = 98 Width = 69 Height = 21 Hint = 'Height of frame in pixels' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 8 OnKeyPress = txtHeightKeyPress end object chkNoResize: TCheckBox Left = 68 Top = 127 Width = 97 Height = 17 Hint = 'Indicates whether a frame can be resized' Caption = 'No &Resize' ParentShowHint = False ShowHint = True TabOrder = 9 end end