home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-10-06 | 62.8 KB | 1,858 lines |
- object MainForm: TMainForm
- Left = 84
- Top = 48
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- AutoScroll = False
- Caption = 'Clarion'
- ClientHeight = 448
- ClientWidth = 626
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- Scaled = False
- ShowHint = True
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnResize = FormResize
- PixelsPerInch = 120
- TextHeight = 16
- object bBrowser: TSpeedButton
- Left = 336
- Top = 425
- Width = 43
- Height = 21
- Hint = 'Toggle browser (F9)'
- AllowAllUp = True
- GroupIndex = 1
- Down = True
- Glyph.Data = {
- 8E010000424D8E010000000000007600000028000000240000000E0000000100
- 0400000000001801000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999
- 9999999900000000000009990000999999999999999999988888888888888099
- 000099999999999999999998F77FFFFF77778099000099000000000000099998
- FA20000000078099000098888888888888809998F7777788777000990000987F
- FFFFFFFFF7880998FFFFF87F777AB09900009878888888888788099988888777
- F77BEE0900009877777777777788099999998777808E77090000987777777777
- 278809999999877A07077709000098FFFFFFFFFFFF880999999987AA808F7709
- 00009987777777777778099999998AAEBB77F709000099988888888888889999
- 999998EEBB77709900009999999999999999999999999988BB78899900009999
- 999999999999999999999999888999990000}
- OnClick = bBrowserClick
- end
- object lbPercent: TFFLabel
- Left = 292
- Top = 402
- Width = 38
- Height = 16
- Cursor = 1
- Hint =
- 'Left click = mark Start; Right click = mark End; Shift+Click = ' +
- 'Clear'
- Alignment = taCenter
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- OnMouseMove = lbPercentMouseMove
- OnMouseUp = lbPercentMouseUp
- end
- object pnOrg: TGroupBox
- Left = 304
- Top = 81
- Width = 49
- Height = 305
- Cursor = crHSplit
- TabOrder = 4
- OnMouseDown = pnOrgMouseDown
- OnMouseMove = pnOrgMouseMove
- OnMouseUp = pnOrgMouseUp
- object bTabs: TBitBtn
- Left = 8
- Top = 56
- Width = 32
- Height = 29
- Hint =
- 'Tab switch [F11] (+Ctrl = Copy selection; +Shift = Move selectio' +
- 'n)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnMouseDown = bTabsMouseDown
- Glyph.Data = {
- 42010000424D4201000000000000760000002800000017000000110000000100
- 040000000000CC00000000000000000000001000000010000000000000000000
- 800000800000008080008000000080008000C0C0C00000FFFF00808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
- AAAAAAAAAAA0A666666666807777777777A0A666666666807777777777A0A664
- 646466807774747477A0A646464646807747474747A0A66666666680F7777777
- 77A0A666666668090F77777777A0AFFFFFFF809990FFFFFFFFA0A00000000999
- 9900000000A0A0F999999999999980EEEEA0A0F999494949499980EEEEA0A0F9
- 94949494949980EEEEA0AA0F99999999999980FEEEA0AAA0F999999999980A0F
- EEA0AAAA0FFFFFFFFF80AAA0FFA0AAAAA0000000000AAAAA00A0AAAAAAAAAAAA
- AAAAAAAAAAA0}
- end
- object bUp: TBitBtn
- Left = 9
- Top = 93
- Width = 32
- Height = 26
- Hint =
- 'Move selected items up (+Shift=top of queue; +Ctrl=top of window' +
- #39')'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnMouseDown = bUpMouseDown
- Glyph.Data = {
- 56010000424D56010000000000007600000028000000200000000E0000000100
- 040000000000E0000000000000000000000010000000100000000000000000FF
- 00000000840080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00110000000000
- 0000114444444444444411100000000000011114444444444441222222222222
- 2201333333333333334112222222222220111333333333333411112222222222
- 2011113333333333341111222222222201111133333333334111111222222222
- 1111111333333333111111122222222011111113333333341111111122222201
- 1111111133333341111111111222220111111111133333411111111112222011
- 1111111113333411111111111122201111111111113334111111111111121111
- 1111111111131111111111111112111111111111111311111111}
- NumGlyphs = 2
- end
- object bDn: TBitBtn
- Left = 9
- Top = 120
- Width = 32
- Height = 26
- Hint = 'Move selected items down (+Ctrl=bottom of window)'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnMouseDown = bDnMouseDown
- Glyph.Data = {
- 56010000424D56010000000000007600000028000000200000000E0000000100
- 040000000000E0000000000000000000000010000000100000000000000000FF
- 00000000840080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111011
- 1111111111111411111111111111101111111111111114111111111111120001
- 1111111111134441111111111112000111111111111344411111111111222000
- 1111111111333444111111111222200011111111133334441111111112222200
- 0111111113333344411111112222220000111111333333444411111222222220
- 0011111333333334441111122222222200011113333333334441112222222222
- 0001113333333333444111222222222220001133333333333444122222222222
- 2111133333333333311122222222222222113333333333333311}
- NumGlyphs = 2
- end
- object bAddOne: TBitBtn
- Left = 9
- Top = 152
- Width = 32
- Height = 26
- Hint = 'Add selected items'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -20
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = bAddOneClick
- Glyph.Data = {
- 66010000424D660100000000000076000000280000001A0000000F0000000100
- 040000000000F0000000000000000000000010000000100000000000000000FF
- 0000FF00000080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
- 0111111111111400000011111111110201111111111134000000111111110222
- 0111111111433400000011111112222201111111433334000000111110222222
- 0111111333333400000011102222222201111433333334000000102222222222
- 0111333333333400000022222222222201433333333334000000112222222222
- 0333333333333400000011122222222201133333333334000000111112222222
- 0111133333333400000011111122222201111113333334000000111111112222
- 0111111133333400000011111111112201111111113334000000111111111112
- 11111111111131000000}
- NumGlyphs = 2
- Spacing = 0
- end
- object bAddAll: TBitBtn
- Left = 9
- Top = 178
- Width = 32
- Height = 26
- Hint = 'Add all files/tracks'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = bAddAllClick
- Glyph.Data = {
- 66010000424D66010000000000007600000028000000280000000C0000000100
- 040000000000F000000000000000000000001000000010000000FF0000000000
- 000000FF000080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222222222122
- 2222222122222222242222222224222222220122222222012222222234222222
- 2234222222100122222210012222224334222222433422221000012222100001
- 2222433334222243333422200000012220000001222333333422233333342100
- 0000012100000001243333333424333333340000000001000000000133333333
- 3433333333342200000001220000000122333333342233333334222000000122
- 2000000122233333342223333334222220000122222000012222233334222223
- 3334222222200122222220012222222334222222233422222222022222222202
- 22222222322222222232}
- NumGlyphs = 2
- Spacing = 0
- end
- object bRemoveOne: TBitBtn
- Left = 9
- Top = 213
- Width = 32
- Height = 26
- Hint = 'Remove selected items from PlayList'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -20
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnClick = bRemoveOneClick
- Glyph.Data = {
- 66010000424D660100000000000076000000280000001A0000000F0000000100
- 040000000000F0000000000000000000000010000000100000000000000000FF
- 00000000800080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101111111111
- 1141111111111100000020011111111113441111111111000000220001111111
- 1334441111111100000022220001111113333444111111000000222222001111
- 1333333441111100000022222220001113333333444111000000222222222001
- 1333333333441100000022222222220003333333333444000000222222222222
- 1333333333333100000022222222221113333333333111000000222222221111
- 1333333331111100000022222211111113333331111111000000222221111111
- 1333331111111100000022211111111113331111111111000000211111111111
- 13111111111111000000}
- NumGlyphs = 2
- Spacing = 0
- end
- object bRemoveAll: TBitBtn
- Left = 9
- Top = 240
- Width = 32
- Height = 26
- Hint = 'Clear PlayList'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- OnClick = bRemoveAllClick
- Glyph.Data = {
- 66010000424D66010000000000007600000028000000280000000C0000000100
- 040000000000F0000000000000000000000010000000100000000000000000FF
- 00000000800080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00101111111110
- 1111111114111111111411111111200111111120011111113441111111344111
- 1111220001111122000111113344411111334441111122220001112222000111
- 3333444111333344411122222200112222220011333333441133333344112222
- 2220002222222000333333344433333334442222222221222222222133333333
- 3133333333312222222111222222211133333331113333333111222222111122
- 2222111133333311113333331111222211111122221111113333111111333311
- 1111221111111122111111113311111111331111111121111111112111111111
- 31111111113111111111}
- NumGlyphs = 2
- Spacing = 0
- end
- object bDel: TBitBtn
- Left = 9
- Top = 272
- Width = 32
- Height = 26
- Hint = 'Put selected files in trash (+Shift = delete)'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMenuText
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnMouseDown = bDelMouseDown
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
- 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
- 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
- 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
- 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
- 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
- 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
- 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
- 3333333337FFF7F3333333333000003333333333377777333333}
- NumGlyphs = 2
- Spacing = 0
- end
- object bMenu: TBitBtn
- Left = 9
- Top = 16
- Width = 32
- Height = 29
- Hint = 'Main Menu (F10)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = bMenuClick
- Glyph.Data = {
- 0E010000424D0E0100000000000076000000280000000B000000130000000100
- 04000000000098000000000000000000000010000000100000000000000000FF
- 000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00100001111110
- 0000222200111110000022222001111000002222220111100000122222011010
- 0000112222012010000011111201210000001111120112000000111112011200
- 0000111112011200000011111201120000001111120122100000111112002010
- 0000111112222110000011111222111000001111122011100000111112211110
- 000011111201111000001111121111100000}
- Spacing = 0
- end
- end
- object pnPlay: TPanel
- Left = 5
- Top = 357
- Width = 288
- Height = 39
- BevelInner = bvLowered
- BorderStyle = bsSingle
- Color = clBlack
- TabOrder = 1
- object bPlay: TSpeedButton
- Left = 4
- Top = 4
- Width = 72
- Height = 28
- Hint = 'Play/pause (F5)'
- AllowAllUp = True
- GroupIndex = 1
- Enabled = False
- Glyph.Data = {
- 26020000424D260200000000000076000000280000002A000000120000000100
- 040000000000B00100000000000000000000100000001000000000FF00000000
- 0000808080000000FF00FFFFFF0080800000FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00331113333333
- 3333333333344433333333333333330000003331111333333333333333334444
- 3333333333333300000055551111133333333333322244444433333333333300
- 0000350055111111333333333322224444444333333333000000350000551111
- 1133333333222222444444433333330000003350000055111111333333322222
- 2224444443333300000033500000005551111113333222222222244444443300
- 0000333500000000055111111333222222222224444444000000333350000000
- 0005511113333222222222222244440000003333500000000000055333333222
- 2222222222223300000033335000000000000553333332222222222222223300
- 0000333350000000000553333333322222222222223333000000333500000000
- 0553333333332222222222233333330000003355000000055333333333322222
- 2222233333333300000033500000555333333333333222222223333333333300
- 0000355000553333333333333322222233333333333333000000350055333333
- 3333333333222233333333333333330000005555333333333333333332223333
- 33333333333333000000}
- Margin = 12
- NumGlyphs = 2
- OnClick = bPlayClick
- end
- object bPrev: TBitBtn
- Left = 76
- Top = 4
- Width = 42
- Height = 28
- Hint = 'Play previous item (F6)'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = bPrevClick
- Glyph.Data = {
- A2010000424DA2010000000000007600000028000000280000000F0000000100
- 0400000000002C01000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
- 00AAA000AAAAAAAAAAAFFFAAAFFFAAAAAAAAA00000AAA000AAAAAAAAAFFFFFAA
- AFFFAAAAAAA0000110AA1110AAAAAAFFFFF88FAA888FAAAA0000011110AA1110
- AAAAFFFFF8888FAA888FAA000001111110AA1110AAFFFFF888888FAA888FAAA0
- 1111111110AA1110AAAF888888888FAA888FAA111111111110AA1110AA888888
- 88888FAA888F11111111111110AA11108888888888888FAA888FA11111111111
- 10AA1110A888888888888FAA888FAAA11111111110AA1110AAA8888888888FAA
- 888FAAAAA111111110AA1110AAAAA88888888FAA888FAAAAAAA1111110AA1110
- AAAAAAA888888FAA888FAAAAAAAAA11110AA1110AAAAAAAAA8888FAA888FAAAA
- AAAAAAA11AAA111AAAAAAAAAAAA88AAA888AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
- AAAAAAAAAAAA}
- NumGlyphs = 2
- Spacing = 0
- end
- object bNext: TBitBtn
- Left = 118
- Top = 4
- Width = 42
- Height = 28
- Hint = 'Play next item (F7)'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = bNextClick
- Glyph.Data = {
- A2010000424DA2010000000000007600000028000000280000000F0000000100
- 0400000000002C010000000000000000000010000000100000000000000000FF
- 00000000800080808000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00100011110011
- 1111111114441111441111111111100011110000111111111444111144441111
- 1111222011220000001111113334113344444411111122201122220000001111
- 3334113333444444111122201122222200000011333411333333444444112220
- 1122222222200000333411333333333444442220112222222222201133341133
- 3333333334112220112222222222222133341133333333333331222011222222
- 2222221133341133333333333311222011222222222211113334113333333333
- 1111222011222222221111113334113333333311111122201122222211111111
- 3334113333331111111122201122221111111111333411333311111111112221
- 1122111111111111333111331111111111111111111111111111111111111111
- 111111111111}
- NumGlyphs = 2
- Spacing = 0
- end
- object bRewind: TBitBtn
- Left = 160
- Top = 4
- Width = 32
- Height = 28
- Hint = 'Start over at beginning'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = bRewindClick
- Glyph.Data = {
- 86010000424D8601000000000000760000002800000020000000110000000100
- 040000000000100100000000000000000000100000001000000000FF00008484
- 84000000FF00FFFFFF0000FF0000A0000000FFFFFF0000000000FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00222225522222
- 2222222221122222222222225557222222222222111222222222222555577222
- 2222222111122222222222555555572222222211111112222222255522225572
- 2222211122221122222255572222255722221112222221122222555722222555
- 7222111222222111222225557777775557222111222222111222225555555555
- 5572221111111111112222255552557255722221111211221122222255525572
- 2557222211121122211222222552557225572222211211222112222222225572
- 2557222222221122211222222222557775572222222211222112222222225555
- 5557222222221111111222222222555255572222222211121112222222225522
- 25522222222211222112}
- NumGlyphs = 2
- Spacing = 0
- end
- object bOut: TBitBtn
- Left = 192
- Top = 4
- Width = 32
- Height = 28
- Hint = 'Remove current item from PlayList'
- Enabled = False
- TabOrder = 3
- OnClick = bOutClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAA0000000
- AAAAAAAAAFFFFFFFAAAAAAA09999999000AAAAAF8888888FFFAAAA9999999999
- 900AAA88888888888FFAA99900AAAAA9990AA888FFAAAAA888FAA9999000AAAA
- 9900A8888FFFAAAA88FF999999900AAAA9908888888FFAAAA88F9909999900AA
- A99088F88888FFAAA88F990AA9999000A99088FAA8888FFFA88F990AAA999990
- 099088FAAA88888FF88F990AAAA99999099088FAAAA88888F88F9900AAAAA999
- 099A88FFAAAAA888F88AA9900AAAAA99990AA88FFAAAAA8888FAA99900AAAAA9
- 99AAA888FFAAAAA888AAAA99900000999AAAAA888FFFFF888AAAAAA999999999
- AAAAAAA888888888AAAAAAAAA99999AAAAAAAAAAA88888AAAAAA}
- NumGlyphs = 2
- end
- object bStop: TBitBtn
- Left = 224
- Top = 4
- Width = 57
- Height = 28
- Hint = 'Stop (F8)'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = bStopClick
- Glyph.Data = {
- F6010000424DF60100000000000076000000280000002A000000100000000100
- 04000000000080010000000000000000000010000000100000000000000000FF
- 0000808080000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00110000000000
- 0000000111144444444444444444110000001100000000000000000111144444
- 4444444444441100000033333333333333333001122222222222222222441100
- 0000333333333333333330011222222222222222224411000000333333333333
- 3333300112222222222222222244110000003330011111111133300112224411
- 1111111222441100000033300111111111333001122244111111111222441100
- 0000333001111111113330011222441111111112224411000000333001111111
- 1133300112224411111111122244110000003330011111111133300112224411
- 1111111222441100000033300111111111333001122244111111111222441100
- 0000333000000000003330011222444444444442224411000000333000000000
- 0033300112224444444444422244110000003333333333333333300112222222
- 2222222222441100000033333333333333333111122222222222222222111100
- 0000333333333333333331111222222222222222221111000000}
- NumGlyphs = 2
- Spacing = 0
- end
- end
- object CDList: TListBox
- Left = 358
- Top = 9
- Width = 21
- Height = 340
- Cursor = 1
- Hint = 'Click = Add (+Alt = add and play immediately)'
- Color = clBlack
- Columns = 1
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnMouseDown = CDListMouseDown
- end
- object pnDisplay: TPanel
- Left = 1
- Top = 1
- Width = 354
- Height = 81
- BevelInner = bvRaised
- BorderStyle = bsSingle
- TabOrder = 10
- object lbLen: TLabel
- Left = 7
- Top = 21
- Width = 56
- Height = 21
- Hint = 'Length of current item'
- AutoSize = False
- Color = clBlack
- Font.Charset = ANSI_CHARSET
- Font.Color = clLime
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Label3: TLabel
- Left = 132
- Top = 6
- Width = 29
- Height = 24
- Alignment = taCenter
- AutoSize = False
- Caption = 'Item'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object lbItem: TLabel
- Left = 161
- Top = 6
- Width = 40
- Height = 24
- Alignment = taCenter
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Label4: TLabel
- Left = 201
- Top = 6
- Width = 16
- Height = 24
- Alignment = taCenter
- AutoSize = False
- Caption = 'of'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object lbTotal: TLabel
- Left = 217
- Top = 6
- Width = 40
- Height = 24
- Alignment = taCenter
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object lbCycling: TLabel
- Left = 224
- Top = 54
- Width = 117
- Height = 16
- Cursor = 1
- Hint = 'Click to select cycling option'
- Alignment = taCenter
- AutoSize = False
- Caption = 'Repeat'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- OnMouseUp = lbCyclingMouseUp
- end
- object lbName: TLabel
- Left = 132
- Top = 30
- Width = 209
- Height = 24
- Cursor = 1
- Hint = 'Click to find in play list'
- Alignment = taCenter
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -17
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnClick = lbNameClick
- end
- object lbFloater: TLabel
- Left = 7
- Top = 54
- Width = 70
- Height = 16
- Cursor = 1
- Hint = 'Click to show/hide floater; double click to reset'
- Alignment = taCenter
- AutoSize = False
- Caption = 'Floater'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnClick = lbFloaterClick
- OnDblClick = lbFloaterDblClick
- end
- object lbAutoPlay: TLabel
- Left = 77
- Top = 54
- Width = 70
- Height = 16
- Cursor = 1
- Hint = 'Click to toggle AutoPlay'
- Alignment = taCenter
- AutoSize = False
- Caption = 'AutoPlay'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnClick = lbAutoPlayClick
- end
- object lbTime: TFFLabel
- Left = 63
- Top = 6
- Width = 69
- Height = 25
- Hint = 'Elapsed time'
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -20
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object lbTotalLen: TLabel
- Left = 285
- Top = 6
- Width = 56
- Height = 24
- Cursor = 1
- Hint = 'Double click to calculate total time'
- Alignment = taRightJustify
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnDblClick = lbTotalLenDblClick
- end
- object lbSelCount: TLabel
- Left = 257
- Top = 6
- Width = 28
- Height = 24
- Hint = 'Number of selected items'
- Alignment = taCenter
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsUnderline]
- ParentColor = False
- ParentFont = False
- end
- object lbOrder: TLabel
- Left = 147
- Top = 54
- Width = 78
- Height = 16
- Cursor = 1
- Hint = 'Click to change play order'
- Alignment = taCenter
- AutoSize = False
- Caption = 'Shuffle'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- OnClick = lbOrderClick
- end
- object lbRemain: TFFLabel
- Left = 63
- Top = 31
- Width = 69
- Height = 23
- Hint = 'Remaining time'
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -20
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Label1: TLabel
- Left = 7
- Top = 6
- Width = 56
- Height = 15
- Alignment = taRightJustify
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Label2: TLabel
- Left = 7
- Top = 42
- Width = 56
- Height = 12
- Alignment = taRightJustify
- AutoSize = False
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- end
- object bLoadCD: TBitBtn
- Left = 358
- Top = 353
- Width = 21
- Height = 25
- Hint =
- 'Click to Eject CD'#13'Shift+Click to Load or Reload CD|Click to Ejec' +
- 't CD; Shift+Click to Load or Reload'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- OnMouseDown = bLoadCDMouseDown
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AA0000000000
- 000AAF9999999999990AAF9999999999990AAFFFFFFFFFFFFFAAAAAAAAAAAAAA
- AAAAAAAAAAAAAAAAAAAAAAA00000000000AAAAF99999999990AAAAAF99999999
- 0AAAAAAF999999990AAAAAAAF9999990AAAAAAAAAF99990AAAAAAAAAAF99990A
- AAAAAAAAAAF990AAAAAAAAAAAAF99AAAAAAAAAAAAAAFAAAAAAAA}
- Spacing = 0
- end
- object pnStat: TPanel
- Left = 390
- Top = 429
- Width = 233
- Height = 17
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- end
- object bVolume: TBitBtn
- Left = 336
- Top = 397
- Width = 43
- Height = 21
- Hint = 'Launch volume control program'
- TabOrder = 7
- OnClick = bVolumeClick
- Glyph.Data = {
- 56010000424D560100000000000076000000280000001A0000000E0000000100
- 040000000000E0000000000000000000000010000000100000000000000000FF
- 00000084840000FF0000C6C6C60000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00330033333311
- 1111111111001100000030020333331111111111102001000000044020333311
- 1111111102044000000006600203331111111110200660000000066405233311
- 1111111250466000000006640650031111111005604660000000066005602011
- 1111020650066000000006040564521111112546504060000000066006546211
- 1111264560066000000006640562231111111226504660000000066406533311
- 1111111560466000000006400523331111111112500460000000444052333311
- 1111111125044400000030002333331111111111120001000000}
- end
- object Browser: TPageControl
- Left = 384
- Top = 0
- Width = 241
- Height = 425
- ActivePage = FilesTab
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- HotTrack = True
- ParentFont = False
- TabOrder = 8
- OnChange = BrowserChange
- object FilesTab: TTabSheet
- Caption = 'Files'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- object cbAutoSel: TCheckBox
- Left = 4
- Top = 2
- Width = 88
- Height = 25
- Hint = 'Toggle auto (lazy) select'
- Caption = 'AutoSelect'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 0
- OnClick = cbAutoSelClick
- end
- object DriveBox: TDriveComboBox
- Left = 96
- Top = 4
- Width = 133
- Height = 22
- DirList = DirList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object DirList: TDirectoryListBox
- Left = 4
- Top = 30
- Width = 225
- Height = 111
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 2
- OnClick = DirListClick
- OnEnter = DirListEnterExit
- OnExit = DirListEnterExit
- OnKeyDown = DirListKeyDown
- end
- object FileList: TFileListView
- Left = 4
- Top = 148
- Width = 225
- Height = 181
- OnClick = FileListClick
- OnDblClick = FileListDblClick
- Columns = <
- item
- Caption = 'Name'
- Width = 150
- end
- item
- Caption = 'Type'
- end
- item
- Caption = 'Size'
- end
- item
- Caption = 'Modified'
- Width = 100
- end>
- DragMode = dmAutomatic
- ReadOnly = True
- HideSelection = False
- MultiSelect = True
- OnDragOver = ListDragOver
- OnMouseDown = FileListMouseDown
- TabOrder = 3
- ViewStyle = vsReport
- OnKeyDown = FileListKeyDown
- OnKeyUp = FileListKeyUp
- SmallImages = ImgList
- ExtendedStyles = [lvxGridLines, lvxHeaderDragDrop, lvxFullRowSelect]
- SaveSettings.AutoSave = True
- SaveSettings.RegistryKey = 'Software\Clarion\FileList'
- end
- object FilterBox: TFilterComboBox
- Left = 4
- Top = 335
- Width = 225
- Height = 24
- Filter =
- 'Audio (*.mid;*.wav;*.cda)|*.mid;*.wav;*.cda|Video (*.avi;*.mov;*' +
- '.mpg)|*.avi;*.mov;*.mpg|Play lists (*.pls)|*.pls|All files (*.*)' +
- '|*.*'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnChange = FilterBoxChange
- end
- object bRefresh: TBitBtn
- Left = 4
- Top = 366
- Width = 36
- Height = 25
- Hint = 'Refresh directory'
- TabOrder = 5
- OnClick = bRefreshClick
- Glyph.Data = {
- E6000000424DE60000000000000076000000280000000E0000000E0000000100
- 0400000000007000000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999990000999
- 990099900AAAA0099900990AA2AAAAA0990092AAA2202AAA090092AA299990AA
- 09002AA09999992AA0002AA09999992AA0002AA09999992AA0002AA09990092A
- A00092AA0992A0AA0900922A0992AAAA090099229992AAA0990099999992AAAA
- 09009999999222220900}
- end
- object bNewOnly: TBitBtn
- Left = 51
- Top = 366
- Width = 36
- Height = 25
- Hint = 'Show only files not in PlayList'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = bNewOnlyClick
- Glyph.Data = {
- 4E010000424D4E01000000000000760000002800000014000000120000000100
- 040000000000D800000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
- AAAAAAAA0000A90AAAAAAAAAAAAAAA0A0000A990AAAAAAAAAAAA00AA0000A099
- 00000A00000090AA0000A0B990BB0A0BBB09B0AA0000A0BBB90B0A0BB0BBB0AA
- 0000A0BBBB900A000BBBB0AA0000A0BBBBB90A09BBBBB0AA0000A0BBBBBB909B
- BBBBB0AA0000A0BBBBB00900BBBBB0AA0000A0BBBB099A090BBBB0AA0000A0BB
- 00990A0B900000AA0000A0BB0990AA0BB90A0AAA0000A000990AAA0BB090AAAA
- 0000A09900AAAA0BB0090AAA000009900AAAAA0000AAA0AA0000A9AAAAAAAAAA
- AAAAAA0A0000AAAAAAAAAAAAAAAAAAAA0000}
- end
- object bExplore: TBitBtn
- Left = 99
- Top = 366
- Width = 36
- Height = 25
- Hint = 'Open folder (+Shift = Explore)'
- TabOrder = 7
- OnMouseDown = bExploreMouseDown
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000013000000140000000100
- 040000000000F000000000000000000000001000000010000000000000008400
- 0000FF000000FFFF00001818180000848400848484000000FF00C6C6C60000FF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00777777777777
- 7770007000007777777777777713220000007777777777777013220000007777
- 7777777771322200000070000000000113220070000065555555551332255500
- 00006AA9860006822259550000006AA9860006822259550000006AA868338065
- 5598550000006AA6A38838055989550000006AA63A3383055898550000006AA6
- A3AA38066979550000006AA6A3AA38066989550000006AA86A33A06998985500
- 00006AA9866606988989550000006AAAAAAAAAAAAAAA55000000688989879866
- 6666667000004879898898444444447000007667989976777777777000007776
- 66666777777777700000}
- end
- object bFMove: TBitBtn
- Left = 146
- Top = 366
- Width = 36
- Height = 25
- Hint = 'Move selected files (+Ctrl = Copy)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMenuText
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnMouseDown = bFMoveMouseDown
- Glyph.Data = {
- 0E010000424D0E0100000000000076000000280000000F000000130000000100
- 0400000000009800000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAA0000000
- 0000AAAAA0BBBBBBBB00AAAAA0BBBBBBBB00AAAAA0B000000B00AAAAA0BBBBBB
- BB00AAAAA0B000000B00000000BBBBBBBB000AAAA0B000000B000A0000BBBBBB
- BB000AAAA0B00B0000000A0000BBBB0AA0A00AAAA0B00B0A0AA00A0000BBBB00
- AAA00AAAA000000AAAA00A000AAA0AAAAAA00AAAA0000AAAAAA00A00A0A0AAAA
- AAA00AAAA00AAAAAAAA0000000AAAAAAAAA0}
- Spacing = 0
- end
- object bFDel: TBitBtn
- Left = 193
- Top = 366
- Width = 36
- Height = 25
- Hint = 'Put selected files in trash (+Shift = delete)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMenuText
- Font.Height = -18
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- OnMouseDown = bFDelMouseDown
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
- 3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
- 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
- 33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
- 333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
- 03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
- 33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
- 0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
- 3333333337FFF7F3333333333000003333333333377777333333}
- NumGlyphs = 2
- Spacing = 0
- end
- end
- object CDTab: TTabSheet
- Caption = 'Audio CD'
- object lbCDPLS: TLabel
- Left = 4
- Top = 341
- Width = 221
- Height = 21
- Cursor = 1
- Hint = 'Click to link with a PlayList (+Shift = load linked playlist)'
- Alignment = taCenter
- AutoSize = False
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- OnMouseDown = lbCDPLSMouseDown
- end
- object CDTitle: TEdit
- Left = 4
- Top = 4
- Width = 225
- Height = 25
- Hint = 'Enter Artist / Title'
- AutoSize = False
- Color = clMaroon
- Ctl3D = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsUnderline]
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 0
- OnChange = CDTitleChange
- OnExit = CDTitleExit
- OnKeyPress = CDTitleKeyPress
- end
- object CDXList: TExtListView
- Left = 4
- Top = 32
- Width = 221
- Height = 305
- Hint =
- 'Click track # to add'#13'Alt+Click to add and play immediately'#13'Selec' +
- 't a track and press F2 or Return to edit its title|Click # to ad' +
- 'd; F2 or Return to edit selected track'
- Columns = <
- item
- Caption = '#'
- Width = 6
- WidthType = (
- -1)
- end
- item
- Caption = 'Name'
- Width = 200
- end
- item
- Caption = 'Length'
- Width = 100
- end>
- DragMode = dmAutomatic
- ReadOnly = True
- HideSelection = False
- MultiSelect = True
- OnDragOver = ListDragOver
- OnMouseDown = CDXListMouseDown
- TabOrder = 1
- ViewStyle = vsReport
- OnKeyDown = CDXListKeyDown
- OnKeyUp = FileListKeyUp
- ExtendedStyles = [lvxGridLines, lvxHeaderDragDrop, lvxFullRowSelect]
- SaveSettings.AutoSave = True
- SaveSettings.RegistryKey = 'Software\Clarion\CDXList'
- end
- object bSaveCDL: TButton
- Left = 4
- Top = 368
- Width = 51
- Height = 23
- Hint = 'Save CD info'
- Caption = 'Save'
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = bSaveCDLClick
- end
- object bCDDB: TButton
- Left = 70
- Top = 368
- Width = 51
- Height = 23
- Hint = 'Look up CD info via internet'
- Caption = 'Lookup'
- TabOrder = 3
- OnClick = bCDDBClick
- end
- object bSubmit: TButton
- Left = 136
- Top = 368
- Width = 51
- Height = 23
- Hint = 'Submit info to CD database'
- Caption = 'Submit'
- TabOrder = 4
- OnClick = bSubmitClick
- end
- end
- end
- object Pager: TPageControl
- Left = 1
- Top = 88
- Width = 300
- Height = 266
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- HotTrack = True
- MultiLine = True
- ParentFont = False
- TabOrder = 0
- TabPosition = tpBottom
- Visible = False
- OnChange = PagerChange
- OnDragDrop = PagerDragDrop
- OnDragOver = PagerDragOver
- OnMouseDown = PagerMouseDown
- end
- object pnMsg: TPanel
- Left = 1
- Top = 429
- Width = 330
- Height = 17
- Cursor = 1
- Hint = 'Click to put to sleep (F4)'
- Alignment = taLeftJustify
- TabOrder = 3
- OnMouseDown = pnMsgMouseDown
- end
- object TrackBar: TTrackBar
- Left = 4
- Top = 396
- Width = 285
- Height = 33
- Enabled = False
- Orientation = trHorizontal
- Frequency = 1
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 2
- TickMarks = tmBottomRight
- TickStyle = tsManual
- OnChange = TrackBarChange
- end
- object Timer: TTimer
- OnTimer = TimerTimer
- Left = 138
- Top = 221
- end
- object mnMenu: TPopupMenu
- AutoPopup = False
- Left = 329
- Top = 105
- object mnNew: TMenuItem
- Caption = '&New'
- Hint = 'Create new PlayList'
- ShortCut = 16462
- OnClick = mnNewClick
- end
- object mnOpen: TMenuItem
- Caption = '&Open...'
- Hint = 'Open a PlayList'
- ShortCut = 16463
- OnClick = mnOpenClick
- end
- object mnMerge: TMenuItem
- Caption = '&Merge...'
- Enabled = False
- Hint = 'Add items from another PlayList'
- ShortCut = 16461
- OnClick = mnMergeClick
- end
- object mnSave: TMenuItem
- Caption = '&Save'
- Enabled = False
- Hint = 'Save current PlayList'
- ShortCut = 16467
- OnClick = mnSaveClick
- end
- object mnSaveAs: TMenuItem
- Caption = 'Save &As...'
- Enabled = False
- Hint = 'Save PlayList with new name'
- OnClick = mnSaveAsClick
- end
- object mnSaveAll: TMenuItem
- Caption = 'Save All'
- Enabled = False
- Hint = 'Save all opened PlayLists'
- OnClick = mnSaveAllClick
- end
- object mnReload: TMenuItem
- Caption = '&Reload'
- Hint = 'Discard changes and reload'
- ShortCut = 16466
- OnClick = mnReloadClick
- end
- object mnClose: TMenuItem
- Caption = '&Close'
- Enabled = False
- Hint = 'Close PlayList'
- ShortCut = 16499
- OnClick = mnCloseClick
- end
- object mnCloseall: TMenuItem
- Caption = 'Close All'
- Enabled = False
- Hint = 'Close all opened PlayLists'
- ShortCut = 24691
- OnClick = mnCloseallClick
- end
- object mnRecent: TMenuItem
- Caption = 'Recent Files'
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object mnLLoad: TMenuItem
- Caption = '&Load linked Playlist'
- Enabled = False
- Hint = 'Load PlayList linked to current CD'
- ShortCut = 16460
- OnClick = mnLLoadClick
- end
- object mnLink: TMenuItem
- Caption = 'Link CD'
- Enabled = False
- Hint = 'Link current CD with this PlayList'
- OnClick = mnLinkClick
- end
- object mnLinkTo: TMenuItem
- Caption = 'Link CD to...'
- Enabled = False
- Hint = 'Link CD to another PlayList'
- OnClick = mnLinkToClick
- end
- object mnUnlink: TMenuItem
- Caption = 'Unlink'
- Enabled = False
- Hint = 'Link CD to nothing'
- OnClick = mnUnlinkClick
- end
- object mnCDDB: TMenuItem
- Caption = 'CDDB Lookup'
- Enabled = False
- Hint = 'Look up CD info via the internet'
- OnClick = bCDDBClick
- end
- object mnSubmit: TMenuItem
- Caption = 'CDDB Submit'
- Hint = 'Submit CD info to internet CD database'
- OnClick = bSubmitClick
- end
- object mnDelCDL: TMenuItem
- Caption = 'Uncatalog CD'
- Hint = 'Delete CD from local database'
- OnClick = mnDelCDLClick
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object mnHelp: TMenuItem
- Caption = 'Help'
- ShortCut = 112
- OnClick = mnHelpClick
- end
- object mnShuffle: TMenuItem
- Caption = 'Sh&uffle PlayList'
- Enabled = False
- ShortCut = 16469
- OnClick = mnShuffleClick
- end
- object mnOptions: TMenuItem
- Caption = 'Options...'
- Hint = 'Set program options'
- OnClick = mnOptionsClick
- end
- object mnAbout: TMenuItem
- Caption = 'A&bout Clarion'
- Hint = 'View the readme file'
- OnClick = mnAboutClick
- end
- object mnExit: TMenuItem
- Caption = 'E&xit'
- Hint = 'Bye :-)'
- OnClick = mnExitClick
- end
- end
- object ImgList: TImageList
- Left = 174
- Top = 189
- Bitmap = {
- 494C010108000900040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3604
- 000000000000360400002800000040000000300000000100080000000000000C
- 0000000000000000000000000000000000000000000000008000008000000080
- 8000800000008000800080800000C0C0C00040404000AFA0B900000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000C8BECD00A4A0A000808080000000FF0000FF000000FF
- FF00FF000000FF00FF00FFFF0000FFFFFF000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000FBFB000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000FB04FB0000000000000000000000
- 0000000000F90000000000000000F90000000000000000000000000000000000
- 000000000000000000000000000000000000FB0404FBFB000000000000000000
- 00000000F9F900000000000000F9F9F900000000000000000000000000000000
- 000000000000000000000000000000000000FB04040404FBFB00000000000000
- 00000000F9F9F90000000000F9F9F90000000000000000000000000000000000
- 000000000000000000000000000000000000FB040404FEFE04FBFB0000000000
- 0000000000F9F9F9000000F9F9F90000000000F8F8F8F8F8F8F8F8F8F8F8F800
- 0000000000000000F8F80000000000000000FB04040404FEFE0404FBFB000000
- 000000000000F9F90000F9F9F900000000000000F80000000000000000F80000
- 0000000000000000F8F80000000000000000FBFEFE040404FE04040404FBFB00
- 00000000000000F9F9F9F9F90000000000000000F80000000000000000F80000
- 00000000000000F80000F800000000000000FB04FEFE0404FE040404040404FB
- FB00000000000000F9F9F900000000000000000000F8000000000000F8000000
- 00000000000000F80000F800000000000000FB0404FE0404FE04040404040404
- FBFB000000000000F9F9F900000000000000000000F8000000000000F8000000
- 000000000000F800000000F8000000000000FB0404FE0404FE0404040404FBFB
- 00000000000000F9F900F9F900000000000000000000F800000000F800000000
- 000000000000F800000000F8000000000000FB0404FE04FEFE040404FBFB0000
- 000000000000F9F9000000F9F9000000000000000000F800000000F800000000
- 0000000000F8000000000000F80000000000FB0404FEFEFE0404FBFB00000000
- 0000000000F9F9F900000000F9F9000000000000000000F80000F80000000000
- 0000000000F8000000000000F80000000000FB0404FE0404FBFB000000000000
- 00000000F9F9F9000000000000F9F90000000000000000F80000F80000000000
- 00000000F80000000000000000F800000000FB040404FBFB0000000000000000
- 00000000F9F90000000000000000F9F90000000000000000F8F8000000000000
- 00000000F80000000000000000F800000000FB04FBFB00000000000000000000
- 000000000000000000000000000000F90000000000000000F8F8000000000000
- 000000F8F8F8F8F8F8F8F8F8F8F8F8000000FBFB000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000FBF8000000000000000000000000
- 0000FBF800000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000FBF8F80000000000000000000000
- 0000FBF8F8F9F900000000000000F9F900000000000000000000000000000000
- 000000000000000000000000000000000000FB0101F8F8000000000000000000
- 0000FB0101F9F9F90000000000F9F9F900000000000000000000000000000000
- 000000000000000000000000000000000000FB01010101F8F800000000000000
- 0000FB010101F9F9F900000000F9F90000000000000000000000000000000000
- 000000000000000000000000000000000000FB010101010101F8F80000000000
- 0000FB01010101F9F900F800F9F9000000000000000000000000000000000000
- 000000000000000000000000000000000000FB0101010101010101F8F8000000
- 0000FB0101010101F9F900F9F900000000000000000000000000000000000000
- 0000000000000000F8F8F800000000000000FB01010101010101010101F8F800
- 0000FB0101010101F9F9F9F900F8F80000000000000000000000000000000000
- 0000000000000000F8F8F800000000000000FB010101010101010101010101F8
- F800FB010101010101F9F9F9000101F8F8000000000000000000000000000000
- 0000000000000000F8F8F800000000000000FB01010101010101010101010101
- FBFBFB010101010101F9F9F900010101FBFB0000000000000000000000000000
- 000000000000000000000000000000000000FB0101010101010101010101FBFB
- 0000FB0101010101F9F900F9F900FBFB00000000000000000000000000000000
- 000000000000000000000000000000000000FB010101010101010101FBFB0000
- 0000FB0101010101F90001F9F9F9000000000000000000000000000000000000
- 000000000000000000000000000000000000FB01010101010101FBFB00000000
- 0000FB01010101F9F900FBFBF9F9F90000000000000000000000000000000000
- 000000000000000000000000000000000000FB0101010101FBFB000000000000
- 0000FB010101F9F900FB000000F9F90000000000000000000000000000000000
- 000000000000000000000000000000000000FB010101FBFB0000000000000000
- 0000FB0101F9F9F90000000000F9F9F900000000000000000000000000000000
- 000000000000000000000000000000000000FB01FBFB00000000000000000000
- 0000FB01FBF9F900000000000000F9F900000000000000000000000000000000
- 000000000000000000000000000000000000FBFB000000000000000000000000
- 0000FBFB0000000000000000000000000000424D3E000000000000003E000000
- 2800000040000000300000000100010000000000800100000000000000000000
- 000000000000000000000000FFFFFF0000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000001FFFFFFBFFFFFFFF07FFEFF1FFFFFFFF
- 01FFC7E1FFFFFFFF007FC3C30003FCFF001FE1870003F87F0007F00F9FE7F87F
- 0001F81F9FE7F33F0001FC3FCFCFF33F0000FC3FCFCFE79F0003F81FE79FE79F
- 000FF18FE79FCFCF003FE1C7F33FCFCF00FFC3E3F33F9FE703FFC7F3F87F9FE7
- 0FFFFFFBF87F00033FFFFFFFFCFF0003FFFFF83F1FFF1FFBFFFFE7CF07FF03F1
- 001FDFF701FF01E17FDFBFFB007F00637FDFBFFB001F00077FDF7C7D00070007
- 7FDF783D000100017FDF783D000100017FDF783D000000007FDF7C7D00030003
- 781FBFFB000F00077BBFBFFB003F00037B7FDFF700FF00E37AFFE7CF03FF01E3
- 79FFF83F0FFF03F303FFFFFF3FFF3FFF}
- end
- object dgOpen: TOpenDialog
- DefaultExt = 'pls'
- Options = [ofFileMustExist]
- Left = 110
- Top = 189
- end
- object dgSave: TSaveDialog
- DefaultExt = 'pls'
- Filter = 'PlayL:ist (*.pls)|*.pls'
- Options = [ofOverwritePrompt, ofPathMustExist]
- Left = 142
- Top = 189
- end
- object mnTabs: TPopupMenu
- AutoPopup = False
- Left = 329
- Top = 145
- end
- object mnCycling: TPopupMenu
- AutoPopup = False
- Left = 273
- Top = 61
- object mnSingle: TMenuItem
- Caption = 'Single'
- GroupIndex = 1
- Hint = 'Play one song then stop'
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mnOnce: TMenuItem
- Caption = 'Once'
- Checked = True
- GroupIndex = 1
- Hint = 'Go through same playlist once'
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mnCycle: TMenuItem
- Caption = 'Cycle'
- GroupIndex = 1
- Hint = 'Go through same playlist over and over'
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mnRepeat: TMenuItem
- Caption = 'Repeat 1'
- GroupIndex = 1
- Hint = 'Play same song over and over'
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mnSpan: TMenuItem
- Caption = 'Span'
- GroupIndex = 1
- Hint = 'Go through all playlists once'
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mnSpanCycle: TMenuItem
- Caption = 'Span Cycle'
- GroupIndex = 1
- Hint = 'Go through all playlists over and over'
- RadioItem = True
- OnClick = mnCyclingClick
- end
- end
- object TrayIcon: TTrayIcon
- Active = False
- ShowDesigning = False
- Icon.Data = {<image000.ico>}
- OnClick = mnWakeUpClick
- PopupMenu = mnTray
- Left = 224
- Top = 260
- end
- object mnTray: TPopupMenu
- Left = 232
- Top = 280
- object mnWakeUp: TMenuItem
- Caption = '&Wake up'
- OnClick = mnWakeUpClick
- end
- object mnShutDown: TMenuItem
- Caption = 'E&xit Clarion'
- OnClick = mnExitClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mtFloater: TMenuItem
- Caption = 'Floater'
- OnClick = lbFloaterClick
- end
- object mtAutoPlay: TMenuItem
- Caption = 'AutoPlay'
- OnClick = lbAutoPlayClick
- end
- object mtOrder: TMenuItem
- Caption = 'Order'
- object mtNormal: TMenuItem
- Caption = 'Normal'
- Checked = True
- GroupIndex = 1
- RadioItem = True
- OnClick = mtOrderClick
- end
- object mtShuffled: TMenuItem
- Caption = 'Shuffled'
- GroupIndex = 1
- RadioItem = True
- OnClick = mtOrderClick
- end
- object mtRandom: TMenuItem
- Caption = 'Random'
- GroupIndex = 1
- RadioItem = True
- OnClick = mtOrderClick
- end
- end
- object mtCycling: TMenuItem
- Caption = 'Cycling'
- object mtSingle: TMenuItem
- Caption = 'Single'
- GroupIndex = 1
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mtOnce: TMenuItem
- Caption = 'Once'
- Checked = True
- GroupIndex = 1
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mtCycle: TMenuItem
- Caption = 'Cycle'
- GroupIndex = 1
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mtRepeat: TMenuItem
- Caption = 'Repeat 1'
- GroupIndex = 1
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mtSpan: TMenuItem
- Caption = 'Span'
- GroupIndex = 1
- RadioItem = True
- OnClick = mnCyclingClick
- end
- object mtSpanCycle: TMenuItem
- Caption = 'Span Cycle'
- GroupIndex = 1
- RadioItem = True
- OnClick = mnCyclingClick
- end
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object mnPlay: TMenuItem
- Caption = '&Play'
- OnClick = bPlayClick
- end
- object mnPrev: TMenuItem
- Caption = 'Pre&vious'
- OnClick = bPrevClick
- end
- object mnNext: TMenuItem
- Caption = '&Next'
- OnClick = bNextClick
- end
- object mnRewind: TMenuItem
- Caption = '&Rewind'
- OnClick = bRewindClick
- end
- object mnOut: TMenuItem
- Caption = 'Remove'
- OnClick = bOutClick
- end
- object mnStop: TMenuItem
- Caption = '&Stop'
- OnClick = bStopClick
- end
- end
- object Delayer: TTimer
- Enabled = False
- OnTimer = DelayerTimer
- Left = 136
- Top = 256
- end
- end
-