Files
lazarus-ccr/applications/cactusjukebox/source/editid3.lfm

422 lines
9.2 KiB
Plaintext
Raw Normal View History

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