home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 January
/
Pcwk0198.iso
/
Zadarmo
/
CLARION
/
CLARION.EXE
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
< prev
Wrap
Text File
|
1997-10-06
|
64KB
|
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