PC World Komputer 1998 June/Pcwk6b98.iso/Mpeg3/Mp3playr/mp3playr.exe/0/RCDATA/TLISTFORM/TLISTFORM.txt

Text File | 1998-03-30 | 6KB | 223 lines

object ListForm: TListForm
  Left = 175
  Top = 109
  ActiveControl = FileList
  BorderIcons = [biSystemMenu]
  AutoScroll = False
  Caption = 'PlayList'
  ClientHeight = 195
  ClientWidth = 300
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 16
  object AddButton: TSpeedButton
    Left = 138
    Top = 9
    Width = 25
    Height = 25
    Hint = 'Add selected file to Play List'
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333FFF333333333333000333333333
      3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
      3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
      0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
      BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
      33337777773FF733333333333300033333333333337773333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = AddButtonClick
  end
  object DelButton: TSpeedButton
    Left = 138
    Top = 33
    Width = 25
    Height = 25
    Hint = 'Remove selected file from Play List'
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333333333333333333333333333333333FF333333333333
      3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
      E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
      E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
      E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
      000033333373FF77777733333330003333333333333777333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = DelButtonClick
  end
  object Play: TSpeedButton
    Left = 135
    Top = 65
    Width = 25
    Height = 25
    Hint = 'Start List Play'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
      70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
      70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
      70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = PlayClick
  end
  object FileList: TListBox
    Left = 7
    Top = 8
    Width = 121
    Height = 73
    Hint = 'Double click to play'
    ItemHeight = 16
    MultiSelect = True
    ParentShowHint = False
    PopupMenu = FileListMenu
    ShowHint = True
    Sorted = True
    TabOrder = 0
    OnClick = FileListClick
    OnDblClick = FileListDblClick
  end
  object PlayList: TListBox
    Left = 175
    Top = 8
    Width = 121
    Height = 73
    Hint = 'Play List'
    ItemHeight = 16
    MultiSelect = True
    ParentShowHint = False
    PopupMenu = PlayListMenu
    ShowHint = True
    TabOrder = 1
    OnDragDrop = PlayListDragDrop
    OnDragOver = PlayListDragOver
    OnMouseDown = PlayListMouseDown
  end
  object PlayData: TListBox
    Left = 192
    Top = 104
    Width = 64
    Height = 14
    ItemHeight = 16
    TabOrder = 2
    Visible = False
  end
  object Drives: TDriveComboBox
    Left = 14
    Top = 97
    Width = 107
    Height = 22
    TabOrder = 3
    Visible = False
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 176
    Width = 300
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PlayListMenu: TPopupMenu
    Left = 184
    Top = 135
    object MenuLoadPlayList: TMenuItem
      Caption = 'Load PlayList'
      ShortCut = 0
      OnClick = MenuLoadPlayListClick
    end
    object MenuSavePlayList: TMenuItem
      Caption = 'Save PlayList'
      ShortCut = 0
      OnClick = MenuSavePlayListClick
    end
    object MenuClearList: TMenuItem
      Caption = 'Clear PlayList'
      ShortCut = 0
      OnClick = MenuClearListClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object MenuCancel: TMenuItem
      Caption = 'Cancel'
      ShortCut = 0
    end
  end
  object FileListMenu: TPopupMenu
    Left = 96
    Top = 135
    object MenuDeleteFile: TMenuItem
      Caption = 'Delete File'
      ShortCut = 0
      OnClick = MenuDeleteFileClick
    end
    object MenuRenameFile: TMenuItem
      Caption = 'Rename File (Id3)'
      ShortCut = 0
      OnClick = MenuRenameFileClick
    end
    object MenuRefreshlisting: TMenuItem
      Caption = 'Refresh listing'
      ShortCut = 0
      OnClick = MenuRefreshlistingClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Cancel1: TMenuItem
      Caption = 'Cancel'
      ShortCut = 0
    end
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'Playlists|*.m3u|All Files|*.*'
    Left = 224
    Top = 135
  end
  object SaveDialog: TSaveDialog
    FileEditStyle = fsEdit
    Filter = 'Playlists|*.m3u|All Files|*.*'
    Left = 256
    Top = 135
  end
end