object frmHttp: TfrmHttp Left = 34 Top = 114 Width = 580 Height = 197 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Grab Page From The Web' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 572 Height = 41 Align = alTop TabOrder = 0 object Label1: TLabel Left = 11 Top = 14 Width = 26 Height = 13 Caption = 'URL' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object URLEdit: TEdit Left = 46 Top = 10 Width = 257 Height = 21 TabOrder = 0 Text = 'http://' end object GetButton: TBitBtn Left = 310 Top = 8 Width = 73 Height = 25 Hint = 'Go Get It' Caption = 'Get' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = GetButtonClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 end object CancelButton: TBitBtn Left = 392 Top = 8 Width = 73 Height = 25 Enabled = False TabOrder = 2 OnClick = CancelButtonClick Kind = bkCancel end object BitBtn1: TBitBtn Left = 476 Top = 8 Width = 75 Height = 25 TabOrder = 3 OnClick = BitBtn1Click Kind = bkClose end end object StatusBar1: TStatusBar Left = 0 Top = 151 Width = 572 Height = 19 Panels = <> SimplePanel = True end object Memo1: TMemo Left = 0 Top = 41 Width = 572 Height = 110 Align = alClient ScrollBars = ssVertical TabOrder = 2 end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Filter = 'All Files (*.*)|*.*' Left = 400 Top = 8 end object HTTP1: TagHTTP DefaultPort = 80 OnOpen = HTTP1Open OnClosed = HTTP1Closed OnCancel = HTTP1Cancel OnError = HTTP1Error OnReceiving = HTTP1Receiving OnSending = HTTP1Sending Left = 440 Top = 8 end end