main.dfm

这是一套全面的网络组件

object DownLoaderTest: TDownLoaderTest
  Left = 173
  Top = 149
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MultiDownLoader'
  ClientHeight = 432
  ClientWidth = 758
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 758
    Height = 391
    ActivePage = tabOptions
    Align = alClient
    TabOrder = 0
    OnChange = PageControlChange
    object tabTasks: TTabSheet
      Caption = 'Downloading Files'
      object Panel2: TPanel
        Left = 0
        Top = 322
        Width = 750
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object btnAdd: TButton
          Left = 426
          Top = 10
          Width = 72
          Height = 22
          Caption = 'Add New...'
          TabOrder = 0
          OnClick = btnAddClick
        end
        object btnDelete: TButton
          Left = 506
          Top = 10
          Width = 72
          Height = 22
          Caption = 'Delete'
          TabOrder = 1
          OnClick = btnDeleteClick
        end
        object btnDownLoad: TButton
          Left = 593
          Top = 10
          Width = 72
          Height = 22
          Caption = 'DownLoad'
          TabOrder = 2
          OnClick = btnDownLoadClick
        end
        object btnStop: TButton
          Left = 673
          Top = 10
          Width = 72
          Height = 22
          Caption = 'Stop'
          TabOrder = 3
          OnClick = btnStopClick
        end
      end
      object ListView: TListView
        Left = 0
        Top = 0
        Width = 750
        Height = 322
        Align = alClient
        Columns = <
          item
            Caption = 'URL'
            Width = 190
          end
          item
            Caption = 'Proceed'
            Width = 75
          end
          item
            Caption = 'Speed'
            Width = 75
          end
          item
            Caption = 'Elapsed'
            Width = 75
          end
          item
            Caption = 'Remained'
            Width = 75
          end
          item
            Caption = 'Status'
          end
          item
            Caption = 'Progress'
            Width = 190
          end>
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawSubItem = ListViewAdvancedCustomDrawSubItem
        OnChange = ListViewChange
        OnDblClick = ListViewDblClick
      end
    end
    object tabDetails: TTabSheet
      Caption = 'File Info'
      ImageIndex = 1
      DesignSize = (
        750
        363)
      object Label1: TLabel
        Left = 5
        Top = 12
        Width = 22
        Height = 13
        Caption = 'URL'
      end
      object Label6: TLabel
        Left = 5
        Top = 61
        Width = 53
        Height = 13
        Caption = 'User Name'
      end
      object Label9: TLabel
        Left = 310
        Top = 62
        Width = 46
        Height = 13
        Caption = 'Password'
      end
      object Label4: TLabel
        Left = 5
        Top = 266
        Width = 116
        Height = 13
        Caption = 'Information Retrieve Log'
      end
      object Label5: TLabel
        Left = 389
        Top = 119
        Width = 97
        Height = 13
        Caption = 'File Content Preview'
      end
      object Label2: TLabel
        Left = 5
        Top = 34
        Width = 60
        Height = 13
        Caption = 'Save To File'
      end
      object Label3: TLabel
        Left = 5
        Top = 119
        Width = 52
        Height = 13
        Caption = 'Information'
      end
      object Label11: TLabel
        Left = 5
        Top = 87
        Width = 31
        Height = 13
        Caption = 'Priority'
      end
      object Label12: TLabel
        Left = 310
        Top = 87
        Width = 39
        Height = 13
        Caption = 'Threads'
      end
      object Bevel3: TBevel
        Left = 2
        Top = 112
        Width = 745
        Height = 4
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object edtURL: TEdit
        Left = 78
        Top = 7
        Width = 667
        Height = 21
        TabOrder = 0
        Text = 'edtURL'
        OnChange = edtURLChange
      end
      object edtUser: TEdit
        Left = 78
        Top = 58
        Width = 197
        Height = 21
        TabOrder = 2
        OnChange = edtUserChange
      end
      object edtPassword: TEdit
        Left = 366
        Top = 58
        Width = 197
        Height = 21
        PasswordChar = '*'
        TabOrder = 3
        OnChange = edtPasswordChange
      end
      object memErrors: TMemo
        Left = 5
        Top = 286
        Width = 740
        Height = 35
        ReadOnly = True
        TabOrder = 9
      end
      object edtFile: TEdit
        Left = 78
        Top = 32
        Width = 667
        Height = 21
        TabOrder = 1
        Text = 'edtFile'
        OnChange = edtFileChange
      end
      object memPreview: TMemo
        Left = 387
        Top = 141
        Width = 358
        Height = 119
        ReadOnly = True
        TabOrder = 8
      end
      object memInfo: TMemo
        Left = 5
        Top = 141
        Width = 372
        Height = 120
        ReadOnly = True
        TabOrder = 7
      end
      object edtPriority: TEdit
        Left = 78
        Top = 84
        Width = 197
        Height = 21
        TabOrder = 4
        Visible = False
      end
      object edtThreadCount: TEdit
        Left = 366
        Top = 84
        Width = 182
        Height = 21
        TabOrder = 5
        Text = '1'
        OnChange = edtThreadCountChange
      end
      object updThreadCount: TUpDown
        Left = 548
        Top = 84
        Width = 15
        Height = 21
        Associate = edtThreadCount
        Min = 1
        Max = 10
        Position = 1
        TabOrder = 6
      end
      object btnGetInfo: TButton
        Left = 6
        Top = 332
        Width = 72
        Height = 22
        Caption = 'Get Info'
        TabOrder = 10
        OnClick = btnGetInfoClick
      end
      object btnStop1: TButton
        Left = 85
        Top = 332
        Width = 72
        Height = 22
        Caption = 'Stop'
        TabOrder = 11
        OnClick = btnStopClick
      end
      object btnAdd1: TButton
        Left = 512
        Top = 332
        Width = 72
        Height = 22
        Caption = 'Add New...'
        TabOrder = 12
        OnClick = btnAddClick
      end
      object btnDownload1: TButton
        Left = 592
        Top = 332
        Width = 72
        Height = 22
        Caption = 'DownLoad'
        TabOrder = 13
        OnClick = btnDownLoadClick
      end
      object btnCancel: TButton
        Left = 672
        Top = 332
        Width = 72
        Height = 22
        Caption = 'Cancel'
        TabOrder = 14
        OnClick = btnCancelClick
      end
    end
    object tabOptions: TTabSheet
      Caption = 'Options'
      ImageIndex = 2
      object Label8: TLabel
        Left = 19
        Top = 30
        Width = 64
        Height = 13
        Caption = 'Output Folder'
      end
      object Label7: TLabel
        Left = 19
        Top = 59
        Width = 51
        Height = 13
        Caption = 'TimeOut, s'
      end
      object Label10: TLabel
        Left = 19