play_list.dfm

一个关于delphi媒体播放器的代码。希望大家能够用的着

object List_Form: TList_Form
  Left = 286
  Top = 202
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #26354#30446#36873#25321
  ClientHeight = 262
  ClientWidth = 446
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object ShellTreeView1: TShellTreeView
    Left = 8
    Top = 8
    Width = 177
    Height = 249
    ObjectTypes = [otFolders]
    Root = 'rfDesktop'
    ShellListView = ShellListView1
    UseShellImages = True
    AutoRefresh = False
    Indent = 19
    ParentColor = False
    RightClickSelect = True
    ShowRoot = False
    TabOrder = 0
  end
  object ShellListView1: TShellListView
    Left = 192
    Top = 8
    Width = 249
    Height = 249
    ObjectTypes = [otFolders, otNonFolders]
    Root = 'rfDesktop'
    ShellTreeView = ShellTreeView1
    Sorted = True
    ReadOnly = False
    HideSelection = False
    TabOrder = 1
  end
end