ftpclient.~dfm

Delphi 开 发的 一个 小的 FTP 程序。。。。有需要的

object FrmMain: TFrmMain
  Left = 1
  Top = 79
  Width = 800
  Height = 600
  Caption = 'FTPCLIENT'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 0
    Top = 289
    Width = 792
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 457
    Width = 792
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 292
    Width = 792
    Height = 165
    Align = alTop
    Caption = #26381#21153#22120
    TabOrder = 0
    object ListViewRemoteFile: TListView
      Left = 2
      Top = 18
      Width = 788
      Height = 145
      Align = alClient
      Columns = <
        item
          Caption = #21517#31216
          Width = 160
        end
        item
          Caption = #31867#22411
          Width = 120
        end
        item
          Caption = #22823#23567
          Width = 160
        end
        item
          Caption = #26085#26399
          Width = 240
        end>
      LargeImages = ImageList1
      MultiSelect = True
      ReadOnly = True
      PopupMenu = PopupMenuRemote
      SmallImages = ImageList1
      TabOrder = 0
      ViewStyle = vsReport
      OnContextPopup = ListViewRemoteFileContextPopup
      OnDblClick = ListViewRemoteFileDblClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 0
    Top = 0
    Width = 792
    Height = 106
    Align = alTop
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 0
      Top = 5
      Width = 433
      Height = 101
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 24
        Width = 80
        Height = 16
        Caption = #20027#26426#22320#22336#65306
      end
      object Label2: TLabel
        Left = 224
        Top = 24
        Width = 64
        Height = 16
        Caption = #31471#21475#21495#65306
      end
      object Label3: TLabel
        Left = 8
        Top = 64
        Width = 80
        Height = 16
        Caption = #29992' '#25143' '#21517#65306
      end
      object Label4: TLabel
        Left = 224
        Top = 64
        Width = 64
        Height = 16
        Caption = #23494'  '#30721#65306
      end
      object EditHostAddress: TEdit
        Left = 88
        Top = 16
        Width = 121
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
        Text = '127.0.0.1'
      end
      object EditPort: TEdit
        Left = 288
        Top = 16
        Width = 49
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 1
        Text = '21'
      end
      object EditUsername: TEdit
        Left = 88
        Top = 56
        Width = 121
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 2
        Text = 'anonymous'
      end
      object EditPassword: TEdit
        Left = 288
        Top = 56
        Width = 137
        Height = 24
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 3
        Text = '[e-mail]'
      end
      object LinkServer: TBitBtn
        Left = 352
        Top = 16
        Width = 75
        Height = 25
        Caption = #36830#25509
        TabOrder = 4
        OnClick = LinkServerClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 433
      Top = 4
      Width = 359
      Height = 101
      TabOrder = 1
      object MemoMessage: TMemo
        Left = 2
        Top = 18
        Width = 355
        Height = 81
        Align = alClient
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  object GroupBox6: TGroupBox
    Left = 0
    Top = 106
    Width = 792
    Height = 183
    Align = alTop
    Caption = #26412#22320
    TabOrder = 2
    object Panel2: TPanel
      Left = 2
      Top = 18
      Width = 788
      Height = 41
      Align = alTop
      TabOrder = 0
      object DriveComboBox1: TDriveComboBox
        Left = 16
        Top = 8
        Width = 257
        Height = 22
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 0
        OnChange = DriveComboBox1Change
      end
    end
    object ListViewLocalFile: TListView
      Left = 2
      Top = 59
      Width = 788
      Height = 122
      Align = alClient
      Columns = <
        item
          Caption = #21517#31216
          Width = 160
        end
        item
          Caption = #31867#22411
          Width = 120
        end
        item
          Caption = #22823#23567
          Width = 160
        end
        item
          Caption = #26085#26399
          Width = 240
        end>
      LargeImages = ImageList1
      MultiSelect = True
      ReadOnly = True
      PopupMenu = PopupMenuLocal
      SmallImages = ImageList1
      TabOrder = 1
      ViewStyle = vsReport
      OnContextPopup = ListViewLocalFileContextPopup
      OnDblClick = ListViewLocalFileDblClick
    end
  end
  object ListViewSendFile: TListView
    Left = 0
    Top = 460
    Width = 792
    Height = 113
    Align = alClient