diff --git a/applications/cactusjukebox/source/mainform.lfm b/applications/cactusjukebox/source/mainform.lfm
index daf047153..8ef4c03bb 100644
--- a/applications/cactusjukebox/source/mainform.lfm
+++ b/applications/cactusjukebox/source/mainform.lfm
@@ -5,7 +5,7 @@ object Main: TMain
Width = 893
ActiveControl = Panel4
Caption = 'titel'
- ClientHeight = 604
+ ClientHeight = 602
ClientWidth = 893
Icon.Data = {
3E42000000000100010040400000010020002842000016000000280000004000
@@ -548,7 +548,7 @@ object Main: TMain
object StatusBar1: TStatusBar
Left = 0
Height = 22
- Top = 582
+ Top = 580
Width = 893
Panels = <
item
@@ -562,7 +562,7 @@ object Main: TMain
end
object Splitter1: TSplitter
Left = 288
- Height = 582
+ Height = 580
Top = 0
Width = 8
AutoSnap = False
@@ -572,19 +572,19 @@ object Main: TMain
end
object Panel1: TPanel
Left = 296
- Height = 582
+ Height = 580
Top = 0
Width = 597
Align = alClient
BevelOuter = bvNone
- ClientHeight = 582
+ ClientHeight = 580
ClientWidth = 597
TabOrder = 0
OnClick = Panel1Click
OnResize = Panel1Resize
object TitleTree: TListView
Left = 0
- Height = 152
+ Height = 150
Top = 5
Width = 587
Align = alTop
@@ -604,22 +604,18 @@ object Main: TMain
item
AutoSize = True
Caption = 'Title'
- Width = 36
end
item
AutoSize = True
Caption = 'Album'
- Width = 49
end
item
AutoSize = True
Caption = 'Track'
- Width = 44
end
item
AutoSize = True
Caption = 'Genre'
- Width = 47
end
item
AutoSize = True
@@ -631,7 +627,7 @@ object Main: TMain
AutoSize = True
Caption = 'Length'
MaxWidth = 60
- Width = 51
+ Width = 57
end>
PopupMenu = titlelistmenu
ReadOnly = True
@@ -654,7 +650,7 @@ object Main: TMain
Cursor = crVSplit
Left = 0
Height = 10
- Top = 157
+ Top = 155
Width = 597
Align = alTop
ResizeAnchor = akTop
@@ -662,7 +658,7 @@ object Main: TMain
object Panel3: TPanel
Left = 0
Height = 415
- Top = 167
+ Top = 165
Width = 597
Align = alClient
BevelOuter = bvNone
@@ -847,7 +843,7 @@ object Main: TMain
end
object current_title_edit: TEdit
Left = 12
- Height = 25
+ Height = 21
Top = 109
Width = 200
Color = clBtnFace
@@ -856,7 +852,7 @@ object Main: TMain
end
object current_title_edit1: TEdit
Left = 12
- Height = 25
+ Height = 21
Top = 141
Width = 200
Color = clBtnFace
@@ -865,9 +861,9 @@ object Main: TMain
end
object randomcheck: TCheckBox
Left = 135
- Height = 21
+ Height = 19
Top = 257
- Width = 71
+ Width = 62
Caption = 'Random'
OnChange = randomcheckChange
TabOrder = 3
@@ -950,10 +946,10 @@ object Main: TMain
TabOrder = 2
object filetypebox: TComboBox
Left = 360
- Height = 25
+ Height = 21
Top = 8
Width = 90
- ItemHeight = 17
+ ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'all types'
@@ -971,7 +967,7 @@ object Main: TMain
end
object searchstr: TEdit
Left = 120
- Height = 25
+ Height = 21
Top = 8
Width = 232
OnKeyUp = searchstrKeyUp
@@ -1013,11 +1009,11 @@ object Main: TMain
end
object clear_list: TBitBtn
AnchorSideBottom.Side = asrCenter
- Left = 504
+ Left = 499
Height = 30
Hint = 'Clear Playlist'
Top = 7
- Width = 79
+ Width = 84
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Clear'
@@ -1084,9 +1080,9 @@ object Main: TMain
end
object lblPath: TLabel
Left = 8
- Height = 13
+ Height = 14
Top = 56
- Width = 43
+ Width = 50
Caption = 'lblPath'
ParentColor = False
end
@@ -1094,19 +1090,19 @@ object Main: TMain
end
object Panel4: TPanel
Left = 0
- Height = 582
+ Height = 580
Top = 0
Width = 288
Align = alLeft
BorderSpacing.InnerBorder = 30
BevelOuter = bvNone
- ClientHeight = 582
+ ClientHeight = 580
ClientWidth = 288
TabOrder = 1
OnClick = Panel4Click
object ArtistTree: TTreeView
Left = 26
- Height = 572
+ Height = 570
Top = 5
Width = 259
Align = alClient
@@ -1147,9 +1143,9 @@ object Main: TMain
OnClick = ArtistSrchFieldClick
object Label2: TLabel
Left = 77
- Height = 13
+ Height = 14
Top = 8
- Width = 37
+ Width = 43
Caption = 'Search'
ParentColor = False
end
@@ -1200,7 +1196,7 @@ object Main: TMain
end
object artistsearch: TEdit
Left = 8
- Height = 25
+ Height = 21
Top = 32
Width = 110
OnKeyUp = ArtistTreeKeyUp
@@ -1210,7 +1206,7 @@ object Main: TMain
end
object ToolBar1: TToolBar
Left = 0
- Height = 577
+ Height = 575
Top = 5
Width = 26
Align = alLeft
diff --git a/applications/cactusjukebox/source/mainform.pas b/applications/cactusjukebox/source/mainform.pas
index dbb353d61..d16d7eeb0 100644
--- a/applications/cactusjukebox/source/mainform.pas
+++ b/applications/cactusjukebox/source/mainform.pas
@@ -2263,9 +2263,9 @@ var
begin
DebugOutLn('** Loadfile **', 2);
Application.ProcessMessages;
- {$IFDEF WINDOWS}
+//Ubuntu need this {$IFDEF WINDOWS}
aPath := UTF8Decode(path);
- {$ENDIF}
+// {$ENDIF}
if FileExists(aPath) then
begin
z := MediaCollection.GetIndexByPath(path);
diff --git a/applications/cactusjukebox/source/mp3proj.lpi b/applications/cactusjukebox/source/mp3proj.lpi
index ee9092336..cf9a8d72f 100755
--- a/applications/cactusjukebox/source/mp3proj.lpi
+++ b/applications/cactusjukebox/source/mp3proj.lpi
@@ -18,7 +18,7 @@
-
+
diff --git a/applications/cactusjukebox/source/tagreader/mp3file.pas b/applications/cactusjukebox/source/tagreader/mp3file.pas
index 0bcb58683..494583663 100644
--- a/applications/cactusjukebox/source/tagreader/mp3file.pas
+++ b/applications/cactusjukebox/source/tagreader/mp3file.pas
@@ -268,11 +268,11 @@ Begin
If tagpos<>3 Then
Begin
p := @buf[4];
- ftitle := GetCString(P, 30);
- fartist := GetCString(P, 30);
- falbum := GetCString(P, 30);
- fyear := GetCString(P, 4);
- fcomment := GetCString(P, 30);
+ ftitle := UTF8Encode(GetCString(P, 30));
+ fartist := UTF8Encode(GetCString(P, 30));
+ falbum := UTF8Encode(GetCString(P, 30));
+ fyear := UTF8Encode(GetCString(P, 4));
+ fcomment := UTF8Encode(GetCString(P, 30));
// now p is pointing to genreid
fgenreid := ord(P^);
if fgenreid>high(ID3Genre) then
@@ -285,12 +285,12 @@ Begin
ftrack := '';
End; // else writeln('no id3v1 tag');
except WriteLn(Filename+' -> exception while reading id3v1 tag... skipped!!'); end;
- {$IFNDEF WINDOWS}
+(* {$IFNDEF WINDOWS}
If ((artistv2<>'')) And (CactusConfig.id3v2_prio Or (artist='')) Then Fartist := artistv2;
If ((titlev2<>'')) And (CactusConfig.id3v2_prio Or (title='')) Then Ftitle := titlev2;
If ((albumv2<>'')) And (CactusConfig.id3v2_prio Or (album='')) Then Falbum := albumv2;
If ((commentv2<>'')) And (CactusConfig.id3v2_prio Or (comment='')) Then Fcomment := commentv2;
- {$ELSE}
+ {$ELSE} *)
if Length(Trim(fartist)) <> 0 then begin
If ((artistv2<>'')) And (CactusConfig.id3v2_prio Or (artist='')) Then Fartist := UTF8Encode(artistv2);
end else Fartist := artistv2;
@@ -303,7 +303,7 @@ Begin
if Length(Trim(Fcomment)) <> 0 then begin
If ((commentv2<>'')) And (CactusConfig.id3v2_prio Or (comment='')) Then Fcomment := UTF8Encode(commentv2);
end else Fcomment := commentv2;
- {$ENDIF}
+// {$ENDIF}
If ((yearv2<>'')) And (CactusConfig.id3v2_prio Or (year='')) Then Fyear := yearv2;
If ((trackv2<>'')) And (CactusConfig.id3v2_prio Or (track='')) Then ftrack := trackv2;
fileclose(mp3filehandle);