mainf.dfm

地理资源的录入程序运用了api的一些知识

object MainForm: TMainForm
  Left = 190
  Top = 107
  Width = 696
  Height = 532
  Caption = #25991#20214#19978#20256#25805#20316
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 380
    Width = 688
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object DirectoryListBox: TListBox
    Left = 0
    Top = 169
    Width = 688
    Height = 211
    Align = alClient
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier'
    Font.Style = []
    ImeName = #32043#20809#21326#23431#25340#38899'V5'
    ItemHeight = 16
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnClick = DirectoryListBoxClick
    OnDblClick = DirectoryListBoxDblClick
  end
  object DebugListBox: TListBox
    Left = 0
    Top = 383
    Width = 688
    Height = 103
    Align = alBottom
    ImeName = #32043#20809#21326#23431#25340#38899'V5'
    ItemHeight = 13
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 486
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object ProgressBar1: TProgressBar
    Left = 480
    Top = 168
    Width = 199
    Height = 17
    Smooth = True
    TabOrder = 3
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 137
    Align = alTop
    TabOrder = 4
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 60
      Height = 13
      Caption = 'FTP'#20027#26426#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 48
      Width = 39
      Height = 13
      Caption = #29992#25143#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 128
      Top = 48
      Width = 26
      Height = 13
      Caption = #23494#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 248
      Top = 8
      Width = 26
      Height = 13
      Caption = #31471#21475
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object FtpServerEdit: TEdit
      Left = 8
      Top = 24
      Width = 233
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 0
      Text = '202.206.43.164'
    end
    object ConnectButton: TButton
      Left = 360
      Top = 21
      Width = 75
      Height = 25
      Caption = #36830#25509
      Default = True
      TabOrder = 2
      OnClick = ConnectButtonClick
    end
    object Panel3: TPanel
      Left = 1
      Top = 94
      Width = 686
      Height = 42
      Align = alBottom
      Alignment = taLeftJustify
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = #26381#21153#22120#36335#24452
      TabOrder = 1
      object CurrentDirEdit: TEdit
        Left = 70
        Top = 10
        Width = 193
        Height = 21
        ImeName = #32043#20809#21326#23431#25340#38899'V5'
        TabOrder = 0
        Text = '/'#22320#29702#36164#28304#19978#20256'/'
      end
      object UploadButton: TButton
        Left = 280
        Top = 6
        Width = 75
        Height = 25
        Caption = #19978#20256
        TabOrder = 1
        OnClick = UploadButtonClick
      end
      object AbortButton: TButton
        Left = 514
        Top = 6
        Width = 75
        Height = 25
        Caption = #25918#24323
        TabOrder = 2
        Visible = False
        OnClick = AbortButtonClick
      end
      object fh: TButton
        Left = 379
        Top = 6
        Width = 112
        Height = 25
        Caption = #36820#22238#19978#19968#32423
        TabOrder = 3
        OnClick = fhClick
      end
    end
    object UserIDEdit: TEdit
      Left = 8
      Top = 64
      Width = 113
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 3
      Text = 'kjzy'
    end
    object PasswordEdit: TEdit
      Left = 128
      Top = 64
      Width = 113
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      PasswordChar = '*'
      TabOrder = 4
      Text = 'kjzy'
    end
    object Edit1: TEdit
      Left = 248
      Top = 24
      Width = 89
      Height = 21
      TabOrder = 5
      Text = '8021'
    end
  end
  object CommandPanel: TPanel
    Left = 0
    Top = 137
    Width = 688
    Height = 32
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 5
    object Label2: TLabel
      Left = 4
      Top = 8
      Width = 130
      Height = 13
      Caption = #26381#21153#22120#19978#24050#23384#22312#30340#25991#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  object IdFTP1: TIdFTP
    OnStatus = IdFTP1Status
    Intercept = IdLogDebug1
    MaxLineAction = maException
    ReadTimeout = 0
    RecvBufferSize = 8192
    SendBufferSize = 1024
    OnDisconnected = IdFTP1Disconnected
    OnWork = IdFTP1Work
    OnWorkBegin = IdFTP1WorkBegin
    OnWorkEnd = IdFTP1WorkEnd
    Password = '[e-mail]'
    ProxySettings.ProxyType = fpcmNone
    ProxySettings.Port = 0
    Left = 8
    Top = 176
  end
  object IdLogDebug1: TIdLogDebug
    LogTime = False
    Left = 8
    Top = 360
  end
  object UploadOpenDialog1: TOpenDialog
    Filter = '(*.*)|*.*'
    Title = #19978#20256'....'
    Left = 433
    Top = 128
  end
  object SaveDialog1: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 473
    Top = 128
  end
  object IdAntiFreeze1: TIdAntiFreeze
    IdleTimeOut = 50
    OnlyWhenIdle = False
    Left = 40
    Top = 176
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 176
    object N3: TMenuItem
      Caption = #26032#24314#30446#24405
      OnClick = N3Click
    end
    object Upload1: TMenuItem
      Caption = #19978#20256
      OnClick = Upload1Click
    end
    object Delete1: TMenuItem
      Caption = #21024#38500
      OnClick = Delete1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #19978#19968#32423
      OnClick = N2Click
    end
  end
end