Menu
▾
▴
[JVCL-Checkins] CVS: dev/JVCL3/examples/JvID3v1 JvID3v1Demo.dof,NONE,1.1 JvID3v1Demo.dpr,NONE,1.1 JvID3v1Demo.res,NONE,1.1 JvID3v1MainFormU.dfm,NONE,1.1 JvID3v1MainFormU.pas,NONE,1.1
|
From: Peter T. <pe...@us...> - 2003-08-23 23:25:35
|
Update of /cvsroot/jvcl/dev/JVCL3/examples/JvID3v1
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvID3v1
Added Files:
JvID3v1Demo.dof JvID3v1Demo.dpr JvID3v1Demo.res
JvID3v1MainFormU.dfm JvID3v1MainFormU.pas
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter
--- NEW FILE: JvID3v1Demo.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common
--- NEW FILE: JvID3v1Demo.dpr ---
program JvID3v1Demo;
uses
Forms,
JvID3v1MainFormU in 'JvID3v1MainFormU.pas' {JvID3v1MainForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TJvID3v1MainForm, JvID3v1MainForm);
Application.Run;
end.
--- NEW FILE: JvID3v1Demo.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: JvID3v1MainFormU.dfm ---
object JvID3v1MainForm: TJvID3v1MainForm
Left = 405
Top = 240
BorderIcons = []
BorderStyle = bsSingle
Caption = 'TJvId3v1 example'
ClientHeight = 228
ClientWidth = 279
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lblArtist: TLabel
Left = 25
Top = 128
Width = 23
Height = 13
Caption = '&Artist'
FocusControl = edtArtist
end
object lblAlbum: TLabel
Left = 19
Top = 152
Width = 29
Height = 13
Caption = 'Al&bum'
FocusControl = edtAlbum
end
object lblYear: TLabel
Left = 26
Top = 176
Width = 22
Height = 13
Caption = '&Year'
FocusControl = edtYear
end
object lblComment: TLabel
Left = 5
Top = 200
Width = 44
Height = 13
Caption = '&Comment'
FocusControl = edtComment
end
object lblGenre: TLabel
Left = 112
Top = 176
Width = 29
Height = 13
Caption = '&Genre'
FocusControl = cmbGenre
end
object lblHasTag: TLabel
Left = 16
Top = 80
Width = 48
Height = 13
Caption = 'lblHasTag'
end
object lblTitle: TLabel
Left = 28
Top = 104
Width = 20
Height = 13
Caption = '&Title'
FocusControl = edtTitle
end
object lblTrack: TLabel
Left = 189
Top = 80
Width = 38
Height = 13
Caption = 'T&rack #'
FocusControl = sedTrack
end
object JvFilenameEdit1: TJvFilenameEdit
Left = 8
Top = 56
Width = 269
Height = 21
OnAfterDialog = JvFilenameEdit1AfterDialog
ButtonFlat = False
NumGlyphs = 1
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnKeyPress = JvFilenameEdit1KeyPress
end
object edtTitle: TEdit
Left = 56
Top = 104
Width = 217
Height = 21
MaxLength = 30
TabOrder = 2
end
object edtAlbum: TEdit
Left = 56
Top = 152
Width = 217
Height = 21
MaxLength = 30
TabOrder = 4
end
object edtArtist: TEdit
Left = 56
Top = 128
Width = 217
Height = 21
MaxLength = 30
TabOrder = 3
end
object edtYear: TEdit
Left = 56
Top = 176
Width = 49
Height = 21
MaxLength = 4
TabOrder = 5
end
object edtComment: TEdit
Left = 56
Top = 200
Width = 217
Height = 21
MaxLength = 30
TabOrder = 7
end
object cmbGenre: TComboBox
Left = 149
Top = 176
Width = 125
Height = 21
Style = csDropDownList
ItemHeight = 13
Sorted = True
TabOrder = 6
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 279
Height = 44
AutoSize = True
ButtonHeight = 40
ButtonWidth = 44
Caption = 'ToolBar1'
Images = ImageList1
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 8
Wrapable = False
object ToolButton1: TToolButton
Left = 0
Top = 2
Hint = 'Reload the tag data from the file'
Action = actRefresh
ParentShowHint = False
ShowHint = True
end
object ToolButton2: TToolButton
Left = 44
Top = 2
Hint = 'Save changes of the tag to the file'
Action = actSave
ParentShowHint = False
ShowHint = True
end
object ToolButton3: TToolButton
Left = 88
Top = 2
Hint = 'Erase the tag of the file'
Action = actErase
ParentShowHint = False
ShowHint = True
end
object ToolButton4: TToolButton
Left = 132
Top = 2
Hint = 'Toggle '#39'Always on Top'#39
Action = actOnTop
ParentShowHint = False
ShowHint = True
end
object ToolButton5: TToolButton
Left = 176
Top = 2
Hint = 'Show '#39'About'#39' dialog'
Action = actAbout
ParentShowHint = False
ShowHint = True
end
object ToolButton6: TToolButton
Left = 220
Top = 2
Hint = 'Close program'
Action = actExit
ParentShowHint = False
ShowHint = True
end
end
object sedTrack: TJvSpinEdit
Left = 232
Top = 80
Width = 41
Height = 21
MaxValue = 255.000000000000000000
TabOrder = 1
end
object JvDragDrop1: TJvDragDrop
DropTarget = Owner
OnDrop = JvDragDrop1Drop
Left = 88
Top = 128
end
object JvId3v11: TJvId3v1
Active = False
Left = 152
Top = 104
end
object ActionList1: TActionList
Images = ImageList1
Left = 152
Top = 80
object actSave: TAction
Caption = 'Save'
ImageIndex = 0
OnExecute = actSaveExecute
end
object actRefresh: TAction
Caption = 'Refresh'
ImageIndex = 2
OnExecute = actRefreshExecute
end
object actErase: TAction
Caption = 'Erase'
ImageIndex = 1
OnExecute = actEraseExecute
end
object actExit: TAction
Caption = 'Exit'
ImageIndex = 3
OnExecute = actExitExecute
end
object actOnTop: TAction
Caption = 'On Top'
Checked = True
ImageIndex = 5
OnExecute = actOnTopExecute
end
object actAbout: TAction
Caption = 'About'
ImageIndex = 4
OnExecute = actAboutExecute
end
end
object ImageList1: TImageList
Height = 20
Width = 20
Left = 120
Top = 104
Bitmap = {
494C010106000900040014001400FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000500000003C00000001001000000000008025
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000182298429842984298429832983298329832983298329832
9801000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000104210421042104200000000000000000000000000000000000000000000
00000000000000001843FF7FFF7FFF7FFF7FFF7FFF7FFE7F3E533E533E533E53
1812000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000001042
1042170017001700170010420000000000000000000000000000000000000000
00000000000000001843FF7FFF7FFF7FFF7FFF7FFF7FFF7FFE7F3E533E533E53
1812000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000017001700
1700E05EE07FE05E170017001700170000000000000000000000000000000000
00000000000000001843FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F3E533E53
1812000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000F70217001700
1700E07FE07FE07F1700170017001700000000000000000000003E533E533E53
3E533E533E533E531843FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFE7F3E53
1812000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7F170017001700
1700E05EE07FE05E1700170017001700104200000000000000003E53FF7FFF7F
FF7FFF7FFF7FFF7F1843FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
1812000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7F1700170017001700
1700E05EE07FE05E1700170017001700170010420000000000003E53FF7FFF7F
FF7FFF7FFF7FFF7F1843FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
1812000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7F1700170017001700
1700E07FE07FE05E1700170017001700170010420000000000003E53FF7FFF7F
FF7FFF7FFF7FFF7F3E53FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
1812000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7F1700170017001700
1700E05EE07FE07FE05E170017001700170010420000000000003E53FF7FFF7F
FF7FFF7FFF7FFF7F180218021802180218021802180218021802180218021802
9801000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000FF7F1700170017001700
17001700E05EE07FE07F170017001700170010420000000000003E53FF7FFF7F
FF7FFF7FFF7FFF7F181298019801980198019801980198019801980198019801
1822000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7F17001700E05E
E07F170017001700E07FE05E17001700104200000000000000003E53FF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9832FF7FFF7FFF7FFF7FFF7FFF7F9832
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000FF7F17001700E05E
E07FE05EE05EE05EE07FE05E17001700104200000000000000003E533E533E53
3E533E533E533E533E533E533E533E533E53FF7FFF7FFF7FFF7FFF7FFF7F3E53
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000FF7F17001700
E05EE07FE07FE07FE07F17001700170000000000000000000000FF7F3E533E53
3E533E533E533E533E533E533E533E533E53FF7FFF7FFF7FFF7FFF7FFF7F3E53
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000FF7F1700
170017001700170017001700F702000000000000000000000000000000000000
0000000000000000FE7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F3E53
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FF7F
FF7F1700170017001700FF7F0000000000000000000000000000000000000000
0000000000000000FE7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F3E53
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000FF7FFF7FFF7FFF7F00000000000000000000000000000000000000000000
00000000000000003E53FE7FFE7FFE7FFE7FFE7FFE7FFE7FFE7FFE7FFE7F3E53
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000003E533E533E533E533E533E533E533E533E533E533E533E53
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000003E533E533E533E533E533E533E533E533E533E533E53FE7F
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000001863186318631863186318631863186318631863
1863186318631863186318631863186318630000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000010421042104210421042104210421042104210421042
1042FF7F1863FF7F1863FF7F18631042104200000000000000009A4658465846
5846584658465846584658465846584658460000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000333633363336333633363336000000000000
0000000000000000000010421042104210421042104210421042104210421042
18631863FF7F1863FF7F18631042104210420000000000000000000000000000
0000000000000000000000000000000000005846000000000000000000000000
0000000000003336333633363336333633363336333633363336000000000000
0000000000000000000000003336333611001100110011001100333600000000
0000000000000000000010001000100010001000100000000000104210421042
FF7FFF7FFF7F1000100010001000100010000000000000000000804D0000FB6A
FB6AFF7FFB6AFB6AF75EF75E0000804D804D0000584600000000000000000000
0000000000000000000000000000000000000000000000003336333600000000
0000000000000000000033363336110010001000100010001000110033363336
333633363336000000000000000000000000000010001F7C1040000000001863
FF7FFF7FFF7F100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFF7FFB6AFB6AF75EF75E0000607E804D0000584600000000000000000000
000000000000F75EFF7FF75EF75E584658468C318C3100003336333600000000
0000000000000000333611001100100011001100110011001100100010003336
3336110033360000000000000000000000000000100010401F7C10400000FF7F
FF7FFF7FFF7F100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFF7FFB6AFB6AF75EF75E0000607E804D0000584600000000000000000000
000000000000F75EFF7FBF6FF75EF75E584658468C3100003336333600000000
000000000000000014000F001104110014001500140015001400110010001100
110011003336000000000000000000000000000010001F7C10401F7C0000FF7F
FF7FFF7FFF7F100000000000000000000000000000000000CA7A607E00000000
0000000000000000000000000000607E804D0000584600000000000000000000
000000000000F75EFF7FF75EBF6F5846F75E8C319A4600003336333600000000
000000000000000014000F001100140000000000000000000000140413001200
1000310033360000000000000000000000000000100010401F7C10400000FF7F
FF03FF7FFF03100000000000000000000000000000000000CA7A607E607E607E
607E607E607E607E607E607E607E607E804D0000584600000000000000000000
000000000000F75EFF7FF75EBF6F5846F75E8C319A4600003336333600000000
000000000000140012040E001410BF1400000000000000000000170C15003404
100030003336000000000000000000000000000010001F7C10401F7C0000FF7F
FF7FFF7FFF7F100000000000000000000000000000000000CA7A607E607E0000
000000000000000000000000CA7A607E804D0000584600000000000000000000
000000000000F75EFF7FF75EBF6F5846F75E8C319A4600003336333600000000
000000000000140014001400BF14000000000000000000000000130013001200
1000100033360000000000000000000000000000100010401F7C10400000FF7F
FF03FF7FFF03100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFB6AFB6AFB6AFB6AFB6A0000607E804D0000584600000000000000000000
000000000000F75EFF7FF75EBF6F5846F75E8C319A4600003336333600000000
0000000000000000333633363336333633363336000000001000110831083104
300431080000000000000000000000000000000010001F7C10401F7C0000FF7F
FF7FFF7FFF7F100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFB6AFB6AFB6AFB6AFB6A0000607E804D0000584600000000000000000000
000000000000F75EFF7FF75EBF6F5846F75E8C319A4600003336333600000000
000000000000120C310431043104110010000000000000000000000000003336
3336333633360000000000000000000000000000100010401F7C10400000FF7F
FF03FF7FFF03100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFB6AFB6AFB6AFB6AFB6A0000607E804D0000584600000000000000000000
000000000000F75EFF7F5846BF6F333658460821333600003336333600000000
0000000000000F001000100010001100BF14000000000000000000003221D110
B214B10C3336000000000000000000000000000010001F7C10401F7C0000FF03
FF7FFF03FF7F100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFB6AFB6AFB6AFB6AFB6A0000607E804D0000584600000000000000000000
0000000000003336333633363336333633363336333600003336333600000000
000000000000110012043304120071083336000000000000000033364F001000
1000B21400000000000000000000000000000000100010401F7C10400000FF7F
FF03FF7FFF03100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFB6AFB6AFB6AFB6AFB6A0000607E804D0000584600000000000000000000
0000000000000000000000000000000000000000000000000000333600000000
0000000000001100130015001300300433363336333633363336110011001100
B00433360000000000000000000000000000000010001F7C10401F7C0000FF03
FF7FFF03FF7F100000000000000000000000000000000000CA7A607E0000FB6A
FB6AFB6AFB6AFB6AFB6AFB6A0000607E804D0000584600000000000000000000
00000000F75EFF7FFF7FF75EF75E584658463336333633360000333600000000
0000000000001000140015001300100010001100100010001100100010001000
B008333600000000000000000000000000000000100010001000100010001000
100010001000100000000000000000000000000000000000CA7ACA7A0000FF7F
FF7FFF7FFF7FFF7FFF7FFF7F0000CA7ACA7A00009A4600000000000000000000
00000000000000000000F75EFF7FF75EF75E0000000000000000000000000000
0000000000000F000000BF1413001400110010001000100010000F000F00BF14
3336000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000BF14000000003336BF1412001200120011001300BF14BF14BF14
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000333615001500150015001500000000000000
0000000000000000000000000000000000000000000000000000E003E003E003
E003000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
28000000500000003C0000000100010000000000D00200000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
FFFFFFFFFF00000000000000FFFFFFFFFF00000000000000FFFFFFE000000000
00000000FF0FFFE00000000000000000FC07FFE00000000000000000F801FFE0
0000000000000000F001F0000000000000000000E000F0000000000000000000
C00070000000000000000000C00070000000000000000000C000700000000000
00000000C00070000000000000000000E000F0000100000000000000E000F000
0100000000000000F001F0000100000000000000F803FFE00100000000000000
FC07FFE00100000000000000FF0FFFE00100000000000000FFFFFFE001000000
00000000FFFFFFE00100000000000000FFFFFFFFFFFFFFF800000000FFFFFFFF
FFFFFFF000000000F000FFFFFFFC0FF000000000F0007FC00FF807F000000000
E0003F8007F0003F801F0000C0003F8007E0003F801F0000C0003F8007E0003F
801F0000C0003F8007E1F03F801F0000C0003F8007C1F03F801F0000C0003F80
07C3F03F801F0000C0003F8007E0607F801F0000C0003F8007C0FC3F801F0000
C0003F8007C0F83F801F0000C0003F8007C0F07F801F0000C0003F0007C0007F
801F0000C0003F0007C0007F801F0000C0003F000FD000FFFFFF0000E000FFE0
7FD801FFE07F0000FFFFFFFFFFFC0FFFE07F0000FFFFFFFFFFFFFFFFE07F0000
00000000000000000000000000000000000000000000}
end
object JvTipOfDay1: TJvTipOfDay
ButtonNext.Caption = '&Next Tip'
ButtonNext.Flat = False
ButtonNext.HotTrack = False
ButtonNext.HotTrackFont.Charset = DEFAULT_CHARSET
ButtonNext.HotTrackFont.Color = clWindowText
ButtonNext.HotTrackFont.Height = -11
ButtonNext.HotTrackFont.Name = 'MS Sans Serif'
ButtonNext.HotTrackFont.Style = []
ButtonNext.ShowHint = False
ButtonClose.Caption = '&Close'
ButtonClose.Flat = False
ButtonClose.HotTrack = False
ButtonClose.HotTrackFont.Charset = DEFAULT_CHARSET
ButtonClose.HotTrackFont.Color = clWindowText
ButtonClose.HotTrackFont.Height = -11
ButtonClose.HotTrackFont.Name = 'MS Sans Serif'
ButtonClose.HotTrackFont.Style = []
ButtonClose.ShowHint = False
CheckBoxText = '&Show Tips on Startup'
HeaderText = 'Did you know...'
Options = [toShowOnStartUp, toUseRegistry, toShowWhenFormShown]
Tips.Strings = (
'You can drag and drop MP3 files on the form, this is done by usi' +
'ng a TJvDragDrop component.'
'The tip dialog your seeing now is constructed by using a TJvTipO' +
'fDay component.'
'At design-time you can preview the dialogs, such as TJvTipOfDay,' +
' by right-clicking these components and choosing '#39'Preview...'#39
'The About Box is made by using a TJvJVCLAboutComponent component' +
'.')
Title = 'Tips and Tricks'
Left = 88
Top = 104
end
object JvJVCLAboutComponent1: TJvJVCLAboutComponent
Left = 120
Top = 80
end
object JvBalloonHint1: TJvBalloonHint
DefaultHeader = 'Information'
Left = 88
Top = 80
end
end
--- NEW FILE: JvID3v1MainFormU.pas ---
unit JvID3v1MainFormU;
{$I JVCL.INC}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, JvComponent, StdCtrls, Mask, JvToolEdit,
JvDragDrop, JvId3v1, ComCtrls, ToolWin, ActnList, ImgList, JvJVCLAbout,
JvBaseDlg, JvTipOfDay, JvBalloonHint, JvMaskEdit, JvSpin;
type
TJvID3v1MainForm = class(TForm)
JvFilenameEdit1: TJvFilenameEdit;
JvDragDrop1: TJvDragDrop;
edtTitle: TEdit;
JvId3v11: TJvId3v1;
edtAlbum: TEdit;
edtArtist: TEdit;
edtYear: TEdit;
edtComment: TEdit;
cmbGenre: TComboBox;
lblArtist: TLabel;
lblAlbum: TLabel;
lblYear: TLabel;
lblComment: TLabel;
lblGenre: TLabel;
ActionList1: TActionList;
actSave: TAction;
actRefresh: TAction;
actErase: TAction;
actExit: TAction;
actOnTop: TAction;
ToolBar1: TToolBar;
ImageList1: TImageList;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
lblHasTag: TLabel;
JvTipOfDay1: TJvTipOfDay;
JvJVCLAboutComponent1: TJvJVCLAboutComponent;
actAbout: TAction;
ToolButton6: TToolButton;
JvBalloonHint1: TJvBalloonHint;
sedTrack: TJvSpinEdit;
lblTitle: TLabel;
lblTrack: TLabel;
procedure actSaveExecute(Sender: TObject);
procedure actEraseExecute(Sender: TObject);
procedure actExitExecute(Sender: TObject);
procedure actRefreshExecute(Sender: TObject);
procedure actOnTopExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure JvFilenameEdit1KeyPress(Sender: TObject; var Key: Char);
procedure JvFilenameEdit1AfterDialog(Sender: TObject; var Name: string;
var Action: Boolean);
procedure actAboutExecute(Sender: TObject);
procedure JvDragDrop1Drop(Sender: TObject; Pos: TPoint;
Value: TStrings);
public
procedure ChangeFileNameTo(S: string);
procedure FillGenres(Strings: TStrings);
procedure UpdateCtrls;
procedure UpdateCaption;
end;
var
JvID3v1MainForm: TJvID3v1MainForm;
implementation
uses
JvId3v2Types, JclStrings;
{$R *.dfm}
procedure TJvID3v1MainForm.ChangeFileNameTo(S: string);
begin
JvFilenameEdit1.Text := S;
S := StrTrimQuotes(S);
JvFilenameEdit1.Hint := S;
JvId3v11.FileName := S;
JvId3v11.Open;
UpdateCtrls;
UpdateCaption;
FocusControl(edtTitle);
end;
procedure TJvID3v1MainForm.FillGenres(Strings: TStrings);
begin
ID3_Genres(Strings,true);
end;
procedure TJvID3v1MainForm.actSaveExecute(Sender: TObject);
begin
if JvId3v11.FileName = '' then
JvBalloonHint1.ActivateHint(JvFilenameEdit1, 'First select a mp3 file', ikError, 'Error', 5000)
else
begin
JvId3v11.SongName := edtTitle.Text;
JvId3v11.Artist := edtArtist.Text;
JvId3v11.Album := edtAlbum.Text;
JvId3v11.Year := edtYear.Text;
JvId3v11.GenreAsString := cmbGenre.Text;
JvId3v11.Comment := edtComment.Text;
JvId3v11.AlbumTrack := sedTrack.AsInteger;
if JvId3v11.Commit then
UpdateCaption
else
JvBalloonHint1.ActivateHint(ToolButton2, 'Could not save changes.'#13+
'The file is probably opened by another application.', ikError, 'Error');
end;
end;
procedure TJvID3v1MainForm.actEraseExecute(Sender: TObject);
begin
if JvId3v11.FileName = '' then
JvBalloonHint1.ActivateHint(JvFilenameEdit1, 'First select a mp3 file', ikError, 'Error', 5000)
else
begin
JvId3v11.Erase;
UpdateCtrls;
UpdateCaption;
end;
end;
procedure TJvID3v1MainForm.actExitExecute(Sender: TObject);
begin
Close;
end;
procedure TJvID3v1MainForm.actRefreshExecute(Sender: TObject);
begin
if JvId3v11.FileName = '' then
JvBalloonHint1.ActivateHint(JvFilenameEdit1, 'First select a mp3 file', ikError, 'Error', 5000)
else
ChangeFileNameTo(JvId3v11.FileName);
end;
procedure TJvID3v1MainForm.actOnTopExecute(Sender: TObject);
const
CStyle: array[Boolean] of TFormStyle = (fsNormal, fsStayOnTop);
begin
JvDragDrop1.AcceptDrag := False;
actOnTop.Checked := not actOnTop.Checked;
FormStyle := CStyle[actOnTop.Checked];
JvDragDrop1.AcceptDrag := True;
end;
procedure TJvID3v1MainForm.FormCreate(Sender: TObject);
begin
{ This is put in the OnCreate and not in the OnShow event, because we change
Form1.FormStyle at run-time that will trigger the OnShow event }
FillGenres(cmbGenre.Items);
UpdateCaption;
end;
procedure TJvID3v1MainForm.JvFilenameEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if JvFilenameEdit1.Text = '' then
JvBalloonHint1.ActivateHint(JvFilenameEdit1, 'Empty strings are no file names', ikError, 'Error', 5000)
else
ChangeFileNameTo(JvFilenameEdit1.Text);
end;
end;
procedure TJvID3v1MainForm.JvFilenameEdit1AfterDialog(Sender: TObject;
var Name: string; var Action: Boolean);
begin
if Action then
ChangeFileNameTo(Name);
end;
procedure TJvID3v1MainForm.UpdateCaption;
const
CHasTagStr: array[Boolean] of string = ('No tag', 'Has Tag');
CHasTagColor: array[Boolean] of TColor = (clRed, clBlack);
var
HasTag: Boolean;
begin
if JvId3v11.FileName > '' then
begin
{ Store TagPresent in variabele to prevent double checks whether the file
has a tag }
HasTag := JvId3v11.HasTag;
lblHasTag.Font.Color := CHasTagColor[HasTag];
lblHasTag.Caption := CHasTagStr[HasTag];
end
else
lblHasTag.Caption := '';
end;
procedure TJvID3v1MainForm.UpdateCtrls;
begin
edtTitle.Text := JvId3v11.SongName;
edtAlbum.Text := JvId3v11.Album;
edtArtist.Text := JvId3v11.Artist;
edtYear.Text := JvId3v11.Year;
edtComment.Text := JvId3v11.Comment;
sedTrack.AsInteger := JvId3v11.AlbumTrack;
cmbGenre.ItemIndex := cmbGenre.Items.IndexOfObject(TObject(JvId3v11.Genre));
end;
procedure TJvID3v1MainForm.actAboutExecute(Sender: TObject);
begin
JvJVCLAboutComponent1.Execute;
end;
procedure TJvID3v1MainForm.JvDragDrop1Drop(Sender: TObject; Pos: TPoint;
Value: TStrings);
begin
if Value.Count > 0 then
ChangeFileNameTo(Value[0]);
end;
end.
|
