home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 11
/
BUGCD1998_02.ISO
/
mulmedia
/
midinigh
/
_setup.1
/
MN.EXE
/
0
/
RCDATA
/
TPLAYLISTDLG
/
TPLAYLISTDLG.txt
Wrap
Text File
|
1997-12-11
|
11KB
|
339 lines
object playListDlg: TplayListDlg
Left = 178
Top = 90
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Playlist'
ClientHeight = 220
ClientWidth = 642
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object filesBox: TGroupBox
Left = 8
Top = 0
Width = 337
Height = 217
Caption = 'Files'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object DriveComboBox: TDriveComboBox
Left = 8
Top = 16
Width = 121
Height = 19
DirList = DirectoryListBox
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object DirectoryListBox: TDirectoryListBox
Left = 8
Top = 40
Width = 121
Height = 169
FileList = fileListBox
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 1
OnChange = DirectoryListBoxChange
end
object FilterComboBox: TFilterComboBox
Left = 136
Top = 188
Width = 193
Height = 21
FileList = fileListBox
Filter = 'MID files (*.MID)|*.MID|WAV files (*.WAV)|*.WAV'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object fileListBox: TExtFileListBox
Left = 136
Top = 16
Width = 193
Height = 165
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
Mask = '*.MID'
MultiSelect = True
ParentFont = False
ParentShowHint = False
ShowGlyphs = True
ShowHint = False
TabOrder = 2
OnChange = fileListBoxChange
OnClick = fileListBoxClick
ShowDate = False
ShowTime = False
end
end
object addBtn: TBitBtn
Left = 352
Top = 16
Width = 75
Height = 25
Hint = 'Ad selected file(s) to playlist'
Caption = 'Add'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = addBtnClick
NumGlyphs = 2
end
object addAllBtn: TBitBtn
Left = 352
Top = 48
Width = 75
Height = 25
Hint = 'Add all files in selected directory to playlist'
Caption = 'Add all'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = addAllBtnClick
NumGlyphs = 2
end
object removeBtn: TBitBtn
Left = 352
Top = 80
Width = 75
Height = 25
Hint = 'Remove all selected entries from playlist'
Caption = 'Remove'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = removeBtnClick
end
object removeAllBtn: TBitBtn
Left = 352
Top = 112
Width = 75
Height = 25
Hint = 'Remove all entries from playlist'
Caption = 'Remove all'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = removeAllBtnClick
end
object playlistBox: TGroupBox
Left = 435
Top = 0
Width = 202
Height = 217
Caption = 'Playlist'
TabOrder = 5
object newListBtn: TSpeedButton
Left = 72
Top = 184
Width = 25
Height = 25
Hint = 'New playlist'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333383333888888888833333FFFFFFFFFFF33333000000000
08333338888888888F333330FFFFFFFF08333338F33333333F333330FFFFFFFF
08333338F33333338F333330FFFFFFFF08333338F33333338F333330FFFFFFFF
08333338F33333338F333330FFFFFFFF03333338F33333338F333330FFFFFFFF
03333338F3333FFFFF333330FFFF000003333338F333888883333330FFFF0FF0
33333338F3338F3833333330FFFF0F0333333338F3338F8333333330FFFF0033
33333338FFFF883333333330000003333333333388888F333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = newListBtnClick
end
object openListBtn: TSpeedButton
Left = 104
Top = 184
Width = 25
Height = 25
Hint = 'Load playlist'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555555555555555
555555555555555555555555555555555555555FFFFFFFFFF555550000000000
55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
55555575FFF75555555555700007555555555557777555555555555555555555
55555555555555555555555555555555555555555555555555550000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = openListBtnClick
end
object saveListBtn: TSpeedButton
Left = 136
Top = 184
Width = 25
Height = 25
Hint = 'Save playlist'
Enabled = False
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F73300999999999003337777777777777330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = saveListBtnClick
end
object trashListBn: TSpeedButton
Left = 168
Top = 184
Width = 25
Height = 25
Hint = 'Delete playlist file'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F33333333330000033333333333777773333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = trashListBnClick
end
object upBtn: TSpeedButton
Left = 8
Top = 184
Width = 25
Height = 25
Hint = 'Move selected entries up in playlist'
Enabled = False
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F3333333333333303333333333333337333333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = upBtnClick
end
object downBtn: TSpeedButton
Left = 40
Top = 184
Width = 25
Height = 25
Hint = 'Move selected entries down in playlist'
Enabled = False
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F333333333333000333333333333377733333330000}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = downBtnClick
end
object ListBox: TListBox
Left = 8
Top = 16
Width = 185
Height = 161
ItemHeight = 13
MultiSelect = True
TabOrder = 0
OnClick = ListBoxClick
end
end
object okBtn: TBitBtn
Left = 352
Top = 152
Width = 75
Height = 25
Caption = 'OK'
ModalResult = 1
TabOrder = 6
OnClick = okBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555305555555555555333055555555555533305555
5555555333330555555555333333055555555833053330555555830555533055
5555555555533305555555555555330555555555555553305555555555555583
0555555555555558305555555555555553305555555555555555}
end
object cancelBtn: TBitBtn
Left = 352
Top = 184
Width = 75
Height = 25
TabOrder = 7
Kind = bkCancel
end
end