playlist.dfm.~22~

delphi2007写的播放器源码。效果类似于千千静听。

object Form2: TForm2
  Left = 0
  Top = 0
  BorderStyle = bsNone
  Caption = 'Form2'
  ClientHeight = 330
  ClientWidth = 546
  Color = clBtnFace
  TransparentColor = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object imgBottom: TImage
    Left = 0
    Top = 211
    Width = 450
    Height = 23
    Stretch = True
    OnMouseDown = imgBottomMouseDown
    OnMouseLeave = imgBottomMouseLeave
    OnMouseMove = imgBottomMouseMove
    OnMouseUp = imgBottomMouseUp
  end
  object imgLeft: TImage
    Left = 0
    Top = 36
    Width = 5
    Height = 169
    Stretch = True
    Transparent = True
  end
  object imgTop: TImage
    Left = 0
    Top = 8
    Width = 450
    Height = 62
    Stretch = True
    OnMouseDown = imgTopMouseDown
    OnMouseMove = imgTopMouseMove
  end
  object imgFolder: TImage
    Left = 24
    Top = 24
    Width = 33
    Height = 33
    Hint = #25209#37327#28155#21152
    ParentShowHint = False
    ShowHint = False
    Transparent = True
    OnClick = imgFolderClick
    OnMouseDown = imgFolderMouseDown
    OnMouseLeave = imgFolderMouseLeave
    OnMouseMove = imgFolderMouseMove
  end
  object imgAdd: TImage
    Left = 63
    Top = 24
    Width = 33
    Height = 33
    Hint = #21333#20010#28155#21152
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgAddClick
    OnMouseDown = imgAddMouseDown
    OnMouseLeave = imgAddMouseLeave
    OnMouseMove = imgAddMouseMove
  end
  object imgClear: TImage
    Left = 102
    Top = 24
    Width = 33
    Height = 33
    Hint = #20840#37096#21024#38500
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgClearClick
    OnMouseDown = imgClearMouseDown
    OnMouseLeave = imgClearMouseLeave
    OnMouseMove = imgClearMouseMove
  end
  object imgDel: TImage
    Left = 141
    Top = 24
    Width = 33
    Height = 33
    Hint = #21333#20010#21024#38500
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgDelClick
    OnMouseDown = imgDelMouseDown
    OnMouseLeave = imgDelMouseLeave
    OnMouseMove = imgDelMouseMove
  end
  object imgListExit: TImage
    Left = 400
    Top = 24
    Width = 25
    Height = 25
    Hint = #20851#38381
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgListExitClick
    OnMouseDown = imgListExitMouseDown
    OnMouseLeave = imgListExitMouseLeave
    OnMouseMove = imgListExitMouseMove
  end
  object imgRight: TImage
    Left = 445
    Top = 48
    Width = 5
    Height = 169
    Stretch = True
    Transparent = True
  end
  object PlayListBox: TListBox
    Left = 40
    Top = 76
    Width = 369
    Height = 129
    BorderStyle = bsNone
    Color = clHighlightText
    ItemHeight = 13
    ScrollWidth = 10
    TabOrder = 0
    OnDblClick = PlayListBoxDblClick
  end
  object OpenDialog: TOpenDialog
    Filter = 
      'All supported (*.mp3;*.wav;*.wma;*.wmv;*.mpg;*.mpeg;*.asf;*.avi)' +
      '|*.mp3;*.wma;*.wmv;*.mpg;*.wav;*.mpeg;*.asf;*.avi;*.flv|All File' +
      's(*.*)|*.*'
    Left = 224
    Top = 16
  end
end