object cdrip: Tcdrip Left = 261 Height = 547 Top = 65 Width = 540 ActiveControl = artistedit BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Rip CD...' ClientHeight = 547 ClientWidth = 540 FormStyle = fsStayOnTop OnClose = FormClose OnCreate = FormCreate Position = poMainFormCenter ShowInTaskBar = stNever LCLVersion = '0.9.29' object LArtist: TLabel Left = 24 Height = 12 Top = 16 Width = 64 Alignment = taRightJustify AutoSize = False Caption = 'Artist' ParentColor = False end object LAlbum: TLabel Left = 24 Height = 12 Top = 48 Width = 60 Alignment = taRightJustify AutoSize = False Caption = 'Album' ParentColor = False end object LNameScheme: TLabel Left = 40 Height = 17 Top = 392 Width = 126 Caption = 'Outfile naming scheme' ParentColor = False end object startbtn: TButton Left = 424 Height = 25 Top = 352 Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Start' OnClick = startButClick TabOrder = 0 end object backbtn: TButton Left = 424 Height = 25 Top = 280 Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Back' OnClick = Button2Click TabOrder = 1 end object Panel1: TPanel Left = 24 Height = 112 Top = 416 Width = 496 ClientHeight = 112 ClientWidth = 496 TabOrder = 2 object Label1: TLabel Left = 208 Height = 17 Top = 16 Width = 67 Caption = 'Bitrate kbit/s' ParentColor = False end object writetagscheck: TCheckBox Left = 56 Height = 23 Top = 44 Width = 107 Caption = 'Write ID3-Tags' Checked = True State = cbChecked TabOrder = 0 end object encodecheck: TCheckBox Left = 16 Height = 23 Top = 16 Width = 109 Caption = 'Encode to mp3' Checked = True OnChange = encodecheckChange State = cbChecked TabOrder = 1 end object bitratebox: TComboBox Left = 289 Height = 26 Top = 12 Width = 63 ItemHeight = 0 ItemIndex = 2 Items.Strings = ( '64' '96' '128' '160' '192' '256' '320' ) TabOrder = 2 Text = '128' end object subfoldercheck: TCheckBox Left = 216 Height = 23 Top = 45 Width = 147 Caption = 'Create artist subfolder' Checked = True State = cbChecked TabOrder = 3 end object paranoia: TCheckBox Left = 16 Height = 23 Top = 80 Width = 250 Caption = 'Deep error eorrection (using libparanoia)' TabOrder = 4 Visible = False end end object artistedit: TEdit Left = 96 Height = 26 Top = 8 Width = 264 TabOrder = 3 Text = 'artistedit' end object albumedit: TEdit Left = 96 Height = 26 Top = 40 Width = 264 TabOrder = 4 Text = 'albumedit' end object querrybtn: TButton Left = 384 Height = 34 Top = 24 Width = 95 AutoSize = True BorderSpacing.InnerBorder = 4 Caption = 'Query CDDB' OnClick = Button1Click TabOrder = 5 end object ejectbtn: TButton Left = 424 Height = 25 Top = 168 Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Eject' OnClick = Button4Click TabOrder = 6 end object Trackgrid: TStringGrid Left = 24 Height = 256 Top = 80 Width = 380 AutoAdvance = aaNone ColCount = 4 Columns = < item MinSize = 300 MaxSize = 300 Width = 250 end item Alignment = taCenter MinSize = 30 MaxSize = 50 PickList.Strings = ( 'x' ' ' ) Title.Caption = 'Rip' Width = 40 end item Alignment = taRightJustify Title.Alignment = taRightJustify Title.Caption = 'Length' Width = 50 end> DefaultColWidth = 20 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goEditing, goColSpanning, goSmoothScroll, goScrollKeepVisible] RowCount = 1 ScrollBars = ssVertical TabOrder = 7 OnHeaderClick = TrackgridHeaderClick OnSelectCell = TrackgridSelectCell end object loadbtn: TButton Left = 424 Height = 25 Top = 88 Width = 96 BorderSpacing.InnerBorder = 4 Caption = 'Load' OnClick = Button5Click TabOrder = 8 end object outputfolderbox: TComboBox Left = 24 Height = 26 Top = 352 Width = 344 ItemHeight = 0 TabOrder = 9 Text = 'outputfolderbox' end object browsedirectorybtn: TButton Left = 378 Height = 25 Top = 352 Width = 22 BorderSpacing.InnerBorder = 4 Caption = '...' OnClick = browsedirectorybtnClick TabOrder = 10 end object drivebox: TComboBox Left = 424 Height = 26 Top = 128 Width = 96 ItemHeight = 0 TabOrder = 11 Text = ' ' end object FileNameType: TComboBox Left = 184 Height = 26 Top = 384 Width = 184 ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'Track - Artist - Title' 'Artist - Title' 'Artist -Track - Title' ) TabOrder = 12 Text = 'Track - Artist - Title' end object Timer1: TTimer Enabled = False Interval = 100 OnTimer = Timer1Timer left = 24 end object SelectDirectoryDialog1: TSelectDirectoryDialog FilterIndex = 0 end end