unit1.dfm

Delphi7编程80例(完全版)

object Form1: TForm1
  Left = 230
  Top = 160
  Width = 632
  Height = 448
  Caption = #25105#30340#36164#28304#31649#29702#22120
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 416
    Top = 13
    Width = 60
    Height = 12
    Caption = #26597#30475#26041#24335#65306
  end
  object ShellTreeView1: TShellTreeView
    Left = 8
    Top = 8
    Width = 185
    Height = 401
    ObjectTypes = [otFolders]
    Root = 'rfDesktop'
    ShellComboBox = ShellComboBox1
    ShellListView = ShellListView1
    UseShellImages = True
    AutoRefresh = False
    Indent = 19
    ParentColor = False
    RightClickSelect = True
    ShowRoot = False
    TabOrder = 0
  end
  object ShellComboBox1: TShellComboBox
    Left = 200
    Top = 8
    Width = 209
    Height = 22
    Root = 'rfDesktop'
    ShellTreeView = ShellTreeView1
    ShellListView = ShellListView1
    UseShellImages = True
    DropDownCount = 8
    TabOrder = 1
  end
  object ShellListView1: TShellListView
    Left = 200
    Top = 40
    Width = 417
    Height = 369
    ObjectTypes = [otFolders, otNonFolders]
    Root = 'rfDesktop'
    ShellTreeView = ShellTreeView1
    ShellComboBox = ShellComboBox1
    Sorted = True
    ReadOnly = False
    HideSelection = False
    MultiSelect = True
    TabOrder = 2
  end
  object ComboBox1: TComboBox
    Left = 480
    Top = 8
    Width = 137
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    ItemIndex = 1
    TabOrder = 3
    Text = #22823#22270#26631
    OnChange = ComboBox1Change
    Items.Strings = (
      #21015#34920
      #22823#22270#26631
      #23567#22270#26631
      #35814#32454#36164#26009)
  end
end