home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 April
/
ChipCD_498.iso
/
software
/
sharewar
/
nowos
/
virtuapa
/
virtplay.exe
/
VirtuaPlayer.exe
/
0
/
RCDATA
/
TVPOKNO
/
TVPOKNO.txt
< prev
Wrap
Text File
|
1998-01-25
|
22KB
|
627 lines
object vpOkno: TvpOkno
Left = 222
Top = 208
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'VirtuaPlayer'
ClientHeight = 287
ClientWidth = 417
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
ShowHint = True
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object oRamka0: TBevel
Left = 0
Top = 0
Width = 417
Height = 2
Shape = bsTopLine
end
object oRamka1: TBevel
Left = 8
Top = 32
Width = 401
Height = 2
Shape = bsBottomLine
end
object oRamka2: TBevel
Left = 35
Top = 5
Width = 2
Height = 24
Shape = bsLeftLine
end
object oRamka4: TBevel
Left = 91
Top = 5
Width = 2
Height = 24
Shape = bsLeftLine
end
object oStop: TToolbarButton97
Left = 280
Top = 228
Width = 24
Height = 24
Hint = 'Zatrzymaj'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333FFFFFFFFFFF3333000000000003333377777777777F33330222222222
0333337F333333337F333302222222220333337F333333337F33330222222222
0333337F333333337F333302222222220333337F333333337F33330222222222
0333337F333333337F333302222222220333337F333333337F33330222222222
0333337F333333337F333302222222220333337FFFFFFFFF7F33330000000000
0333337777777777733333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = oStopClick
end
object oPause: TToolbarButton97
Left = 304
Top = 228
Width = 24
Height = 24
Hint = 'Pauza'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFFFF33FFFFF3330000033000
00333377777F377777F33302220330222033337F337F37F337F3330222033022
2033337F337F37F337F33302220330222033337F337F37F337F3330222033022
2033337F337F37F337F33302220330222033337F337F37F337F3330222033022
2033337F337F37F337F33302220330222033337F337F37F337F3330222033022
2033337F337F37F337F33302220330222033337F337F37F337F3330222033022
2033337FFF7F37FFF7F333000003300000333377777337777733333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = oPauseClick
end
object oPlay: TToolbarButton97
Left = 328
Top = 228
Width = 24
Height = 24
Hint = 'Odtwarzaj'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FF33333333333330033333333
333333773FF3333333333302003333333333337F773FF3333333330222003333
3333337F33773FF333333302222200333333337F3333773FF333330222222200
3333337F333333773F333302222222220033337F333333337733330222222222
0033337F3333333F77333302222222003333337F33333F773333330222220033
3333337F333F773333333302220033333333337F3F7733333333330200333333
3333337F77333333333333003333333333333377333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = oPlayClick
end
object oPrev: TToolbarButton97
Left = 360
Top = 228
Width = 24
Height = 24
Hint = 'Poprzedni'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333302033333333333337F7F333333333333020333
33333333337F7F33333333333302033333333333337F7F333333333333020333
33333333337F7F33333333333302033333333333FF7F7FFFF333333000020000
3333333777737777F333333022222220333333373F3333373333333302222203
333333337F33337F33333333022222033333333373F333733333333330222033
3333333337F337F3333333333022203333333333373F37333333333333020333
33333333337F7F33333333333302033333333333337373333333333333303333
333333333337F333333333333330333333333333333733333333}
NumGlyphs = 2
OnClick = oPrevClick
end
object oNext: TToolbarButton97
Left = 384
Top = 228
Width = 24
Height = 24
Hint = 'Nast�pny'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333020333
33333333337F7F33333333333302033333333333337373F33333333330222033
3333333337F337F33333333330222033333333333733373F3333333302222203
333333337F33337F33333333022222033333333373333373F333333022222220
33333337FFFF3FF7F33333300002000033333337777F77773333333333020333
33333333337F7F33333333333302033333333333337F7F333333333333020333
33333333337F7F33333333333302033333333333337F7F333333333333020333
33333333337F7F33333333333300033333333333337773333333}
NumGlyphs = 2
OnClick = oNextClick
end
object oExit: TToolbarButton97
Left = 8
Top = 5
Width = 24
Height = 24
Hint = 'Zako�cz program'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
OnClick = oExitClick
end
object oVolume: TToolbarButton97
Left = 40
Top = 5
Width = 24
Height = 24
Hint = 'Regulacja g�o�no�ci'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F333333300033339333333337773333733}
NumGlyphs = 2
OnClick = oVolumeClick
end
object oRefresh: TToolbarButton97
Left = 64
Top = 5
Width = 24
Height = 24
Hint = 'Od�wie� zawarto��'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F773333333333330033333333333333773333333333333}
NumGlyphs = 2
OnClick = oRefreshClick
end
object oHelp: TToolbarButton97
Left = 256
Top = 5
Width = 24
Height = 24
Hint = 'Tematy pomocy'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF33333333333777773333330000}
NumGlyphs = 2
OnClick = oHelpClick
end
object oAbout: TToolbarButton97
Left = 280
Top = 5
Width = 24
Height = 24
Hint = 'Informacje o programie'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337FF3333333333330003333333333333777F333333333333080333
3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
333333333337F33333333333333B333333333333333733333333}
NumGlyphs = 2
OnClick = oAboutClick
end
object oAutoPlay: TToolbarButton97
Left = 96
Top = 5
Width = 24
Height = 24
Hint = 'Automatyczne odtwarzanie'
AllowAllUp = True
GroupIndex = 1
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
700077337F3333373777887007333337007733F773F333337733700070333333
077037773733333F7F37703707333300080737F373333377737F003333333307
78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
33337F73FF737773333307800077033333337337773373333333}
NumGlyphs = 2
OnClick = oAutoPlayClick
end
object oLoopSong: TToolbarButton97
Left = 120
Top = 5
Width = 24
Height = 24
Hint = 'Odtwarzanie ci�g�e'
AllowAllUp = True
GroupIndex = 2
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
NumGlyphs = 2
OnClick = oLoopSongClick
end
object oPlayList: TToolbarButton97
Left = 144
Top = 5
Width = 24
Height = 24
Hint = 'Odtwarzanie listy'
AllowAllUp = True
GroupIndex = 3
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555FFFFFFFFFF555555000000000
0555557777777777F5555550FFFFFFFF0555557F5FFFF557F5555550F0000FFF
0555557F77775557F5555550FFFFFFFF0555557F5FFFFFF7F5555550F000000F
0555557F77777757F5555550FFFFFFFF0555557F5FFFFFF7F5555550F000000F
0555557F77777757F5555550FFFFFFFF0555557F5FFF5557F5555550F000FFFF
0555557F77755FF7F5555550FFFFF0000555557F5FF5777755555550F00FF0F0
5555557F77557F7555555550FFFFF0055555557FFFFF77555555555000000055
5555557777777555555555555555555555555555555555555555}
NumGlyphs = 2
OnClick = oPlayListClick
end
object oShuffle: TToolbarButton97
Left = 168
Top = 5
Width = 24
Height = 24
Hint = 'Odtwarzanie losowe'
AllowAllUp = True
GroupIndex = 4
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
OnClick = oShuffleClick
end
object oIntroScan: TToolbarButton97
Left = 192
Top = 5
Width = 24
Height = 24
Hint = 'Odtwarzanie pocz�tk�w'
AllowAllUp = True
GroupIndex = 5
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333337000007333333333F777773FF333333007F0F700
3333333773373377FF333300FFF7FFF0033333773F3333377FF3300F0FFFFF0F
003337737333F37377F3707FFFF0FFFF707337F33337F33337FF00FFFFF0FFFF
F003773F3337F333377F0707FFF0FFF707037F733337F333737F00FFFF09FFFF
F00377F33377F3333773707FF0F9FFFF707337FF3737F33F37F3300F0FF9FF0F
0033377F7337F37377333300FFF9FFF003333377FF37F3377FF3300007F9F700
003337777FF7FF77773337030700070307333373777777737333333333303333
333333333337FF33333333333300033333333333337773333333}
NumGlyphs = 2
OnClick = oIntroScanClick
end
object oConfig: TToolbarButton97
Left = 224
Top = 5
Width = 24
Height = 24
Hint = 'Opcje konfiguracyjne'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
11155557F755F777777555000755033305555577755F75F77F55555555503335
0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
05555757F75F75557F5505000333555505557F777FF755557F55000000355557
07557777777F55557F5555000005555707555577777FF5557F55553000075557
0755557F7777FFF5755555335000005555555577577777555555}
NumGlyphs = 2
OnClick = oConfigClick
end
object oRamka5: TBevel
Left = 219
Top = 5
Width = 2
Height = 24
Shape = bsLeftLine
end
object oRamka6: TBevel
Left = 251
Top = 5
Width = 2
Height = 24
Shape = bsLeftLine
end
object oRamka10: TBevel
Left = 275
Top = 228
Width = 2
Height = 24
Shape = bsLeftLine
end
object oRamka11: TBevel
Left = 355
Top = 228
Width = 2
Height = 24
Shape = bsLeftLine
end
object oRamka20: TBevel
Left = 8
Top = 65
Width = 193
Height = 2
Shape = bsBottomLine
end
object oFile: TFileListBox
Left = 208
Top = 40
Width = 201
Height = 180
Enabled = False
ExtendedSelect = False
IntegralHeight = True
ItemHeight = 16
ShowGlyphs = True
TabOrder = 2
OnChange = oFileChange
OnClick = oFileClick
end
object oPlayer: TMediaPlayer
Left = 352
Top = 144
Width = 29
Height = 25
ColoredButtons = []
VisibleButtons = [btPlay]
AutoEnable = False
AutoRewind = False
Visible = False
TabOrder = 5
OnNotify = oPlayerNotify
end
object oStatus: TStatusBar
Left = 8
Top = 258
Width = 401
Height = 20
Hint = 'Panel informacyjny'
Align = alNone
Panels = <
item
Alignment = taCenter
Text = '00:00:00'
Width = 60
end
item
Alignment = taCenter
Text = '00:00:00'
Width = 60
end
item
Alignment = taCenter
Text = '0'
Width = 55
end
item
Alignment = taCenter
Text = '0'
Width = 55
end
item
Alignment = taCenter
Text = 'VirtuaPlayer'
Width = 170
end
item
Alignment = taCenter
Text = '0'
Width = 0
end
item
Alignment = taCenter
Text = '0'
Width = 0
end>
SimplePanel = False
SizeGrip = False
end
object oSlider: TScrollBar
Left = 9
Top = 229
Width = 262
Height = 22
Enabled = False
Max = 10
TabOrder = 3
OnChange = oSliderChange
OnScroll = oSliderScroll
end
object oDir: TDirectoryListBox
Left = 8
Top = 72
Width = 193
Height = 148
Ctl3D = True
IntegralHeight = True
ItemHeight = 16
ParentCtl3D = False
TabOrder = 1
OnChange = oDirChange
end
object oDrive: TDriveComboBox
Left = 8
Top = 40
Width = 193
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = oDriveChange
end
object oTimer: TTimer
Enabled = False
Interval = 500
OnTimer = oTimerTimer
Left = 352
Top = 48
end
object oPopupMenu: TPopupMenu
Left = 352
Top = 80
object oMenuPlay: TMenuItem
Caption = '&Odtwarzaj'
Enabled = False
ShortCut = 0
OnClick = oMenuPlayClick
end
object oMenuPause: TMenuItem
Caption = 'P&auza'
Enabled = False
ShortCut = 0
OnClick = oMenuPauseClick
end
object oMenuStop: TMenuItem
Caption = '&Zatrzymaj'
Enabled = False
ShortCut = 0
OnClick = oMenuStopClick
end
object oMenuPuste0: TMenuItem
Caption = '-'
ShortCut = 0
end
object oMenuPrev: TMenuItem
Caption = '&Poprzedni'
Enabled = False
ShortCut = 0
OnClick = oMenuPrevClick
end
object oMenuNext: TMenuItem
Caption = '&Nast�pny'
Enabled = False
ShortCut = 0
OnClick = oMenuNextClick
end
object oMenuPuste1: TMenuItem
Caption = '-'
ShortCut = 0
end
object oMenuExit: TMenuItem
Caption = 'Zam&knij'
Default = True
ShortCut = 0
OnClick = oMenuExitClick
end
end
object oTrayIcon: TTrayIcon
Active = False
Hint = 'Kliknij dwukrotnie, aby zaktywizowa� VirtuaPlayera'
Icon.Data = {<image001.ico>}
PopupMenu = oPopupMenu
SeparateIcon = False
OnDblClick = oTrayIconDblClick
OnRestore = oTrayIconRestore
Left = 352
Top = 112
end
end