unittransfers.dfm

不错的远程控制程序

object Transfers: TTransfers
  Left = 488
  Top = 371
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #20256#36755#26597#30475
  ClientHeight = 260
  ClientWidth = 414
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object ListView1: TListView
    Left = 0
    Top = 0
    Width = 414
    Height = 260
    Align = alClient
    Columns = <
      item
        Caption = #22320#22336
        Width = 100
      end
      item
        Caption = #31471#21475
      end
      item
        Caption = #25968#25454#22823#23567
        Width = 70
      end
      item
        Caption = #21387#32553#27604
        Width = 75
      end
      item
        AutoSize = True
        Caption = #20256#36755#36827#24230
      end>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GridLines = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    TabOrder = 0
    ViewStyle = vsReport
    OnCustomDraw = ListView1CustomDraw
    OnSelectItem = ListView1SelectItem
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 3000
    Left = 520
    Top = 168
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 1
    Left = 200
    Top = 104
  end
end