main.dfm

这是一套全面的网络组件

object MainForm: TMainForm
  Left = 234
  Top = 115
  BorderStyle = bsDialog
  Caption = 'Ftp Client'
  ClientHeight = 422
  ClientWidth = 609
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 14
    Width = 37
    Height = 13
    Caption = 'IP/Host'
  end
  object Label2: TLabel
    Left = 11
    Top = 41
    Width = 22
    Height = 13
    Caption = 'User'
  end
  object Label4: TLabel
    Left = 216
    Top = 40
    Width = 46
    Height = 13
    Caption = 'Password'
  end
  object Label5: TLabel
    Left = 11
    Top = 68
    Width = 38
    Height = 13
    Caption = 'Start Dir'
  end
  object Label6: TLabel
    Left = 420
    Top = 14
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label7: TLabel
    Left = 11
    Top = 192
    Width = 62
    Height = 13
    Caption = 'Remote Host'
  end
  object Bevel1: TBevel
    Left = 8
    Top = 96
    Width = 513
    Height = 2
  end
  object Label3: TLabel
    Left = 11
    Top = 110
    Width = 60
    Height = 13
    Caption = 'Proxy Server'
  end
  object Label8: TLabel
    Left = 288
    Top = 136
    Width = 75
    Height = 13
    Caption = 'Proxy Password'
  end
  object Label9: TLabel
    Left = 380
    Top = 110
    Width = 48
    Height = 13
    Caption = 'Proxy Port'
  end
  object Label10: TLabel
    Left = 11
    Top = 137
    Width = 51
    Height = 13
    Caption = 'Proxy User'
  end
  object Label11: TLabel
    Left = 11
    Top = 164
    Width = 53
    Height = 13
    Caption = 'Proxy Type'
  end
  object ProgressBar: TProgressBar
    Left = 0
    Top = 405
    Width = 609
    Height = 17
    Align = alBottom
    TabOrder = 14
  end
  object edtServer: TEdit
    Left = 53
    Top = 10
    Width = 356
    Height = 21
    TabOrder = 0
    Text = 'localhost'
  end
  object edtPort: TEdit
    Left = 448
    Top = 10
    Width = 67
    Height = 21
    TabOrder = 1
    Text = '21'
  end
  object edtUser: TEdit
    Left = 53
    Top = 37
    Width = 137
    Height = 21
    TabOrder = 2
    Text = 'clevertester'
  end
  object edtPassword: TEdit
    Left = 272
    Top = 37
    Width = 137
    Height = 21
    TabOrder = 3
    Text = 'clevertester'
  end
  object edtStartDir: TEdit
    Left = 53
    Top = 64
    Width = 356
    Height = 21
    TabOrder = 4
  end
  object cbPassiveMode: TCheckBox
    Left = 418
    Top = 39
    Width = 97
    Height = 17
    Caption = 'Passive Mode'
    TabOrder = 5
  end
  object cbAsciiMode: TCheckBox
    Left = 418
    Top = 66
    Width = 97
    Height = 17
    Caption = 'Ascii Mode'
    TabOrder = 6
  end
  object btnLogin: TButton
    Left = 527
    Top = 14
    Width = 75
    Height = 25
    Caption = 'Login'
    TabOrder = 11
    OnClick = btnLoginClick
  end
  object btnLogout: TButton
    Left = 527
    Top = 44
    Width = 75
    Height = 25
    Caption = 'Logout'
    TabOrder = 12
    OnClick = btnLogoutClick
  end
  object btnOpenDir: TButton
    Left = 527
    Top = 186
    Width = 75
    Height = 25
    Caption = 'Open Dir'
    TabOrder = 15
    OnClick = btnOpenDirClick
  end
  object btnGoUp: TButton
    Left = 527
    Top = 216
    Width = 75
    Height = 25
    Caption = 'Go Up'
    TabOrder = 16
    OnClick = btnGoUpClick
  end
  object btnDownload: TButton
    Left = 527
    Top = 258
    Width = 75
    Height = 25
    Caption = 'Download...'
    TabOrder = 17
    OnClick = btnDownloadClick
  end
  object btnUpload: TButton
    Left = 527
    Top = 288
    Width = 75
    Height = 25
    Caption = 'Upload...'
    TabOrder = 18
    OnClick = btnUploadClick
  end
  object btnAbort: TButton
    Left = 527
    Top = 374
    Width = 75
    Height = 25
    Caption = 'Abort'
    TabOrder = 19
    OnClick = btnAbortClick
  end
  object lbList: TListBox
    Left = 7
    Top = 208
    Width = 510
    Height = 189
    ItemHeight = 13
    Sorted = True
    TabOrder = 13
    OnDblClick = btnOpenDirClick
  end
  object edtProxyServer: TEdit
    Left = 93
    Top = 106
    Width = 268
    Height = 21
    TabOrder = 7
    Text = 'localhost'
  end
  object edtProxyUser: TEdit
    Left = 93
    Top = 133
    Width = 137
    Height = 21
    TabOrder = 9
    Text = 'clevertester'
  end
  object edtProxyPassword: TEdit
    Left = 376
    Top = 133
    Width = 139
    Height = 21
    TabOrder = 10
    Text = 'clevertester'
  end
  object edtProxyPort: TEdit
    Left = 448
    Top = 106
    Width = 67
    Height = 21
    TabOrder = 8
    Text = '21'
  end
  object cbProxyType: TComboBox
    Left = 93
    Top = 160
    Width = 270
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 4
    TabOrder = 20
    Text = 'UserPass'
    Items.Strings = (
      'None'
      'UserSite'
      'Site'
      'Open'
      'UserPass'
      'Transparent')
  end
  object clFTP: TclFtp
    OnProgress = clFTPProgress
    OnDirectoryListing = clFTPDirectoryListing
    Left = 274
    Top = 218
  end
  object OpenDialog: TOpenDialog
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 434
    Top = 220
  end
  object SaveDialog: TSaveDialog
    Left = 352
    Top = 222
  end
end