home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / Mpeg3 / Mp3playr / mp3playr.exe / 0 / RCDATA / TLISTFORM / TLISTFORM.txt < prev   
Encoding:
Text File  |  1998-03-30  |  6.3 KB  |  223 lines
  1. object ListForm: TListForm
  2.   Left = 175
  3.   Top = 109
  4.   ActiveControl = FileList
  5.   BorderIcons = [biSystemMenu]
  6.   AutoScroll = False
  7.   Caption = 'PlayList'
  8.   ClientHeight = 195
  9.   ClientWidth = 300
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   OnCloseQuery = FormCloseQuery
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   OnResize = FormResize
  19.   PixelsPerInch = 120
  20.   TextHeight = 16
  21.   object AddButton: TSpeedButton
  22.     Left = 138
  23.     Top = 9
  24.     Width = 25
  25.     Height = 25
  26.     Hint = 'Add selected file to Play List'
  27.     Glyph.Data = {
  28.       78010000424D7801000000000000760000002800000020000000100000000100
  29.       04000000000000000000120B0000120B00000000000000000000000000000000
  30.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  31.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  32.       3333333333333333333333333333333333333FFF333333333333000333333333
  33.       3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
  34.       3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
  35.       0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
  36.       BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
  37.       33337777773FF733333333333300033333333333337773333333333333333333
  38.       3333333333333333333333333333333333333333333333333333333333333333
  39.       33333333333333333333333333333333333333333333333333330000}
  40.     NumGlyphs = 2
  41.     ParentShowHint = False
  42.     ShowHint = True
  43.     OnClick = AddButtonClick
  44.   end
  45.   object DelButton: TSpeedButton
  46.     Left = 138
  47.     Top = 33
  48.     Width = 25
  49.     Height = 25
  50.     Hint = 'Remove selected file from Play List'
  51.     Glyph.Data = {
  52.       78010000424D7801000000000000760000002800000020000000100000000100
  53.       04000000000000000000120B0000120B00000000000000000000000000000000
  54.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  55.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  56.       33333333333333333333333333333333333333333333333333FF333333333333
  57.       3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
  58.       E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
  59.       E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
  60.       E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
  61.       000033333373FF77777733333330003333333333333777333333333333333333
  62.       3333333333333333333333333333333333333333333333333333333333333333
  63.       33333333333333333333333333333333333333333333333333330000}
  64.     NumGlyphs = 2
  65.     ParentShowHint = False
  66.     ShowHint = True
  67.     OnClick = DelButtonClick
  68.   end
  69.   object Play: TSpeedButton
  70.     Left = 135
  71.     Top = 65
  72.     Width = 25
  73.     Height = 25
  74.     Hint = 'Start List Play'
  75.     Glyph.Data = {
  76.       76010000424D7601000000000000760000002800000020000000100000000100
  77.       04000000000000010000130B0000130B00000000000000000000000000000000
  78.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  79.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  80.       33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
  81.       00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
  82.       70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
  83.       70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
  84.       70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
  85.       70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
  86.       70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
  87.       00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
  88.     NumGlyphs = 2
  89.     ParentShowHint = False
  90.     ShowHint = True
  91.     OnClick = PlayClick
  92.   end
  93.   object FileList: TListBox
  94.     Left = 7
  95.     Top = 8
  96.     Width = 121
  97.     Height = 73
  98.     Hint = 'Double click to play'
  99.     ItemHeight = 16
  100.     MultiSelect = True
  101.     ParentShowHint = False
  102.     PopupMenu = FileListMenu
  103.     ShowHint = True
  104.     Sorted = True
  105.     TabOrder = 0
  106.     OnClick = FileListClick
  107.     OnDblClick = FileListDblClick
  108.   end
  109.   object PlayList: TListBox
  110.     Left = 175
  111.     Top = 8
  112.     Width = 121
  113.     Height = 73
  114.     Hint = 'Play List'
  115.     ItemHeight = 16
  116.     MultiSelect = True
  117.     ParentShowHint = False
  118.     PopupMenu = PlayListMenu
  119.     ShowHint = True
  120.     TabOrder = 1
  121.     OnDragDrop = PlayListDragDrop
  122.     OnDragOver = PlayListDragOver
  123.     OnMouseDown = PlayListMouseDown
  124.   end
  125.   object PlayData: TListBox
  126.     Left = 192
  127.     Top = 104
  128.     Width = 64
  129.     Height = 14
  130.     ItemHeight = 16
  131.     TabOrder = 2
  132.     Visible = False
  133.   end
  134.   object Drives: TDriveComboBox
  135.     Left = 14
  136.     Top = 97
  137.     Width = 107
  138.     Height = 22
  139.     TabOrder = 3
  140.     Visible = False
  141.   end
  142.   object StatusBar: TStatusBar
  143.     Left = 0
  144.     Top = 176
  145.     Width = 300
  146.     Height = 19
  147.     Panels = <
  148.       item
  149.         Width = 200
  150.       end
  151.       item
  152.         Width = 50
  153.       end>
  154.     SimplePanel = False
  155.   end
  156.   object PlayListMenu: TPopupMenu
  157.     Left = 184
  158.     Top = 135
  159.     object MenuLoadPlayList: TMenuItem
  160.       Caption = 'Load PlayList'
  161.       ShortCut = 0
  162.       OnClick = MenuLoadPlayListClick
  163.     end
  164.     object MenuSavePlayList: TMenuItem
  165.       Caption = 'Save PlayList'
  166.       ShortCut = 0
  167.       OnClick = MenuSavePlayListClick
  168.     end
  169.     object MenuClearList: TMenuItem
  170.       Caption = 'Clear PlayList'
  171.       ShortCut = 0
  172.       OnClick = MenuClearListClick
  173.     end
  174.     object N1: TMenuItem
  175.       Caption = '-'
  176.       ShortCut = 0
  177.     end
  178.     object MenuCancel: TMenuItem
  179.       Caption = 'Cancel'
  180.       ShortCut = 0
  181.     end
  182.   end
  183.   object FileListMenu: TPopupMenu
  184.     Left = 96
  185.     Top = 135
  186.     object MenuDeleteFile: TMenuItem
  187.       Caption = 'Delete File'
  188.       ShortCut = 0
  189.       OnClick = MenuDeleteFileClick
  190.     end
  191.     object MenuRenameFile: TMenuItem
  192.       Caption = 'Rename File (Id3)'
  193.       ShortCut = 0
  194.       OnClick = MenuRenameFileClick
  195.     end
  196.     object MenuRefreshlisting: TMenuItem
  197.       Caption = 'Refresh listing'
  198.       ShortCut = 0
  199.       OnClick = MenuRefreshlistingClick
  200.     end
  201.     object N2: TMenuItem
  202.       Caption = '-'
  203.       ShortCut = 0
  204.     end
  205.     object Cancel1: TMenuItem
  206.       Caption = 'Cancel'
  207.       ShortCut = 0
  208.     end
  209.   end
  210.   object OpenDialog: TOpenDialog
  211.     FileEditStyle = fsEdit
  212.     Filter = 'Playlists|*.m3u|All Files|*.*'
  213.     Left = 224
  214.     Top = 135
  215.   end
  216.   object SaveDialog: TSaveDialog
  217.     FileEditStyle = fsEdit
  218.     Filter = 'Playlists|*.m3u|All Files|*.*'
  219.     Left = 256
  220.     Top = 135
  221.   end
  222. end
  223.