object EditID3: TEditID3 Left = 383 Height = 454 Top = 258 Width = 432 HorzScrollBar.Page = 395 HorzScrollBar.Range = 383 VertScrollBar.Page = 441 VertScrollBar.Range = 409 ActiveControl = metacontrol BorderStyle = bsDialog Caption = 'Edit ID3 Tag' ClientHeight = 454 ClientWidth = 432 OnClose = EditID3Close OnCreate = FormCreate OnHide = FormHide Position = poMainFormCenter ShowInTaskBar = stNever LCLVersion = '0.9.31' object metacontrol: TPageControl Left = 8 Height = 402 Top = 8 Width = 411 ActivePage = metatab Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 0 TabOrder = 0 object metatab: TTabSheet Caption = 'Meta-Info' ClientHeight = 371 ClientWidth = 405 object lblYear: TLabel Left = 22 Height = 14 Top = 256 Width = 26 Caption = 'Year' ParentColor = False end object lblPath: TLabel Left = 15 Height = 14 Top = 66 Width = 62 Caption = 'Path to file' ParentColor = False end object AlbumCoverImg: TImage Left = 232 Height = 151 Top = 214 Width = 160 Anchors = [akTop, akLeft, akRight, akBottom] AutoSize = True Proportional = True Stretch = True end object lblArtist: TLabel Left = 22 Height = 14 Top = 118 Width = 31 Caption = 'Artist' ParentColor = False end object lblTitle: TLabel Left = 22 Height = 14 Top = 150 Width = 25 Caption = 'Title' ParentColor = False end object lblAlbum: TLabel Left = 22 Height = 14 Top = 182 Width = 36 Caption = 'Album' ParentColor = False end object lblTrack: TLabel Left = 22 Height = 14 Top = 214 Width = 30 Caption = 'Track' ParentColor = False end object lblGenre: TLabel Left = 20 Height = 14 Top = 296 Width = 36 Caption = 'Genre' ParentColor = False end object lblComment: TLabel Left = 22 Height = 14 Top = 328 Width = 56 Caption = 'Comment' ParentColor = False end object GroupBox1: TGroupBox Left = 15 Height = 53 Top = 7 Width = 241 Caption = 'Tag to name' ClientHeight = 38 ClientWidth = 233 TabOrder = 10 object btnOptions: TButton Left = 125 Height = 23 Hint = '( %a/%a - %b - %n - %t )' Top = 8 Width = 105 Anchors = [akLeft, akBottom] BorderSpacing.Around = 4 Caption = 'Options' OnClick = btnOptionsClick ParentShowHint = False ShowHint = True TabOrder = 0 end object Button1: TButton Left = 15 Height = 23 Top = 8 Width = 105 Anchors = [akLeft, akBottom] BorderSpacing.Around = 4 Caption = 'Apply now' OnClick = Button1Click ParentShowHint = False ShowHint = True TabOrder = 1 end end object artistedit1: TEdit Left = 66 Height = 21 Top = 114 Width = 326 Anchors = [akTop, akLeft, akRight] OnChange = activateEMode TabOrder = 1 end object titleedit1: TEdit Left = 66 Height = 21 Top = 146 Width = 326 Anchors = [akTop, akLeft, akRight] OnChange = activateEMode TabOrder = 2 end object albumedit1: TEdit Left = 66 Height = 21 Top = 178 Width = 326 Anchors = [akTop, akLeft, akRight] OnChange = activateEMode TabOrder = 3 end object yearEdit1: TEdit Left = 152 Height = 21 Top = 256 Width = 64 MaxLength = 4 TabOrder = 5 end object commentedit1: TEdit Left = 21 Height = 21 Top = 336 Width = 194 OnChange = activateEMode TabOrder = 6 end object pathedit1: TEdit Left = 15 Height = 21 Top = 82 Width = 378 Anchors = [akTop, akLeft, akRight] OnChange = activateEMode TabOrder = 0 end object trackedit1: TEdit Left = 66 Height = 21 Top = 210 Width = 60 MaxLength = 4 OnChange = activateEMode TabOrder = 4 end object guessname1: TButton Left = 278 Height = 27 Top = 31 Width = 100 AutoSize = True BorderSpacing.Around = 4 Caption = 'Tag from name' OnClick = guessnameClick TabOrder = 7 end object cmbYear: TComboBox Left = 153 Height = 29 Top = 252 Width = 64 ItemHeight = 0 MaxLength = 4 OnChange = cmbYearChange Sorted = True TabOrder = 8 Text = 'cmbY' Visible = False end object cmbComment: TComboBox Left = 20 Height = 29 Top = 332 Width = 196 ItemHeight = 0 OnChange = activateEMode Sorted = True TabOrder = 9 Text = 'cmbComment' Visible = False end object GenreBox: TComboBox Left = 67 Height = 29 Top = 288 Width = 150 AutoComplete = True AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] ItemHeight = 0 OnChange = activateEMode Sorted = True TabOrder = 11 end end object fileinfo: TTabSheet Caption = 'File-Info' ClientHeight = 371 ClientWidth = 405 object mtype: TLabel Left = 40 Height = 14 Top = 34 Width = 62 Caption = 'Mediatype:' ParentColor = False end object bitrate: TLabel Left = 40 Height = 14 Top = 114 Width = 81 Caption = 'Bitrate: 0kbps' ParentColor = False end object fsize: TLabel Left = 40 Height = 14 Top = 94 Width = 77 Caption = 'Filesize: 0 MB' ParentColor = False end object srate: TLabel Left = 40 Height = 14 Top = 134 Width = 71 Caption = 'Samplerate:' ParentColor = False end object plength: TLabel Left = 40 Height = 14 Top = 58 Width = 43 Caption = 'Length:' ParentColor = False end object idlabel: TLabel Left = 41 Height = 14 Top = 178 Width = 37 Caption = 'Fileid: ' ParentColor = False end object indexlabel: TLabel Left = 40 Height = 14 Top = 194 Width = 53 Caption = 'FileIndex:' ParentColor = False end object Filelogo: TImage Left = 230 Height = 100 Top = 34 Width = 100 end end object StreamTab: TTabSheet Caption = 'Stream-Info' ClientHeight = 371 ClientWidth = 405 object Label1: TLabel Left = 26 Height = 14 Top = 15 Width = 34 Caption = 'Name' Color = clBackground ParentColor = False Transparent = False end object Label2: TLabel Left = 26 Height = 14 Top = 79 Width = 68 Caption = 'Stream URL' Color = clBackground ParentColor = False Transparent = False end object Label3: TLabel Left = 26 Height = 14 Top = 143 Width = 65 Caption = 'Description' Color = clBackground ParentColor = False Transparent = False end object NameEdit: TEdit Left = 46 Height = 23 Top = 33 Width = 296 TabOrder = 0 end object URLEdit: TEdit Left = 46 Height = 23 Top = 97 Width = 296 TabOrder = 1 end object DescEdit: TMemo Left = 46 Height = 66 Top = 167 Width = 296 TabOrder = 2 end end end object cancelbut1: TButton Left = 280 Height = 25 Top = 418 Width = 75 Anchors = [akLeft, akBottom] BorderSpacing.InnerBorder = 4 Cancel = True Caption = '&Cancel' OnClick = cancelbutClick TabOrder = 1 end object savebut1: TButton Left = 176 Height = 25 Top = 418 Width = 75 Anchors = [akLeft, akBottom] BorderSpacing.InnerBorder = 4 Caption = '&Save' Default = True OnClick = savebutClick TabOrder = 2 end object btnReset: TButton Left = 32 Height = 25 Top = 418 Width = 75 Anchors = [akLeft, akBottom] BorderSpacing.InnerBorder = 4 Caption = '&Reset' OnClick = btnResetClick TabOrder = 3 end object PicDownloadTimer: TTimer Enabled = False Interval = 100 OnTimer = PicDownloadTimerTimer OnStartTimer = PicDownloadTimerStartTimer left = 344 end end