home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2004 September (Special)
/
Chip-Special_2004-09_Digitalni-Hudba.bin
/
prehravace
/
tunes
/
mp3t2demo.exe
/
MP3Tunes.exe
/
0
/
RCDATA
/
TPROGINFO
/
TPROGINFO.txt
Wrap
Text File
|
2003-10-13
|
9KB
|
334 lines
object ProgInfo: TProgInfo
Left = 229
Top = 390
BorderIcons = []
BorderStyle = bsSingle
Caption = 'Program information'
ClientHeight = 277
ClientWidth = 385
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 120
Top = 248
Width = 137
Height = 25
Caption = 'Quit reading crap'
TabOrder = 0
OnClick = Button1Click
end
object Tabs: TPageControl
Left = 2
Top = 4
Width = 381
Height = 239
Cursor = crHandPoint
ActivePage = Controls
HotTrack = True
RaggedRight = True
TabHeight = 18
TabOrder = 1
TabWidth = 80
object Controls: TTabSheet
Caption = 'Controls'
object Memo2: TMemo
Left = 4
Top = 8
Width = 365
Height = 193
Lines.Strings = (
'On the left is the playlist.'
'In the middle is the database.'
'Right click in them for options.'
'On the right is the directorytree.'
'You may also use drag&drop between the above.'
''
'F1'#9'Activate left player (you don'#39't need to use Ctrl+)'
'F2'#9'Activate right player (you don'#39't need to use Alt+)'
'F3'#9'Activate playlist'
'F4'#9'Activate database'
'F5'#9'Show/hide Jingles window'
'F6'#9'Toggle Break'
'F7'#9'Automix on/off'
'F8'#9'Toggle Shuffle'
'F9'#9'Show/hide Crossfader'
'F11'#9'Remove V marks'
'F12'#9'Remove X marks'
''
'You can control both players everywhere on the screen by:'
''
'Left player: Ctrl + ?'
'Right player: Alt + ?'
''
'For the ? you put:'
''
' P'#9#9'Play or Pause'
' S'#9#9'Stop'
' <'#9#9'Previous track'
' >'#9' '#9'Next track'
''
' T'#9#9'Set Cue point'
' C'#9#9'To Cue point'
'Numpad 4'#9'Move Cue point to the left'
'Numpad 6'#9'Move Cue point to the right'
''
'Numpad +'#9'Bend Pitch up'
'Numpad -'#9#9'Bend Pitch down'
'Numpad 0'#9'Pitch back to 0%'
'Numpad 8'#9'Pitch up'
'Numpad 2'#9'Pitch down'
''
'When a player is activated (yellow text) you don'#39't have to use C' +
'trl or '
'Alt!'
''
'Tracks smaller than the set automix seconds are played'
'in a popup window when automix is on.'
'For example:'
'Automix 3 seconds.'
'If Track smaller than (3 x 2) + 2 seconds (3 = defined automix)'
'then a popup window will be activated.')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
end
object About: TTabSheet
Caption = 'About'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 4
ParentFont = False
OnHide = AboutHide
OnShow = AboutShow
object Panel2: TPanel
Left = 4
Top = 8
Width = 365
Height = 193
BevelOuter = bvLowered
Caption = 'Panel2'
TabOrder = 0
object Panel1: TImagePanel
Left = 1
Top = 1
Width = 363
Height = 191
BevelOuter = bvNone
Color = clBlack
TabOrder = 0
ImageAlignment = iaCenter
object Label1: TLabel
Left = 104
Top = 138
Width = 153
Height = 39
Alignment = taCenter
AutoSize = False
Caption = 'version'
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -32
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
Transparent = True
end
object Memo1: TMemo
Left = 2
Top = 178
Width = 361
Height = 276
Color = clBlack
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Made by: DJ Maze'
'Decoder: FMOD by Firelight Technologies'
''
'This program is shareware and may not be sold'
'in anyway.'
''
'If you didn'#39't pay for it, you may use it for 30 days.'
'After that you must pay!'
''
'Have lot'#39's of fun with this great player !'
''
'Source code: Not available !'
''
'Thanks to:'
'Tom Polten for his images'
'AudioXL for ID3v2 tagging'
'And all the users out there....')
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
end
end
end
object WWW: TTabSheet
Caption = 'WWW'
ImageIndex = 2
object MP3Tunes: TLabel
Left = 88
Top = 8
Width = 84
Height = 13
Cursor = crHandPoint
Caption = 'www.mp3tunes.nl'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = GoToURL
end
object Label3: TLabel
Left = 8
Top = 8
Width = 55
Height = 13
Caption = 'Homepage:'
end
object EMail: TLabel
Tag = 1
Left = 88
Top = 24
Width = 85
Height = 13
Cursor = crHandPoint
Caption = 'info@mp3tunes.nl'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = GoToURL
end
object AudioXL: TLabel
Left = 88
Top = 144
Width = 83
Height = 13
Cursor = crHandPoint
Caption = 'www.audioxl.com'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = GoToURL
end
object Label7: TLabel
Left = 8
Top = 96
Width = 30
Height = 13
Caption = 'FMod:'
end
object Label8: TLabel
Left = 8
Top = 24
Width = 32
Height = 13
Caption = 'E-Mail:'
end
object Label9: TLabel
Left = 8
Top = 112
Width = 43
Height = 13
Caption = 'Terratec:'
end
object Terratec: TLabel
Left = 88
Top = 112
Width = 81
Height = 13
Cursor = crHandPoint
Caption = 'www.terratec.net'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = GoToURL
end
object Label11: TLabel
Left = 8
Top = 128
Width = 20
Height = 13
Caption = 'ID3:'
end
object ID3: TLabel
Left = 88
Top = 128
Width = 59
Height = 13
Cursor = crHandPoint
Caption = 'www.id3.org'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = GoToURL
end
object Label5: TLabel
Left = 88
Top = 96
Width = 68
Height = 13
Cursor = crHandPoint
Caption = 'www.fmod.org'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = GoToURL
end
object Label6: TLabel
Left = 8
Top = 144
Width = 43
Height = 13
Caption = 'AudioXL:'
end
end
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 16
Top = 240
end
end