fileandclientinfoctrlunit.dfm

iocp远控比较完整的代码.iocp far more complete control of the code

object FileAndInfoCtrlForm: TFileAndInfoCtrlForm
  Left = 244
  Top = 206
  Width = 697
  Height = 472
  Caption = 'FileAndInfoCtrlForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 689
    Height = 419
    ActivePage = TabSheet2
    Align = alClient
    DockSite = True
    MultiLine = True
    Style = tsFlatButtons
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet2: TTabSheet
      Caption = #25991#20214#31649#29702
      ImageIndex = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 303
        Width = 681
        Height = 3
        Cursor = crVSplit
        Align = alBottom
        AutoSnap = False
        MinSize = 55
      end
      object Splitter3: TSplitter
        Left = 333
        Top = 0
        Height = 303
        AutoSnap = False
        MinSize = 234
      end
      object PanelRemote: TPanel
        Left = 336
        Top = 0
        Width = 345
        Height = 303
        Align = alClient
        BevelOuter = bvNone
        Caption = 'PanelRemote'
        TabOrder = 0
        object ToolBar2: TToolBar
          Left = 0
          Top = 0
          Width = 345
          Height = 24
          Caption = 'ToolBarSubFile'
          Flat = True
          Images = ImageListOperateAble
          TabOrder = 0
          OnResize = ToolBar2Resize
          object RTBUpDir: TToolButton
            Left = 0
            Top = 0
            Caption = 'RTBUpDir'
            ImageIndex = 0
            OnClick = RTBUpDirClick
          end
          object RCBTreeList: TComboBox
            Left = 23
            Top = 0
            Width = 322
            Height = 21
            ItemHeight = 13
            TabOrder = 0
            Text = #25105#30340#30005#33041
          end
        end
        object ListViewFile: TListView
          Left = 0
          Top = 24
          Width = 345
          Height = 279
          Align = alClient
          Columns = <
            item
              Caption = #21517#31216
              Width = 100
            end
            item
              Caption = #31867#22411
              Width = 100
            end
            item
              Alignment = taRightJustify
              Caption = #22823#23567
              Width = 100
            end
            item
              Caption = #20462#25913#26085#26399
              Width = 100
            end
            item
              AutoSize = True
              Caption = #23436#25972#36335#24452
              WidthType = (
                -59)
            end>
          DragMode = dmAutomatic
          GridLines = True
          MultiSelect = True
          ReadOnly = True
          PopupMenu = PopupMenu1
          SmallImages = ImageListOperateAble
          TabOrder = 1
          ViewStyle = vsReport
          OnColumnClick = ListViewFileColumnClick
          OnCompare = ListViewFileCompare
          OnDblClick = ListViewFileDblClick
          OnDragDrop = ListViewFileDragDrop
          OnDragOver = ListViewFileDragOver
        end
        object FileProgressBar: TProgressBar
          Left = 10
          Top = 262
          Width = 150
          Height = 17
          TabOrder = 2
          Visible = False
        end
      end
      object PanelLocal: TPanel
        Left = 0
        Top = 0
        Width = 333
        Height = 303
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'Panel1'
        TabOrder = 1
        object ToolBar1: TToolBar
          Left = 0
          Top = 0
          Width = 333
          Height = 24
          Caption = 'ToolBarSubFile'
          Flat = True
          Images = ImageListOperateAble
          TabOrder = 0
          OnResize = ToolBar1Resize
          object TBUpDir: TToolButton
            Left = 0
            Top = 0
            Caption = 'ToolButton1'
            ImageIndex = 0
            OnClick = TBUpDirClick
          end
          object ShellComboBox: TShellComboBox
            Left = 23
            Top = 0
            Width = 310
            Height = 22
            Root = 'rfMyComputer'
            ShellListView = ShellListView
            UseShellImages = True
            DropDownCount = 8
            TabOrder = 0
          end
        end
        object ShellListView: TShellListView
          Left = 0
          Top = 24
          Width = 333
          Height = 279
          ObjectTypes = [otFolders, otNonFolders]
          Root = 'rfMyComputer'
          ShellComboBox = ShellComboBox
          Sorted = True
          Align = alClient
          DragMode = dmAutomatic
          ReadOnly = False
          GridLines = True
          HideSelection = False
          MultiSelect = True
          OnDragDrop = ShellListViewDragDrop
          OnDragOver = ShellListViewDragOver
          TabOrder = 1
          ViewStyle = vsReport
        end
      end
      object ListViewTransmitList: TListView
        Left = 0
        Top = 306
        Width = 681
        Height = 82
        Align = alBottom
        Columns = <
          item
            Caption = #38431#21015
            Width = 30
          end
          item
            Caption = #25991#20214#21517
            Width = 80
          end
          item
            Caption = #36828#31243#20027#26426'IP'
            Width = 100
          end
          item
            Caption = #36828#31243#25991#20214'('#22841')'
            Width = 100
          end
          item
            Caption = #26412#22320#25991#20214'('#22841')'
            Width = 100
          end
          item
            Caption = #22871#25509#23383#32534#21495
            Width = 80
          end>
        GridLines = True
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        SmallImages = ImageListTransmitList
        TabOrder = 2
        ViewStyle = vsReport
      end
    end
    object TabSheet4: TTabSheet
      Caption = #31383#21475#31649#29702
      ImageIndex = 3
      object ListViewWindowList: TListView
        Left = 0
        Top = 0
        Width = 681
        Height = 364
        Align = alClient
        Columns = <
          item
            Caption = ' '#24207#21495