unit1.dfm

用delphi编成的文件管理器

object Form1: TForm1
  Left = 192
  Top = 114
  BorderStyle = bsToolWindow
  BorderWidth = 5
  Caption = 'Form1'
  ClientHeight = 426
  ClientWidth = 508
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 224
    Top = -8
    Width = 17
    Height = 426
    Cursor = crHSplit
    Align = alNone
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 384
    Width = 225
    Height = 25
    Cursor = crHSplit
    Align = alNone
  end
  object DirectoryOutline1: TDirectoryOutline
    Left = 0
    Top = 0
    Width = 225
    Height = 385
    ItemHeight = 13
    Options = [ooDrawFocusRect]
    PictureLeaf.Data = {
      46030000424D460300000000000036000000280000000E0000000E0000000100
      2000000000001003000000000000000000000000000000000000800080008000
      8000800080008000800080008000800080008000800080008000800080008000
      8000800080008000800080008000800080008000800080008000800080008000
      8000800080008000800080008000800080008000800080008000800080008000
      8000800080008000800080008000800080008000800080008000800080008000
      8000800080008000800080008000800080008000800080008000800080008000
      8000800080000000000000000000000000000000000000000000000000000000
      00000000000000000000000000008000800080008000800080000000000000FF
      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
      FF000000000080008000800080008000800000000000FFFFFF0000FFFF00FFFF
      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008000
      800080008000800080000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
      FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000080008000800080008000
      800000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF
      FF0000FFFF00FFFFFF00000000008000800080008000800080000000000000FF
      FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF
      FF000000000080008000800080008000800000000000FFFFFF0000FFFF00FFFF
      FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000008000
      8000800080008000800000000000000000000000000000000000000000000000
      0000000000000000000000000000000000008000800080008000800080008000
      80008000800000000000FFFFFF0000FFFF00FFFFFF0000FFFF00000000008000
      8000800080008000800080008000800080008000800080008000800080008080
      8000000000000000000000000000000000008080800080008000800080008000
      8000800080008000800080008000800080008000800080008000800080008000
      8000800080008000800080008000800080008000800080008000800080008000
      80008000800080008000}
    TabOrder = 0
    OnChange = DirectoryOutline1Change
    Data = {10}
  end
  object FileListBox1: TFileListBox
    Left = 240
    Top = 0
    Width = 265
    Height = 425
    ItemHeight = 13
    TabOrder = 1
    OnChange = FileListBox1Change
  end
  object DriveComboBox1: TDriveComboBox
    Left = 0
    Top = 408
    Width = 225
    Height = 19
    TabOrder = 2
    OnChange = DriveComboBox1Change
  end
  object MainMenu1: TMainMenu
    Left = 376
    Top = 144
    object N1: TMenuItem
      Caption = #25991#20214
      object open1: TMenuItem
        Caption = #25171#24320
      end
      object exit1: TMenuItem
        Caption = #36864#20986
        OnClick = exit1Click
      end
      object rename1: TMenuItem
        Caption = #37325#21629#21517
        OnClick = rename1Click
      end
      object property1: TMenuItem
        Caption = #23646#24615
        OnClick = property1Click
      end
    end
    object N2: TMenuItem
      Caption = #32534#36753
      object copy1: TMenuItem
        Caption = #22797#21046
        OnClick = copy1Click
      end
      object paste1: TMenuItem
        Caption = #31896#36148
        OnClick = paste1Click
      end
      object cut1: TMenuItem
        Caption = #21098#20999
        OnClick = cut1Click
      end
      object delete1: TMenuItem
        Caption = #21024#38500
        OnClick = delete1Click
      end
      object selectother1: TMenuItem
        Caption = #21453#36873
        OnClick = selectother1Click
      end
      object Selectall1: TMenuItem
        Caption = #20840#36873
        OnClick = Selectall1Click
      end
    end
  end
end