home *** CD-ROM | disk | FTP | other *** search
- inherited CDReaderForm: TCDReaderForm
- Top = 187
- Caption = 'CD Reader'
- ClientHeight = 405
- ClientWidth = 441
- PixelsPerInch = 96
- TextHeight = 13
- inherited ButtonOk: TButton
- Left = 278
- Top = 375
- Default = False
- Enabled = False
- TabOrder = 5
- Visible = False
- end
- inherited ButtonHelp: THelpButton [1]
- Left = 358
- Top = 375
- TabOrder = 4
- HelpKey = 'tool_cdreader'
- end
- object PageControl: TPageControl [2]
- Left = 6
- Top = 36
- Width = 427
- Height = 331
- ActivePage = TracksTab
- MultiLine = True
- TabOrder = 2
- OnChanging = VerifyPageChange
- object TracksTab: TTabSheet
- Caption = 'Read Tracks'
- object TrackList: TListView
- Left = 6
- Top = 58
- Width = 406
- Height = 207
- Checkboxes = True
- Columns = <
- item
- AutoSize = True
- Caption = 'Title'
- MaxWidth = 242
- MinWidth = 50
- end
- item
- Alignment = taRightJustify
- Caption = 'Start Time'
- MaxWidth = 70
- MinWidth = 70
- Width = 70
- end
- item
- Alignment = taRightJustify
- Caption = 'Length'
- MaxWidth = 70
- MinWidth = 70
- Width = 70
- end>
- ColumnClick = False
- HideSelection = False
- RowSelect = True
- TabOrder = 6
- ViewStyle = vsReport
- OnEdited = TrackListEdited
- end
- object SelectAll: TButton
- Left = 258
- Top = 273
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = 'Select All'
- Enabled = False
- TabOrder = 8
- OnClick = SelectAllClick
- end
- object SaveTracks: TButton
- Left = 338
- Top = 273
- Width = 75
- Height = 25
- Action = SaveTracksAction
- Anchors = [akRight, akBottom]
- TabOrder = 9
- end
- object GetTitles: TButton
- Left = 178
- Top = 273
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = 'Get Titles...'
- Enabled = False
- TabOrder = 7
- OnClick = GetTitlesClick
- end
- object Album: TEdit
- Left = 46
- Top = 4
- Width = 367
- Height = 21
- MaxLength = 200
- TabOrder = 1
- end
- object AlbumLabel: TStaticText
- Left = 6
- Top = 6
- Width = 36
- Height = 17
- Alignment = taRightJustify
- Caption = 'Album:'
- TabOrder = 0
- end
- object Year: TEdit
- Left = 46
- Top = 31
- Width = 113
- Height = 21
- MaxLength = 100
- TabOrder = 3
- end
- object YearLabel: TStaticText
- Left = 14
- Top = 33
- Width = 29
- Height = 17
- Alignment = taRightJustify
- Caption = 'Year:'
- TabOrder = 2
- end
- object Genre: TEdit
- Left = 278
- Top = 31
- Width = 135
- Height = 21
- MaxLength = 100
- TabOrder = 5
- end
- object GenreLabel: TStaticText
- Left = 239
- Top = 33
- Width = 36
- Height = 17
- Alignment = taRightJustify
- Caption = 'Genre:'
- TabOrder = 4
- end
- object Rename: TButton
- Left = 6
- Top = 273
- Width = 75
- Height = 25
- Action = RenameAction
- TabOrder = 10
- end
- end
- object RangeTab: TTabSheet
- Caption = 'Read Time Range'
- ImageIndex = 1
- object FromLabel: TStaticText
- Left = 101
- Top = 87
- Width = 30
- Height = 17
- Alignment = taRightJustify
- Caption = 'From:'
- TabOrder = 0
- end
- object ToLabel: TStaticText
- Left = 111
- Top = 119
- Width = 20
- Height = 17
- Alignment = taRightJustify
- Caption = 'To:'
- TabOrder = 4
- end
- object LengthLabel: TStaticText
- Left = 91
- Top = 149
- Width = 40
- Height = 17
- Alignment = taRightJustify
- Caption = 'Length:'
- TabOrder = 8
- end
- object Length: TStaticText
- Left = 134
- Top = 149
- Width = 145
- Height = 17
- Alignment = taCenter
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = '00:00:00.000s (0 MB) '
- TabOrder = 9
- end
- object SaveRange: TButton
- Left = 168
- Top = 177
- Width = 75
- Height = 25
- Action = SaveRangeAction
- TabOrder = 11
- end
- object From: TTimeBox
- Left = 134
- Top = 85
- Width = 145
- Height = 21
- TabStop = True
- Max = 100
- Decimal = -3
- PageChange = 60
- LineChange = 1
- Label = 'From'
- Buddy = FromBuddy
- DropDownCount = 15
- Enabled = False
- TabOrder = 1
- Text = '0:00.000'
- OnChange = RangeChange
- Format = tttMinutes
- Caption = '0:00.000'
- end
- object To: TTimeBox
- Left = 134
- Top = 117
- Width = 145
- Height = 21
- TabStop = True
- Max = 100
- Decimal = -3
- PageChange = 60
- LineChange = 1
- Label = 'To'
- Buddy = ToBuddy
- DropDownCount = 15
- Enabled = False
- TabOrder = 5
- Text = '0:00.000'
- OnChange = RangeChange
- Format = tttMinutes
- Caption = '0:00.000'
- end
- object FromBuddy: TBuddyUpDown
- Left = 279
- Top = 85
- Width = 15
- Height = 21
- Associate = From
- TabOrder = 2
- end
- object ToBuddy: TBuddyUpDown
- Left = 279
- Top = 117
- Width = 15
- Height = 21
- Associate = To
- TabOrder = 7
- end
- object PreviewFrom: TBitton
- Left = 301
- Top = 85
- Width = 28
- Height = 18
- Hint = 'Preview "From" setting'
- Image.Data = {
- 06010000424D06010000000000007600000028000000160000000C0000000100
- 0400000000009000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888888008888887FF8888888888888008888887AAFF88888888888008888
- 887AAAAFF888888888008888887AAAAAAFF8888888008888887AAAAAAAAF8888
- 88008888887AAAAAAA77888888008888887AAAAA7778888888008888887AAA77
- 7888888888008888887A77788888888888008888887778888888888888008888
- 88888888888888888800}
- FocusAllowed = True
- Anchors = [akRight, akBottom]
- Caption = 'Preview From'
- ParentShowHint = False
- ShowHint = True
- OnClick = PreviewClick
- TabStop = True
- TabOrder = 3
- end
- object PreviewStop: TBitton
- Left = 301
- Top = 147
- Width = 28
- Height = 18
- Hint = 'Stop preview'
- Image.Data = {
- 06010000424D06010000000000007600000028000000160000000C0000000100
- 0400000000009000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 88888888880088888888888888888888880088888887FFFFFFFF888888008888
- 8887CCCCCCCF8888880088888887CCCCCCCF8888880088888887CCCCCCCF8888
- 880088888887CCCCCCCF8888880088888887CCCCCCCF8888880088888887CCCC
- CCCF88888800888888877777777F888888008888888888888888888888008888
- 88888888888888888800}
- FocusAllowed = True
- Anchors = [akRight, akBottom]
- Caption = 'Stop Preview'
- ParentShowHint = False
- ShowHint = True
- OnClick = PreviewStopClick
- TabStop = True
- TabOrder = 10
- end
- object PreviewTo: TBitton
- Left = 301
- Top = 117
- Width = 28
- Height = 18
- Hint = 'Preview "To" setting'
- Image.Data = {
- 06010000424D06010000000000007600000028000000160000000C0000000100
- 0400000000009000000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888888888008888887FF8888888888888008888887AAFF88888888888008888
- 887AAAAFF888888888008888887AAAAAAFF8888888008888887AAAAAAAAF8888
- 88008888887AAAAAAA77888888008888887AAAAA7778888888008888887AAA77
- 7888888888008888887A77788888888888008888887778888888888888008888
- 88888888888888888800}
- FocusAllowed = True
- Anchors = [akRight, akBottom]
- Caption = 'Preview To'
- ParentShowHint = False
- ShowHint = True
- OnClick = PreviewClick
- TabStop = True
- TabOrder = 6
- end
- end
- object OptionsTab: TTabSheet
- Caption = 'Options'
- ImageIndex = 2
- object InterfaceBox: TGroupBox
- Left = 248
- Top = 3
- Width = 165
- Height = 61
- Caption = ' Device interface '
- TabOrder = 1
- object Aspi: TRadioButton
- Left = 10
- Top = 16
- Width = 147
- Height = 17
- Caption = 'ASPI'
- TabOrder = 0
- TabStop = True
- OnClick = AspiClick
- end
- object Spti: TRadioButton
- Left = 10
- Top = 36
- Width = 147
- Height = 17
- Caption = 'SPTI (Windows 2000/XP)'
- Checked = True
- TabOrder = 1
- TabStop = True
- OnClick = SptiClick
- end
- end
- object CDReadingOptionsBox: TGroupBox
- Left = 5
- Top = 3
- Width = 233
- Height = 126
- Caption = ' CD reading options '
- TabOrder = 0
- object SectorsReadLabel: TStaticText
- Left = 16
- Top = 18
- Width = 135
- Height = 17
- Alignment = taRightJustify
- Caption = 'Number of sectors per read:'
- TabOrder = 0
- end
- object SectorsRead: TNumEdit
- Left = 154
- Top = 16
- Width = 51
- Height = 21
- TabStop = True
- Value = 6
- Min = 6
- Max = 27
- PageChange = 10
- LineChange = 1
- Label = 'sectors per read'
- Buddy = SectorsReadBuddy
- Caption = '1'
- Enabled = False
- TabOrder = 1
- MaxLength = 7
- OnChange = SectorsReadChange
- end
- object SectorsReadBuddy: TBuddyUpDown
- Left = 205
- Top = 16
- Width = 15
- Height = 21
- Associate = SectorsRead
- Enabled = False
- TabOrder = 2
- end
- object SectorsOverlapBuddy: TBuddyUpDown
- Left = 205
- Top = 44
- Width = 15
- Height = 21
- Associate = SectorsOverlap
- Enabled = False
- TabOrder = 5
- end
- object SectorsOverlap: TNumEdit
- Left = 154
- Top = 44
- Width = 51
- Height = 21
- TabStop = True
- Value = 1
- Max = 25
- PageChange = 10
- LineChange = 1
- Label = 'sectors to overlap'
- Buddy = SectorsOverlapBuddy
- Caption = '1'
- Enabled = False
- TabOrder = 4
- MaxLength = 7
- end
- object SectorsOverlapLabel: TStaticText
- Left = 8
- Top = 48
- Width = 143
- Height = 17
- Alignment = taRightJustify
- Caption = 'Number of sectors to overlap:'
- TabOrder = 3
- end
- object SpeedLabel: TStaticText
- Left = 53
- Top = 74
- Width = 98
- Height = 17
- Alignment = taRightJustify
- Caption = 'Read speed (kBps):'
- TabOrder = 6
- end
- object Speed: TNumEdit
- Left = 154
- Top = 72
- Width = 51
- Height = 21
- TabStop = True
- Value = 50
- Min = 50
- Max = 65535
- PageChange = 10
- LineChange = 50
- Label = 'speed'
- Buddy = SpeedBuddy
- Caption = '1'
- Enabled = False
- TabOrder = 7
- MaxLength = 7
- end
- object SpeedBuddy: TBuddyUpDown
- Left = 205
- Top = 72
- Width = 15
- Height = 21
- Associate = Speed
- Enabled = False
- Increment = 50
- TabOrder = 8
- end
- object Swap: TCheckBox
- Left = 11
- Top = 99
- Width = 203
- Height = 17
- Caption = 'Swap bytes (fixes heavy static noise)'
- TabOrder = 9
- end
- end
- object CDDatabaseBox: TGroupBox
- Left = 5
- Top = 135
- Width = 233
- Height = 74
- Caption = ' CD database options '
- TabOrder = 2
- object AutoTitle: TCheckBox
- Left = 52
- Top = 46
- Width = 171
- Height = 17
- Caption = 'Automatically download titles'
- TabOrder = 2
- end
- object ServerLabel: TStaticText
- Left = 11
- Top = 20
- Width = 38
- Height = 17
- Alignment = taRightJustify
- Caption = 'Server:'
- TabOrder = 0
- end
- object Server: TEdit
- Left = 52
- Top = 18
- Width = 168
- Height = 21
- MaxLength = 260
- TabOrder = 1
- Text = 'freedb.freedb.org'
- end
- end
- end
- end
- object DeviceLabel: TStaticText [3]
- Left = 50
- Top = 9
- Width = 90
- Height = 17
- Alignment = taRightJustify
- Caption = 'Select CD device:'
- TabOrder = 0
- end
- object Device: TComboBox [4]
- Left = 145
- Top = 7
- Width = 245
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnChange = DeviceChange
- end
- inherited ButtonCancel: TButton [5]
- Left = 278
- Top = 375
- Cancel = False
- Caption = 'Close'
- ModalResult = 0
- TabOrder = 3
- OnClick = ButtonCancelClick
- end
- object ActionList: TActionList
- Left = 8
- Top = 372
- object SaveTracksAction: TAction
- Caption = 'Save...'
- OnExecute = SaveTracksExecute
- OnUpdate = SaveTracksEnable
- end
- object SaveRangeAction: TAction
- Caption = 'Save...'
- OnExecute = SaveRangeExecute
- OnUpdate = SaveRangeEnable
- end
- object RenameAction: TAction
- Caption = '&Rename'
- OnExecute = RenameExecute
- OnUpdate = RenameEnable
- end
- end
- end
-