mainfrm.dfm

East make Tray Icon in delphi

object Form1: TForm1
  Left = 238
  Top = 113
  AutoScroll = False
  BorderWidth = 2
  Caption = 'JvMultiHTTPGrabber demo'
  ClientHeight = 336
  ClientWidth = 401
  Color = clBtnFace
  Constraints.MinHeight = 374
  Constraints.MinWidth = 413
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = popMain
  Position = poDesktopCenter
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 227
    Width = 401
    Height = 5
    Cursor = crSizeNS
    Align = alBottom
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 401
    Height = 61
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 12
      Width = 115
      Height = 13
      Caption = 'URL of file to download:'
    end
    object btnDownload: TButton
      Left = 229
      Top = 26
      Width = 75
      Height = 25
      Action = acDownload
      Anchors = [akTop, akRight]
      TabOrder = 0
    end
    object cbURL: TComboBox
      Left = 12
      Top = 30
      Width = 210
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      ItemHeight = 13
      TabOrder = 1
      Text = 'http://www.borland.com'
      Items.Strings = (
        'http://jvcl.sf.net'
        'http://jcl.sf.net'
        'http://delphi-jedi.org'
        'http://www.borland.com'
        'http://bdn.borland.com'
        'http://msdn.microsoft.com'
        'http://www.microsoft.com'
        'www.google.com'
        'http://www.torry.net/index.htm'
        'www.delphipages.com')
    end
    object btnDownloadAll: TButton
      Left = 313
      Top = 26
      Width = 75
      Height = 25
      Action = acDownloadAll
      Anchors = [akTop, akRight]
      TabOrder = 2
    end
  end
  object gbContent: TGroupBox
    Left = 0
    Top = 61
    Width = 401
    Height = 166
    Align = alClient
    Caption = ' Content: '
    TabOrder = 1
    object reContent: TRichEdit
      Left = 5
      Top = 17
      Width = 390
      Height = 142
      Anchors = [akLeft, akTop, akRight, akBottom]
      Lines.Strings = (
        
          'This demo shows how you can use the JvMultiHTTPGrabber component' +
          ' to '
        
          'download several files "simultaneously". Click "Download" to dow' +
          'nload the '
        
          'file specified in the combobox'#39's edit field, click "Download All' +
          '" to download '
        'from all URL'#39's in the combobox'#39's list.'
        ''
        
          'Errors and informational messages are reported in the bottom ric' +
          'h edit and '
        
          'the content of the downloaded file(s) are shown in this rich edi' +
          't (unless the '
        
          '"Save To File" option is checked in which case downloads are sav' +
          'ed to file).'
        ''
        
          'When you click "Download" or "Download All", the current URL is ' +
          'added to '
        
          'the history list. To remove an item from the list, select it fro' +
          'm the list, right-'
        
          'click and select "Remove from history" from the menu. The URL'#39's ' +
          'in the '
        
          'history list are remembered until the next time you start the pr' +
          'ogram.')
      ScrollBars = ssBoth
      TabOrder = 0
      WantReturns = False
      WordWrap = False
    end
  end
  object gnLog: TGroupBox
    Left = 0
    Top = 232
    Width = 401
    Height = 85
    Align = alBottom
    Caption = ' Log: '
    TabOrder = 2
    object reLog: TRichEdit
      Left = 5
      Top = 15
      Width = 390
      Height = 64
      Anchors = [akLeft, akTop, akRight, akBottom]
      ScrollBars = ssBoth
      TabOrder = 0
      WantReturns = False
      WordWrap = False
    end
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 317
    Width = 401
    Height = 19
    Panels = <
      item
        Bevel = pbNone
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
    OnResize = sbMainResize
  end
  object pbProgress: TProgressBar
    Left = 34
    Top = 322
    Width = 108
    Height = 13
    Min = 0
    Max = 100
    TabOrder = 4
  end
  object JvMultiHttpGrabber1: TJvMultiHTTPGrabber
    Agent = 'TJvMultiHttpGrabber Component'
    OnClosingConnection = JvMultiHttpGrabber1ClosingConnection
    OnClosedConnection = JvMultiHttpGrabber1ClosedConnection
    OnConnectingToServer = JvMultiHttpGrabber1ConnectingToServer
    OnConnectedToServer = JvMultiHttpGrabber1ConnectedToServer
    OnDoneFile = JvMultiHttpGrabber1DoneFile
    OnDoneStream = JvMultiHttpGrabber1DoneStream
    OnError = JvMultiHttpGrabber1Error
    OnProgress = JvMultiHttpGrabber1Progress
    OnReceivingResponse = JvMultiHttpGrabber1ReceivingResponse
    OnReceivedResponse = JvMultiHttpGrabber1ReceivedResponse
    OnRedirect = JvMultiHttpGrabber1Redirect
    OnRequestComplete = JvMultiHttpGrabber1RequestComplete
    OnRequestSent = JvMultiHttpGrabber1RequestSent
    OnResolvingName = JvMultiHttpGrabber1ResolvingName
    OnResolvedName = JvMultiHttpGrabber1ResolvedName
    OnSendingRequest = JvMultiHttpGrabber1SendingRequest
    Left = 78
    Top = 138
  end
  object acMainActions: TActionList
    OnUpdate = acMainActionsUpdate
    Left = 204
    Top = 138
    object acDownload: TAction
      Caption = '&Download'
      Hint = 'Download from the selected URL.'
      OnExecute = acDownloadExecute
    end
    object acDownloadAll: TAction
      Caption = 'Download &All'
      Hint = 'Downlaod from all URLs in the list.'
      OnExecute = acDownloadAllExecute
    end
    object acURLAdd: TAction
      Caption = 'Add to history'
      Hint = 'Add URL to history'
      OnExecute = acURLAddExecute
    end
    object acURLDelete: TAction
      Caption = 'Delete from history'
      Hint = 'Delete URL from history'
      OnExecute = acURLDeleteExecute
    end
    object acClearLog: TAction
      Caption = 'Clear log'
      Hint = 'Clear the log'
      OnExecute = acClearLogExecute
    end
    object acClearContent: TAction
      Caption = 'Clear content'
      Hint = 'Clear the content'
      OnExecute = acClearContentExecute
    end
    object acSaveToFile: TAction
      Caption = 'Save To File'
      OnExecute = acSaveToFileExecute
    end
  end
  object popMain: TPopupMenu
    Left = 318
    Top = 138
    object Addtohistory1: TMenuItem
      Action = acURLAdd
    end
    object Deletefromhistory1: TMenuItem
      Action = acURLDelete
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Download1: TMenuItem
      Action = acDownload
    end
    object Downloadall1: TMenuItem
      Action = acDownloadAll
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Clearcontent1: TMenuItem
      Action = acClearContent
    end
    object Clearlog1: TMenuItem
      Action = acClearLog
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Options1: TMenuItem
      Caption = 'Options'
      object acSaveToFile1: TMenuItem
        Action = acSaveToFile
      end
    end
  end
end