u_mainform.dfm

来自「很好地delphi书籍源码」· DFM 代码 · 共 975 行 · 第 1/4 页

object MainForm: TMainForm
  Left = 284
  Top = 126
  Width = 671
  Height = 424
  Caption = #25991#20214#31649#29702#22120
  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 = 180
    Top = 29
    Width = 2
    Height = 349
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 663
    Height = 29
    ButtonWidth = 24
    Caption = 'ToolBar1'
    Images = MenuImageList
    TabOrder = 0
    object Drive1: TDriveComboBox
      Left = 0
      Top = 3
      Width = 145
      Height = 19
      BevelInner = bvLowered
      TabOrder = 0
      TextCase = tcUpperCase
      OnChange = Drive1Change
    end
    object ToolButton1: TToolButton
      Left = 145
      Top = 2
      Width = 40
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object UpDirTB: TToolButton
      Left = 185
      Top = 2
      Caption = 'UpDirTB'
      ImageIndex = 11
      OnClick = UpDirTBClick
    end
    object ReFreshTB: TToolButton
      Left = 209
      Top = 2
      Caption = 'ReFreshTB'
      ImageIndex = 0
      OnClick = ReFreshTBClick
    end
    object ToolButton15: TToolButton
      Left = 233
      Top = 2
      Width = 8
      Caption = 'ToolButton15'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object IconTB: TToolButton
      Tag = 1
      Left = 241
      Top = 2
      Caption = 'IconTB'
      ImageIndex = 2
      OnClick = ShowToolButton
    end
    object SmallIconTB: TToolButton
      Tag = 2
      Left = 265
      Top = 2
      Caption = 'SmallIconTB'
      ImageIndex = 3
      OnClick = ShowToolButton
    end
    object ListTB: TToolButton
      Tag = 3
      Left = 289
      Top = 2
      Caption = 'ListTB'
      ImageIndex = 4
      OnClick = ShowToolButton
    end
    object ReportTB: TToolButton
      Tag = 4
      Left = 313
      Top = 2
      Caption = 'ReportTB'
      ImageIndex = 7
      OnClick = ShowToolButton
    end
    object CutFileTB: TToolButton
      Left = 337
      Top = 2
      Caption = 'CutFileTB'
      ImageIndex = 8
      OnClick = CutFileTBClick
    end
    object ToolButton6: TToolButton
      Left = 361
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object CopyFileTB: TToolButton
      Left = 369
      Top = 2
      Caption = 'CopyFileTB'
      ImageIndex = 6
      OnClick = CopyFileTBClick
    end
    object SaveFileTB: TToolButton
      Left = 393
      Top = 2
      Caption = 'SaveFileTB'
      ImageIndex = 9
      OnClick = SaveFileTBClick
    end
    object DeleteFileTB: TToolButton
      Left = 417
      Top = 2
      Caption = 'DeleteFileTB'
      ImageIndex = 5
      OnClick = DeleteFileTBClick
    end
    object ToolButton10: TToolButton
      Left = 441
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object HelpTB: TToolButton
      Left = 449
      Top = 2
      Caption = 'HelpTB'
      ImageIndex = 1
    end
  end
  object TreeViewPanel: TPanel
    Left = 0
    Top = 29
    Width = 180
    Height = 349
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'TreeViewPanel'
    TabOrder = 1
    object DirPanel: TPanel
      Left = 0
      Top = 0
      Width = 180
      Height = 25
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 1
      Caption = #25991#20214#22841#21015#34920
      TabOrder = 0
    end
    object TreeView1: TTreeView
      Left = 0
      Top = 25
      Width = 180
      Height = 324
      Align = alClient
      Images = TreeImageList
      Indent = 19
      ShowRoot = False
      TabOrder = 1
      OnChange = TreeView1Change
      OnClick = TreeView1Click
    end
  end
  object ListViewPanel: TPanel
    Left = 182
    Top = 29
    Width = 481
    Height = 349
    Align = alClient
    BevelOuter = bvNone
    Caption = 'ListViewPanel'
    TabOrder = 2
    object FilePanel: TPanel
      Left = 0
      Top = 0
      Width = 481
      Height = 21
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 1
      Caption = #25991#20214#21015#34920#26174#31034
      TabOrder = 0
    end
    object ListView1: TListView
      Left = 0
      Top = 21
      Width = 481
      Height = 328
      Align = alClient
      Columns = <
        item
          Caption = #25991#20214#21517#31216
          Width = 140
        end
        item
          Caption = #25991#20214#22823#23567
          Width = 120
        end
        item
          Caption = #31867#22411
          Width = 130
        end
        item
          Caption = #25551#36848
          Width = 80
        end>
      LargeImages = ListViewImageList
      PopupMenu = PopupMenu1
      SmallImages = ListViewImageList
      TabOrder = 1
      ViewStyle = vsReport
      OnDblClick = ListView1DblClick
    end
  end
  object MainMenu1: TMainMenu