home *** CD-ROM | disk | FTP | other *** search
Text File | 2002-12-06 | 42.1 KB | 1,608 lines |
- object NewTrackWizard: TNewTrackWizard
- Left = 353
- Top = 196
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Create New Disc Wizard'
- ClientHeight = 406
- ClientWidth = 502
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 0
- Top = 367
- Width = 503
- Height = 3
- Shape = bsTopLine
- end
- object Bevel2: TBevel
- Left = -1
- Top = 57
- Width = 504
- Height = 3
- Shape = bsTopLine
- end
- object CancelBtn: TButton
- Left = 416
- Top = 376
- Width = 80
- Height = 23
- HelpContext = 15018
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- OnClick = CancelBtnClick
- end
- object Notebook: TNotebook
- Left = 0
- Top = 63
- Width = 501
- Height = 297
- PageIndex = 12
- TabOrder = 0
- OnPageChanged = NotebookPageChanged
- object TPage
- Left = 0
- Top = 0
- Caption = 'New track'
- object Label1: TLabel
- Left = 24
- Top = 20
- Width = 187
- Height = 13
- Caption = 'Please select the type of the new track:'
- end
- object imgTrackData: TImage
- Left = 24
- Top = 44
- Width = 32
- Height = 32
- end
- object imgTrackAudio: TImage
- Left = 24
- Top = 124
- Width = 32
- Height = 32
- end
- object Label2: TLabel
- Left = 84
- Top = 60
- Width = 380
- Height = 28
- AutoSize = False
- Caption =
- 'A data track contains the files and folders of the disc. You can' +
- ' also use this option to create MP3 discs.'
- WordWrap = True
- end
- object Label3: TLabel
- Left = 84
- Top = 140
- Width = 380
- Height = 41
- AutoSize = False
- Caption =
- 'In order to create an audio track you need a wave or MP3 audio f' +
- 'ile. An audio track can be played on any CD player.'
- WordWrap = True
- end
- object Label4: TLabel
- Left = 84
- Top = 219
- Width = 380
- Height = 46
- AutoSize = False
- Caption =
- 'For this track, you need an image file containing all the track ' +
- 'data. You may also use any type of file to write on the disc.'
- WordWrap = True
- end
- object imgTrackImage: TImage
- Left = 24
- Top = 204
- Width = 32
- Height = 32
- end
- object DataRadioButton: TRadioButton
- Left = 66
- Top = 44
- Width = 113
- Height = 17
- HelpContext = 15021
- Caption = '&Data track'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object AudioRadioButton: TRadioButton
- Left = 66
- Top = 124
- Width = 113
- Height = 17
- HelpContext = 15031
- Caption = '&Audio track'
- TabOrder = 1
- end
- object ImageRadioButton: TRadioButton
- Left = 66
- Top = 204
- Width = 225
- Height = 17
- HelpContext = 15041
- Caption = 'Track from a physical &image'
- TabOrder = 2
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Select file for audio track'
- object Label5: TLabel
- Left = 65
- Top = 20
- Width = 329
- Height = 57
- AutoSize = False
- Caption =
- 'In order to create an audio track you need a MP3 or a wave audio' +
- ' file. An audio track can be played on any CD player.'
- WordWrap = True
- end
- object Label6: TLabel
- Left = 24
- Top = 80
- Width = 360
- Height = 13
- AutoSize = False
- Caption =
- 'Please enter a filename or press the browse button to select a f' +
- 'ile.'
- WordWrap = True
- end
- object imgTypeWave2: TImage
- Left = 24
- Top = 20
- Width = 32
- Height = 32
- end
- object ReadTrackBtn: TButton
- Left = 121
- Top = 121
- Width = 88
- Height = 23
- Caption = 'Read...'
- TabOrder = 0
- Visible = False
- end
- object WavSearchBtn: TButton
- Left = 24
- Top = 121
- Width = 88
- Height = 23
- Caption = 'B&rowse...'
- TabOrder = 1
- OnClick = WavSearchBtnClick
- end
- object WaveFileNameEdit: TComboBox
- Left = 24
- Top = 96
- Width = 313
- Height = 21
- ItemHeight = 0
- TabOrder = 2
- OnChange = WaveFileNameEditChange
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Select ISO-Image'
- object Label7: TLabel
- Left = 65
- Top = 20
- Width = 329
- Height = 57
- AutoSize = False
- Caption =
- 'For this track, you need an image file containing all the track ' +
- 'data. You may also use any type of file to write on the disc.'
- WordWrap = True
- end
- object Label8: TLabel
- Left = 24
- Top = 88
- Width = 329
- Height = 31
- AutoSize = False
- Caption =
- 'Please enter a filename or press the browse button to select a f' +
- 'ile.'
- WordWrap = True
- end
- object imgTrackImage2: TImage
- Left = 24
- Top = 20
- Width = 32
- Height = 32
- end
- object ISOImageEdit: TEdit
- Left = 24
- Top = 121
- Width = 303
- Height = 21
- HelpContext = 15140
- TabOrder = 0
- end
- object ISOSearchBtn: TButton
- Left = 25
- Top = 148
- Width = 88
- Height = 23
- HelpContext = 15150
- Caption = 'B&rowse...'
- TabOrder = 1
- OnClick = ISOSearchBtnClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Volume properties'
- object Label10: TLabel
- Left = 24
- Top = 83
- Width = 86
- Height = 13
- Caption = 'Disk volume &label:'
- FocusControl = VolLabelEdit
- end
- object Label9: TLabel
- Left = 65
- Top = 20
- Width = 321
- Height = 37
- AutoSize = False
- Caption = 'Please complete the following properties of the data track.'
- WordWrap = True
- end
- object imgTrackData2: TImage
- Left = 24
- Top = 20
- Width = 32
- Height = 32
- end
- object Label36: TLabel
- Left = 41
- Top = 196
- Width = 62
- Height = 13
- Caption = 'UDF version:'
- end
- object VolLabelEdit: TEdit
- Left = 121
- Top = 80
- Width = 224
- Height = 21
- HelpContext = 15050
- MaxLength = 30
- TabOrder = 0
- Text = 'VolLabelEdit'
- end
- object JolietCheckBox: TExtCheckBox
- Left = 24
- Top = 136
- Width = 420
- Height = 33
- HelpContext = 15060
- CheckAlignment = caTop
- Caption =
- 'The disc contains long filenames according to the Microsoft &Jol' +
- 'iet standard'
- Checked = True
- State = cbChecked
- TabOrder = 1
- end
- object SameDateCheckBox: TExtCheckBox
- Left = 24
- Top = 226
- Width = 420
- Height = 29
- HelpContext = 15070
- CheckAlignment = caTop
- Caption = 'All files and folders on the disc will have the same &date'
- TabOrder = 3
- end
- object cbUDF: TExtCheckBox
- Left = 24
- Top = 173
- Width = 420
- Height = 17
- HelpContext = 15070
- CheckAlignment = caTop
- Caption = 'Include &UDF file system on the disc'
- TabOrder = 2
- OnClick = cbUDFClick
- end
- object cbUDFVersion: TComboBox
- Left = 112
- Top = 192
- Width = 73
- Height = 21
- Style = csDropDownList
- Enabled = False
- ItemHeight = 13
- TabOrder = 4
- Items.Strings = (
- '1.02'
- '1.50'
- '2.00'
- '2.01')
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Select audio track source'
- object Label11: TLabel
- Left = 24
- Top = 20
- Width = 305
- Height = 13
- AutoSize = False
- Caption = 'Please select a source for the audio track:'
- WordWrap = True
- end
- object Label12: TLabel
- Left = 84
- Top = 59
- Width = 380
- Height = 41
- AutoSize = False
- Caption =
- 'You can enter a wave or MP3 audio file as source. Wave files can' +
- ' be created by saving audio tracks from an existing audio CD to ' +
- 'your hard disk.'
- WordWrap = True
- end
- object Label13: TLabel
- Left = 84
- Top = 140
- Width = 380
- Height = 41
- AutoSize = False
- Caption =
- 'Copies tracks form an audio CD that you have to insert. You can ' +
- 'select one or more tracks to be added to the disc project.'
- WordWrap = True
- end
- object Label14: TLabel
- Left = 84
- Top = 220
- Width = 380
- Height = 54
- AutoSize = False
- Caption =
- 'DirectAudio enables you to create an audio track. You can use an' +
- 'y device attached to your soundcard as an input device (e.g. rad' +
- 'io, microphone).'
- WordWrap = True
- end
- object imgTypeDirectAudio: TImage
- Left = 24
- Top = 204
- Width = 32
- Height = 32
- end
- object imgTypeExisting: TImage
- Left = 24
- Top = 124
- Width = 32
- Height = 32
- end
- object imgTypeWave: TImage
- Left = 24
- Top = 44
- Width = 32
- Height = 32
- end
- object SrcWaveFileBtn: TRadioButton
- Left = 66
- Top = 43
- Width = 300
- Height = 17
- HelpContext = 15160
- Caption = '&Audio file'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object SrcDiscBtn: TRadioButton
- Left = 66
- Top = 124
- Width = 300
- Height = 17
- HelpContext = 15080
- Caption = 'Existing &CD'
- TabOrder = 1
- end
- object SrcDirectAudioBtn: TRadioButton
- Left = 66
- Top = 204
- Width = 300
- Height = 17
- HelpContext = 15090
- Caption = '&DirectAudio'
- TabOrder = 2
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'DirectAudio'
- object Label19: TLabel
- Left = 65
- Top = 20
- Width = 401
- Height = 37
- AutoSize = False
- Caption =
- 'Click the '#39'Record'#39' button to start recording the audio data. Cli' +
- 'ck the '#39'Stop'#39' button to stop recording.'
- WordWrap = True
- end
- object MMOscope1: TMMOscope
- Left = 304
- Top = 88
- Width = 161
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvLowered
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- ForegroundColor = clLime
- BitLength = b16Bit
- SampleRate = 44100
- Mode = mStereo
- end
- object MMLevel1: TMMLevel
- Left = 304
- Top = 67
- Width = 160
- Height = 10
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvLowered
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Bar1Color = clLime
- Bar2Color = clLime
- BitLength = b16Bit
- Channel = chLeft
- Mode = mStereo
- end
- object MMLevel2: TMMLevel
- Left = 304
- Top = 77
- Width = 160
- Height = 10
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvLowered
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Bar1Color = clLime
- Bar2Color = clLime
- BitLength = b16Bit
- Channel = chRight
- Mode = mStereo
- end
- object MMLevelScale1: TMMLevelScale
- Left = 304
- Top = 59
- Width = 160
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -8
- Font.Name = 'Small Fonts'
- Font.Style = []
- Scale.TickCount = 11
- Scale.EnlargeEvery = 5
- Scale.Size = 7
- Scale.Origin = soInner
- Scale.Connect = False
- end
- object Label30: TLabel
- Left = 24
- Top = 192
- Width = 36
- Height = 13
- Caption = 'Length:'
- end
- object Label31: TLabel
- Left = 24
- Top = 216
- Width = 37
- Height = 13
- Caption = 'Filesize:'
- end
- object MMSpectrum1: TMMSpectrum
- Left = 304
- Top = 179
- Width = 160
- Height = 86
- Bevel.BevelInner = bvNone
- Bevel.BevelOuter = bvLowered
- Bevel.BevelInnerWidth = 1
- Bevel.BevelOuterWidth = 1
- Bevel.BorderStyle = bsNone
- Bevel.BorderWidth = 0
- Bevel.BorderSpace = 0
- Bevel.BorderColor = clBtnFace
- Bevel.BorderSpaceColor = clBlack
- Bevel.InnerLightColor = clBtnHighlight
- Bevel.InnerShadowColor = clBtnShadow
- Bevel.OuterLightColor = clBtnHighlight
- Bevel.OuterShadowColor = clBtnShadow
- Bar1Color = clLime
- Bar2Color = clLime
- Mode = mStereo
- BitLength = b16Bit
- SampleRate = 44100
- LogAmp = True
- Kind = skLines
- end
- object imgTypeDirectAudio2: TImage
- Left = 24
- Top = 20
- Width = 32
- Height = 32
- end
- object Label41: TLabel
- Left = 112
- Top = 61
- Width = 177
- Height = 27
- AutoSize = False
- Caption = 'Click here to start sampling without saving to a file.'
- WordWrap = True
- end
- object Label42: TLabel
- Left = 112
- Top = 95
- Width = 177
- Height = 27
- AutoSize = False
- Caption = 'Click here to start sampling and saving the data to a file.'
- WordWrap = True
- end
- object Label43: TLabel
- Left = 112
- Top = 131
- Width = 177
- Height = 27
- AutoSize = False
- Caption = 'Click here to stop the sampling process.'
- WordWrap = True
- end
- object Bevel3: TBevel
- Left = 8
- Top = 168
- Width = 289
- Height = 10
- Shape = bsBottomLine
- end
- object btnRecordWave: TBitBtn
- Left = 24
- Top = 94
- Width = 80
- Height = 30
- Caption = 'Record'
- TabOrder = 0
- OnClick = btnRecordWaveClick
- Glyph.Data = {
- 76060000424D7606000000000000360400002800000018000000180000000100
- 08000000000040020000120B0000120B00000001000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0DCC000F0CA
- A600AA3F2A00FF3F2A00005F2A00555F2A00AA5F2A00FF5F2A00007F2A00557F
- 2A00AA7F2A00FF7F2A00009F2A00559F2A00AA9F2A00FF9F2A0000BF2A0055BF
- 2A00AABF2A00FFBF2A0000DF2A0055DF2A00AADF2A00FFDF2A0000FF2A0055FF
- 2A00AAFF2A00FFFF2A000000550055005500AA005500FF005500001F5500551F
- 5500AA1F5500FF1F5500003F5500553F5500AA3F5500FF3F5500005F5500555F
- 5500AA5F5500FF5F5500007F5500557F5500AA7F5500FF7F5500009F5500559F
- 5500AA9F5500FF9F550000BF550055BF5500AABF5500FFBF550000DF550055DF
- 5500AADF5500FFDF550000FF550055FF5500AAFF5500FFFF550000007F005500
- 7F00AA007F00FF007F00001F7F00551F7F00AA1F7F00FF1F7F00003F7F00553F
- 7F00AA3F7F00FF3F7F00005F7F00555F7F00AA5F7F00FF5F7F00007F7F00557F
- 7F00AA7F7F00FF7F7F00009F7F00559F7F00AA9F7F00FF9F7F0000BF7F0055BF
- 7F00AABF7F00FFBF7F0000DF7F0055DF7F00AADF7F00FFDF7F0000FF7F0055FF
- 7F00AAFF7F00FFFF7F000000AA005500AA00AA00AA00FF00AA00001FAA00551F
- AA00AA1FAA00FF1FAA00003FAA00553FAA00AA3FAA00FF3FAA00005FAA00555F
- AA00AA5FAA00FF5FAA00007FAA00557FAA00AA7FAA00FF7FAA00009FAA00559F
- AA00AA9FAA00FF9FAA0000BFAA0055BFAA00AABFAA00FFBFAA0000DFAA0055DF
- AA00AADFAA00FFDFAA0000FFAA0055FFAA00AAFFAA00FFFFAA000000D4005500
- D400AA00D400FF00D400001FD400551FD400AA1FD400FF1FD400003FD400553F
- D400AA3FD400FF3FD400005FD400555FD400AA5FD400FF5FD400007FD400557F
- D400AA7FD400FF7FD400009FD400559FD400AA9FD400FF9FD40000BFD40055BF
- D400AABFD400FFBFD40000DFD40055DFD400AADFD400FFDFD40000FFD40055FF
- D400AAFFD400FFFFD4005500FF00AA00FF00001FFF00551FFF00AA1FFF00FF1F
- FF00003FFF00553FFF00AA3FFF00FF3FFF00005FFF00555FFF00AA5FFF00FF5F
- FF00007FFF00557FFF00AA7FFF00FF7FFF00009FFF00559FFF00AA9FFF00FF9F
- FF0000BFFF0055BFFF00AABFFF00FFBFFF0000DFFF0055DFFF00AADFFF00FFDF
- FF0055FFFF00AAFFFF00FFCCCC00FFCCFF00FFFF3300FFFF6600FFFF9900FFFF
- CC00007F0000557F0000AA7F0000FF7F0000009F0000559F0000AA9F0000FF9F
- 000000BF000055BF0000AABF0000FFBF000000DF000055DF0000AADF0000FFDF
- 000055FF0000AAFF000000002A0055002A00AA002A00FF002A00001F2A00551F
- 2A00AA1F2A00FF1F2A00003F2A00553F2A00F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD01010000
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD0101010101010000FDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFD0101F9F9F9F901010100FDFDFDFDFDFDFDFDFDFDFDFDFD
- FD01F9F9F9F9F9F9010100FDFDFDFDFDFDFDFDFDFDFDFDFDC6C6F9F9F9F9F9F9
- F9010100FDFDFDFDFDFDFDFDFDFDFDFDC6C6F9F9F9F9F9F9F9F90100FDFDFDFD
- FDFDFDFDFDFDFDFDF6C6F9F9F9F9F9F9F9F90101FDFDFDFDFDFDFDFDFDFDFDFD
- F6C6F9F9F9F9F9F9F9F90101FDFDFDFDFDFDFDFDFDFDFDFDF6C6C6F9F9F9F9F9
- F9F90101FDFDFDFDFDFDFDFDFDFDFDFDFDF6C6C6F9F9F9F9F9F9C6FDFDFDFDFD
- FDFDFDFDFDFDFDFDFDF6C6C6C6F9F9F9F9C6C6FDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDF6F6C6C6C6C6C6C6FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF6F6C6C6
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
- FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD}
- end
- object btnTestWaveIn: TBitBtn
- Left = 24
- Top = 64
- Width = 80
- Height = 23
- Caption = 'Test'
- TabOrder = 1
- OnClick = btnTestWaveInClick
- end
- object btnStop: TBitBtn
- Left = 24
- Top = 130
- Width = 80
- Height = 30
- Caption = 'Stop'
- Enabled = False
- TabOrder = 2
- OnClick = btnStopClick
- end
- object btnAudioProperties: TBitBtn
- Left = 21
- Top = 256
- Width = 115
- Height = 23
- Caption = 'Audio &Properties...'
- TabOrder = 3
- OnClick = btnAudioPropertiesClick
- end
- object edWavelength: TEdit
- Left = 80
- Top = 188
- Width = 200
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 4
- end
- object edWavefileSize: TEdit
- Left = 80
- Top = 213
- Width = 200
- Height = 21
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 5
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Select Device'
- object Label17: TLabel
- Left = 24
- Top = 24
- Width = 321
- Height = 33
- AutoSize = False
- Caption =
- 'Select the device that contains the CD. Press '#39'Next >'#39' to contin' +
- 'ue.'
- WordWrap = True
- end
- object Label35: TLabel
- Left = 24
- Top = 64
- Width = 113
- Height = 13
- AutoSize = False
- Caption = '&Devices:'
- FocusControl = DeviceTreeView
- end
- object DeviceTreeView: TTreeView
- Left = 24
- Top = 80
- Width = 441
- Height = 185
- HelpContext = 15100
- HideSelection = False
- Images = PopupMenuModule.SmallCustomImageList
- Indent = 19
- ReadOnly = True
- ShowButtons = False
- ShowRoot = False
- TabOrder = 0
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Add CD track '
- object Label18: TLabel
- Left = 24
- Top = 20
- Width = 358
- Height = 27
- AutoSize = False
- Caption = 'Please select one or more tracks and press '#39'Next'#39' to continue.'
- WordWrap = True
- end
- object Label23: TLabel
- Left = 24
- Top = 53
- Width = 41
- Height = 13
- Caption = 'CD &Title:'
- end
- object Panel2: TPanel
- Left = 24
- Top = 73
- Width = 449
- Height = 196
- BevelOuter = bvNone
- BorderStyle = bsSingle
- TabOrder = 0
- object TrackListView: TListView
- Left = 0
- Top = 0
- Width = 445
- Height = 192
- HelpContext = 15110
- Align = alClient
- BorderStyle = bsNone
- Columns = <>
- MultiSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- OnCompare = TrackListViewCompare
- OnEdited = TrackListViewEdited
- OnEditing = TrackListViewEditing
- OnKeyDown = TrackListViewKeyDown
- OnSelectItem = TrackListViewSelectItem
- end
- end
- object CDTitleEdit: TEdit
- Left = 72
- Top = 49
- Width = 297
- Height = 21
- HelpContext = 15170
- TabOrder = 1
- end
- object btnGetCDDBData: TButton
- Left = 377
- Top = 47
- Width = 97
- Height = 23
- Caption = 'Get CDDB Info'
- TabOrder = 2
- OnClick = btnGetCDDBDataClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Save tracks'
- object Label20: TLabel
- Left = 24
- Top = 20
- Width = 313
- Height = 33
- AutoSize = False
- Caption = 'Select how you want to proceed with the added tracks:'
- WordWrap = True
- end
- object Label21: TLabel
- Left = 40
- Top = 66
- Width = 360
- Height = 55
- AutoSize = False
- Caption =
- 'The tracks are written to hard disk so the source CD is not need' +
- 'ed while writing the CD. If want to make multiple copies of the ' +
- 'CD, it is faster to have the source data on hard disk.'
- WordWrap = True
- end
- object Label22: TLabel
- Left = 40
- Top = 138
- Width = 360
- Height = 55
- AutoSize = False
- Caption =
- 'This method needs less space on the hard disk, but it is necessa' +
- 'ry to insert the CD every time you write the CD.'
- WordWrap = True
- end
- object TrkSaveBtn: TRadioButton
- Left = 24
- Top = 48
- Width = 193
- Height = 17
- HelpContext = 15180
- Caption = 'Save to hard disk (recommended)'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object TrkReReadBtn: TRadioButton
- Left = 24
- Top = 120
- Width = 257
- Height = 17
- Caption = 'Ask for the source CD before writing the track'
- TabOrder = 1
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Add files and folders'
- object Label24: TLabel
- Left = 24
- Top = 24
- Width = 177
- Height = 13
- AutoSize = False
- Caption = 'Folder:'
- end
- object Label25: TLabel
- Left = 24
- Top = 8
- Width = 354
- Height = 16
- AutoSize = False
- Caption =
- 'Select the files and folders you want to add to the disc project' +
- '.'
- WordWrap = True
- end
- object Label26: TLabel
- Left = 24
- Top = 177
- Width = 159
- Height = 13
- Caption = 'Files and folders in the data track:'
- end
- object AddBtn: TButton
- Left = 24
- Top = 194
- Width = 75
- Height = 23
- HelpContext = 15190
- Caption = 'Add ->'
- TabOrder = 0
- OnClick = AddBtnClick
- end
- object DeleteBtn: TButton
- Left = 24
- Top = 245
- Width = 75
- Height = 23
- HelpContext = 15200
- Caption = 'Remove'
- Enabled = False
- TabOrder = 1
- OnClick = DeleteBtnClick
- end
- object Panel3: TPanel
- Left = 24
- Top = 41
- Width = 457
- Height = 129
- BevelOuter = bvNone
- TabOrder = 3
- object Splitter1: TSplitter
- Left = 201
- Top = 0
- Width = 3
- Height = 129
- Cursor = crSizeWE
- ResizeStyle = rsUpdate
- end
- object SrcListView: TListView
- Left = 204
- Top = 0
- Width = 253
- Height = 129
- HelpContext = 15210
- Align = alClient
- Columns = <
- item
- Caption = 'Name'
- Width = 120
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 52
- end>
- DragMode = dmAutomatic
- MultiSelect = True
- ReadOnly = True
- TabOrder = 0
- ViewStyle = vsReport
- OnChange = SrcListViewChange
- OnCompare = SrcListViewCompare
- OnDblClick = SrcListViewDblClick
- OnEnter = SrcListViewEnter
- end
- object tvSourceFolder: TdfsSystemTreeView
- Left = 0
- Top = 0
- Width = 201
- Height = 129
- RootFolder = rfFileSystem
- Align = alLeft
- DragMode = dmAutomatic
- Indent = 19
- OnChange = tvSourceFolderChange
- OnEnter = tvSourceFolderEnter
- ReadOnly = True
- TabOrder = 1
- end
- end
- object Panel4: TPanel
- Left = 112
- Top = 194
- Width = 369
- Height = 100
- BevelOuter = bvNone
- TabOrder = 2
- object DestListView: TListView
- Left = 0
- Top = 0
- Width = 369
- Height = 100
- HelpContext = 15220
- Align = alClient
- Columns = <
- item
- Caption = 'Name'
- Width = 200
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 62
- end>
- MultiSelect = True
- ReadOnly = True
- TabOrder = 0
- ViewStyle = vsReport
- OnChange = DestListViewChange
- OnEnter = DestListViewEnter
- OnExit = DestListViewExit
- OnDragDrop = DestListViewDragDrop
- OnDragOver = DestListViewDragOver
- end
- end
- object btnAddall: TButton
- Left = 24
- Top = 219
- Width = 75
- Height = 23
- HelpContext = 15190
- Caption = 'Add all ->'
- TabOrder = 4
- OnClick = btnAddallClick
- end
- object btnRemoveAll: TButton
- Left = 24
- Top = 270
- Width = 75
- Height = 23
- HelpContext = 15200
- Caption = 'Remove all'
- Enabled = False
- TabOrder = 5
- OnClick = btnRemoveAllClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'New disc project'
- object pnlProjectName: TPanel
- Left = 0
- Top = 0
- Width = 501
- Height = 257
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object imgVirtualDisc: TImage
- Left = 24
- Top = 20
- Width = 32
- Height = 32
- end
- object Label27: TLabel
- Left = 65
- Top = 20
- Width = 400
- Height = 41
- AutoSize = False
- Caption =
- 'Please enter the name of the project and select the folder that ' +
- 'should contain the project file.'
- WordWrap = True
- end
- object Label29: TLabel
- Left = 24
- Top = 128
- Width = 257
- Height = 13
- AutoSize = False
- Caption = 'Disc &name:'
- FocusControl = VCDTitleEdit
- WordWrap = True
- end
- object Label28: TLabel
- Left = 24
- Top = 200
- Width = 105
- Height = 13
- AutoSize = False
- Caption = 'Folder:'
- WordWrap = True
- end
- object Label40: TLabel
- Left = 24
- Top = 72
- Width = 433
- Height = 41
- AutoSize = False
- Caption =
- 'The project file stores only links to the data used in the proje' +
- 'ct. Deleting the project file will not delete any of your files ' +
- 'used for the project.'
- WordWrap = True
- end
- object VCDTitleEdit: TEdit
- Left = 24
- Top = 144
- Width = 433
- Height = 21
- HelpContext = 15130
- TabOrder = 0
- Text = 'New disc project'
- end
- object DestFolderEdit: TReadOnlyEdit
- Left = 24
- Top = 216
- Width = 341
- Height = 21
- TabStop = False
- PathEllipsis = False
- BorderStyle = bsSingle
- TabOrder = 1
- Text = '<Test>'
- end
- object BrowseBtn: TButton
- Left = 367
- Top = 215
- Width = 90
- Height = 23
- HelpContext = 15120
- Caption = 'B&rowse...'
- TabOrder = 2
- OnClick = BrowseBtnClick
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Finish Disc'
- object Label15: TLabel
- Left = 24
- Top = 20
- Width = 433
- Height = 29
- AutoSize = False
- Caption =
- 'The project is now ready to be written to a disc. Please select ' +
- 'what you want to do.'
- WordWrap = True
- end
- object Label32: TLabel
- Left = 98
- Top = 84
- Width = 360
- Height = 41
- AutoSize = False
- Caption =
- 'Write this project to a disc. Select this option if you want to ' +
- 'do no more changes to the project.'
- WordWrap = True
- end
- object lblAddAudiotrackDescription: TLabel
- Left = 98
- Top = 141
- Width = 360
- Height = 41
- AutoSize = False
- Caption = 'Add one or more audio tracks to this disc project.'
- WordWrap = True
- end
- object Label34: TLabel
- Left = 98
- Top = 204
- Width = 360
- Height = 41
- AutoSize = False
- Caption =
- 'You may edit and write this disc project after closing this wiza' +
- 'rd. This is useful if you want to perform advanced tasks or want' +
- ' to add additional files and folders to an audio track.'
- WordWrap = True
- end
- object Image1: TImage
- Left = 32
- Top = 64
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image000.ico>}
- Transparent = True
- end
- object imgNextAudiotrack: TImage
- Left = 32
- Top = 124
- Width = 32
- Height = 32
- Picture.Data = {<image001.ico>}
- end
- object Image3: TImage
- Left = 32
- Top = 184
- Width = 32
- Height = 32
- Picture.Data = {<image002.ico>}
- end
- object rbFinishDiscWrite: TRadioButton
- Left = 80
- Top = 64
- Width = 345
- Height = 17
- Caption = '&Write disc'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object rbFinishDiscAddTracks: TRadioButton
- Left = 80
- Top = 124
- Width = 345
- Height = 17
- Caption = '&Add additional audio track(s)'
- TabOrder = 1
- end
- object rbFinishDiscClose: TRadioButton
- Left = 80
- Top = 184
- Width = 345
- Height = 17
- Caption = '&Close this wizard'
- TabOrder = 2
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Reading Tracks'
- object Label16: TLabel
- Left = 24
- Top = 20
- Width = 353
- Height = 41
- AutoSize = False
- Caption =
- 'The tracks you selected are now read and saved to hard disk. Ple' +
- 'ase wait until reading is finished.'
- WordWrap = True
- end
- object lblReadingFinished: TLabel
- Left = 32
- Top = 104
- Width = 353
- Height = 13
- AutoSize = False
- Caption =
- 'The reading was completed successfully. Press "Next" to continue' +
- '...'
- WordWrap = True
- end
- inline StatusDisplayFrame: TStatusDisplayFrame
- Left = 24
- Top = 128
- Width = 433
- inherited pbTrack: TProgressBar
- Height = 17
- Smooth = True
- end
- inherited pbTotal: TProgressBar
- Height = 17
- Smooth = True
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'DeviceSettings'
- object pnlMediaSelection: TPanel
- Left = 0
- Top = 0
- Width = 501
- Height = 297
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object Label37: TLabel
- Left = 16
- Top = 1
- Width = 292
- Height = 13
- Caption = 'Please select the type and size of the disc you want to create.'
- end
- object Label38: TLabel
- Left = 16
- Top = 26
- Width = 465
- Height = 32
- AutoSize = False
- Caption =
- 'The specified size is used for information and does not limit th' +
- 'e size of the created disc. You can change these settings by edi' +
- 'ting the properties of the project.'
- WordWrap = True
- end
- object Label39: TLabel
- Left = 32
- Top = 184
- Width = 277
- Height = 13
- Caption = 'You can select the default device for the new project here:'
- end
- inline VCDSizeFrame: TVCDSizeFrame
- Left = 8
- Top = 85
- Width = 425
- Height = 92
- end
- object btnRefresh: TButton
- Left = 400
- Top = 198
- Width = 89
- Height = 23
- Caption = 'Refresh'
- TabOrder = 1
- OnClick = btnRefreshClick
- end
- object rbUserSize: TRadioButton
- Left = 16
- Top = 72
- Width = 281
- Height = 17
- Caption = 'Select type and size of the disc you want to use'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = rbSizeSelectClick
- end
- object rbReadDiscSize: TRadioButton
- Left = 16
- Top = 166
- Width = 305
- Height = 17
- Caption = 'Use type and size of an inserted disc'
- TabOrder = 3
- OnClick = rbSizeSelectClick
- end
- object lvDevices: TListView
- Left = 32
- Top = 198
- Width = 353
- Height = 91
- Columns = <
- item
- Caption = 'Device'
- Width = 180
- end
- item
- Caption = 'Disc'
- Width = 60
- end
- item
- Alignment = taRightJustify
- Caption = 'Free space'
- Width = 100
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- TabOrder = 4
- ViewStyle = vsReport
- OnDblClick = lvDevicesDblClick
- OnSelectItem = lvDevicesSelectItem
- end
- end
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 505
- Height = 57
- BevelOuter = bvNone
- BorderWidth = 1
- Color = clWhite
- TabOrder = 4
- object imgLogo: TImage
- Left = 457
- Top = 9
- Width = 32
- Height = 32
- AutoSize = True
- Center = True
- end
- object lblTitle: TLabel
- Left = 8
- Top = 8
- Width = 385
- Height = 15
- AutoSize = False
- Caption = 'lblTitle'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object lblPageHint: TLabel
- Left = 24
- Top = 23
- Width = 369
- Height = 28
- AutoSize = False
- Caption = 'lblPageHint'
- WordWrap = True
- end
- end
- object NextBtn: TButton
- Left = 304
- Top = 376
- Width = 80
- Height = 23
- HelpContext = 15230
- Caption = 'Next >'
- Default = True
- TabOrder = 2
- OnClick = NextBtnClick
- end
- object BackBtn: TButton
- Left = 224
- Top = 376
- Width = 80
- Height = 23
- HelpContext = 15240
- Caption = '< Back'
- TabOrder = 1
- OnClick = BackBtnClick
- end
- object PropBtn: TButton
- Left = 8
- Top = 374
- Width = 80
- Height = 23
- Caption = 'Properties'
- Enabled = False
- TabOrder = 5
- Visible = False
- end
- object lbNotebookCaptions: TListBox
- Left = 104
- Top = 375
- Width = 41
- Height = 25
- ItemHeight = 13
- Items.Strings = (
- 'New track'
- 'Select File for Audio Track'
- 'Select Image'
- 'Volume Properties'
- 'Select Audio Track Source'
- 'DirectAudio'
- 'Select Device'
- 'Add CD track'
- 'Save Tracks'
- 'Add Files and Folders'
- 'New Disc Project'
- 'Finish Disc'
- 'Reading Tracks'
- 'Disc properties')
- TabOrder = 6
- Visible = False
- end
- object lbPageHints: TListBox
- Left = 152
- Top = 375
- Width = 57
- Height = 25
- ItemHeight = 13
- Items.Strings = (
- 'You can select the type of the new track.'
-
- 'You can specify the file containing the data audio track(s) of t' +
- 'he CD.'
-
- 'You can specify the file containing the track data for a data tr' +
- 'ack.'
- 'You can specify options for the data track of the CD.'
- 'You can specify the source for the audio track(s) of the CD.'
-
- 'You can directly sample data for an audio track from your sound ' +
- 'card.'
- 'You can select the device for reading track data.'
- 'You can add one or more tracks that will be read.'
- 'You can select how the audio date will be stored.'
- 'You can add files and folders to the data track.'
- 'You can specify the name of the project you want to create.'
- 'You can select how you want to proceed.'
- 'The selected track(s) are now read from the CD.'
- 'You can specify the type and size of the destination disc.')
- TabOrder = 7
- Visible = False
- end
- object WaveOpenDialog2: TOpenDialog
- Filter =
- 'Audio files (*.wav;*.mp3)|*.wav;*.mp3|Wave Audio (*.wav)|*.wav|M' +
- 'peg Audio (*.mp3)|*.mp3|All files|*.*'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
- Left = 392
- Top = 335
- end
- object IsoOpenDialog: TOpenDialog
- Filter =
- 'Images (*.iso;*.mpg;*.mpeg;*.bin;*.img;*.udf;*.hfs)|*.iso;*.mpg;' +
- '*.mpeg;*.bin;*.img;*.hfs;*.udf|ISO-Image (*.iso)|*.iso|Video Ima' +
- 'ge (*.mpg;*.mpeg)|*.mpg;*.mpeg|HFS Image (*.hfs)|*.hfs|UDF Image' +
- ' (*.udf)|*.udf|All files (*.*)|*.*'
- Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
- Left = 424
- Top = 335
- end
- object WaveSaveDialog: TSaveDialog
- DefaultExt = 'wav'
- Filter = 'Wave-Audio|*.wav|All files|*.*'
- Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
- Title = 'Save new track as...'
- Left = 472
- Top = 335
- end
- object MMWaveFile1: TMMWaveFile
- Wave.FileMustExist = False
- Input = MMRingBuffer1
- Enabled = False
- Left = 240
- Top = 413
- end
- object MMConnector1: TMMConnector
- EnterIdle = False
- Input = MMWaveIn
- Output = MMRingBuffer1
- Level1 = MMLevel1
- Level2 = MMLevel2
- Oscope1 = MMOscope1
- Spectrum1 = MMSpectrum1
- Left = 160
- Top = 413
- end
- object MMProperties: TMMProperties
- Title = 'Audio Properties'
- Left = 376
- Top = 413
- end
- object MMRingBuffer1: TMMRingBuffer
- Input = MMConnector1
- Output = MMWaveFile1
- Left = 200
- Top = 413
- end
- object MMWaveIn: TMMWaveIn
- OnStart = MMWaveInStart
- OnStop = MMWaveInStop
- Output = MMConnector1
- DeviceID = MapperId
- Mode = mStereo
- BitLength = b16Bit
- SampleRate = 44100
- TimeFormat = tfMillisecond
- Left = 120
- Top = 413
- end
- object tmRecordWave: TTimer
- Enabled = False
- Interval = 50
- OnTimer = tmRecordWaveTimer
- Left = 328
- Top = 413
- end
- object WaveOpenDialog: TMMWaveOpenDialog
- Filter =
- 'Audio files (*.wav;*.mp3)|*.wav;*.mp3|Wave Audio (*.wav)|*.wav|M' +
- 'peg Audio (*.mp3)|*.mp3|All files|*.*'
- Title = 'Open Wave File'
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofNoNetworkButton, ofEnableSizing]
- Left = 392
- Top = 295
- end
- end
-