unit1.dfm

delphi自动更新源码

object tfAutoUpdate: TtfAutoUpdate
  Left = 390
  Top = 133
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #33258#21205#26356#26032#31243#24335' v1.1'
  ClientHeight = 80
  ClientWidth = 218
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Gauge1: TGauge
    Left = 8
    Top = 8
    Width = 201
    Height = 20
    ForeColor = clBlue
    Progress = 0
  end
  object Gauge2: TGauge
    Left = 8
    Top = 32
    Width = 201
    Height = 20
    ForeColor = clBlue
    Progress = 0
  end
  object ListView1: TListView
    Left = 16
    Top = 64
    Width = 257
    Height = 265
    Columns = <
      item
        Caption = 'F/D'
        Width = 20
      end
      item
        Caption = 'FileName'
        Width = 200
      end
      item
        Caption = 'rev'
        Width = 30
      end>
    TabOrder = 0
    ViewStyle = vsReport
    Visible = False
  end
  object tsbStatus: TStatusBar
    Left = 0
    Top = 61
    Width = 218
    Height = 19
    Panels = <
      item
        Text = #23578#26410#36899#25509#20282#26381#22120'!!'
        Width = 0
      end>
    SimplePanel = False
  end
  object ListView2: TListView
    Left = 288
    Top = 64
    Width = 257
    Height = 265
    Columns = <
      item
        Caption = 'F/D'
        Width = 20
      end
      item
        Caption = 'FileName'
        Width = 200
      end
      item
        Caption = 'rev'
        Width = 30
      end>
    TabOrder = 2
    ViewStyle = vsReport
    Visible = False
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Top = 8
  end
  object tFTP: TIdFTP
    OnDisconnected = tFTPDisconnected
    OnWork = tFTPWork
    OnWorkBegin = tFTPWorkBegin
    OnWorkEnd = tFTPWorkEnd
    OnConnected = tFTPConnected
    Left = 32
    Top = 8
  end
end