Files
lazarus-ccr/applications/cactusjukebox/source/editid3.lfm
jesusr 00a628b20a compile with 2.5.1 and lazarus trunk,
reading unicode tags and filenames, 
show/hide app window with single click tray icon, 
create album cover if not exists, 
several fixes when there is just one song in collection, 
artist tree icons, handling of track numbers in n[/m] format, 
show path of current file (in playlist and title list), 
log output was corrupt due the use of crt unit, 
etc.


git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1761 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-07-26 06:36:09 +00:00

422 lines
9.2 KiB
Plaintext
Executable File

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