aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Game/Code/Classes/UPlaylist.pas2
-rw-r--r--Game/Code/Screens/UScreenSongMenu.pas55
-rw-r--r--Languages/English.ini3
-rw-r--r--Languages/German.ini6
-rw-r--r--Languages/readme.txt10
5 files changed, 68 insertions, 8 deletions
diff --git a/Game/Code/Classes/UPlaylist.pas b/Game/Code/Classes/UPlaylist.pas
index 55cf90ff..e3f68239 100644
--- a/Game/Code/Classes/UPlaylist.pas
+++ b/Game/Code/Classes/UPlaylist.pas
@@ -327,9 +327,11 @@ begin
if (CatSongs.CatNumShow = -3) and (Index = CurPlaylist) then
begin
ScreenSong.UnLoadDetailedCover;
+ ScreenSong.HideCatTL;
CatSongs.SetFilter('', 0);
ScreenSong.Interaction := 0;
ScreenSong.FixSelected;
+ ScreenSong.ChangeMusic;
end;
end;
diff --git a/Game/Code/Screens/UScreenSongMenu.pas b/Game/Code/Screens/UScreenSongMenu.pas
index 3814334c..06b8f183 100644
--- a/Game/Code/Screens/UScreenSongMenu.pas
+++ b/Game/Code/Screens/UScreenSongMenu.pas
@@ -27,9 +27,10 @@ const
SM_Playlist_Add = 64 or 2;
SM_Playlist_New = 64 or 3;
- SM_Playlist_Del = 64 or 5;
+ SM_Playlist_DelItem = 64 or 5;
SM_Playlist_Load = 64 or 8 or 1;
+ SM_Playlist_Del = 64 or 8 or 5;
SM_Party_Main = 128 or 1;
@@ -42,7 +43,7 @@ var
implementation
-uses UGraphic, UMain, UIni, UTexture, ULanguage, UParty, UPlaylist;
+uses UGraphic, UMain, UIni, UTexture, ULanguage, UParty, UPlaylist, USongs;
function TScreenSongMenu.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
begin
@@ -265,10 +266,10 @@ begin
Button[3].Text[0].Text := Language.Translate('SONG_MENU_CANCEL');
end;
- SM_PlayList_Del:
+ SM_Playlist_DelItem:
begin
CurMenu := sMenu;
- Text[0].Text := Language.Translate('SONG_MENU_NAME_PLAYLIST_DEL');
+ Text[0].Text := Language.Translate('SONG_MENU_NAME_PLAYLIST_DELITEM');
Button[0].Visible := True;
Button[1].Visible := False;
@@ -285,12 +286,15 @@ begin
CurMenu := sMenu;
Text[0].Text := Language.Translate('SONG_MENU_NAME_PLAYLIST_LOAD');
- Button[0].Visible := False;
+ //Show Delete Curent Playlist Button when Playlist is opened
+ Button[0].Visible := (CatSongs.CatNumShow = -3);
+
Button[1].Visible := False;
Button[2].Visible := False;
Button[3].Visible := True;
SelectsS[0].Visible := True;
+ Button[0].Text[0].Text := Language.Translate('SONG_MENU_PLAYLIST_DELCURRENT');
Button[3].Text[0].Text := Language.Translate('SONG_MENU_PLAYLIST_LOAD');
SetLength(ISelections, Length(PlaylistMan.Playlists));
@@ -311,6 +315,21 @@ begin
end;
end;
+ SM_Playlist_Del:
+ begin
+ CurMenu := sMenu;
+ Text[0].Text := Language.Translate('SONG_MENU_NAME_PLAYLIST_DEL');
+
+ Button[0].Visible := True;
+ Button[1].Visible := False;
+ Button[2].Visible := False;
+ Button[3].Visible := True;
+ SelectsS[0].Visible := False;
+
+ Button[0].Text[0].Text := Language.Translate('SONG_MENU_YES');
+ Button[3].Text[0].Text := Language.Translate('SONG_MENU_CANCEL');
+ end;
+
SM_Party_Main:
begin
@@ -421,7 +440,7 @@ begin
2: //Button 3
begin
//Show add to Playlist Menu
- MenuShow(SM_Playlist_Del);
+ MenuShow(SM_Playlist_DelItem);
end;
3: //SelectSlide 3
@@ -488,7 +507,7 @@ begin
end;
end;
- SM_PlayList_Del:
+ SM_Playlist_DelItem:
begin
Visible := False;
Case Interaction of
@@ -509,6 +528,10 @@ begin
SM_Playlist_Load:
begin
Case Interaction of
+ 0: //Button 1 (Delete Playlist)
+ begin
+ MenuShow(SM_Playlist_Del);
+ end;
4: //Button 4
begin
//Load Playlist
@@ -518,6 +541,24 @@ begin
end;
end;
+ SM_Playlist_Del:
+ begin
+ Visible := False;
+ Case Interaction of
+ 0: //Button 1
+ begin
+ //Delete
+ PlayListMan.DelPlaylist(PlaylistMan.CurPlayList);
+ Visible := False;
+ end;
+
+ 4: //Button 4
+ begin
+ MenuShow(SM_Playlist_Load);
+ end;
+ end;
+ end;
+
SM_Party_Main:
begin
Case Interaction of
diff --git a/Languages/English.ini b/Languages/English.ini
index aeecaf49..317b6d8c 100644
--- a/Languages/English.ini
+++ b/Languages/English.ini
@@ -176,6 +176,9 @@ SONG_MENU_NO=No
SONG_MENU_NAME_PLAYLIST_LOAD=Open Playlist
SONG_MENU_PLAYLIST_LOAD=open
+SONG_MENU_PLAYLIST_DELCURRENT=delete current Playlist
+
+SONG_MENU_NAME_PLAYLIST_DEL=Delete Playlist?
SONG_MENU_NAME_PARTY_MAIN=Party Menu
SONG_MENU_JOKER=Joker
diff --git a/Languages/German.ini b/Languages/German.ini
index 41802135..4713ae48 100644
--- a/Languages/German.ini
+++ b/Languages/German.ini
@@ -170,12 +170,16 @@ SONG_MENU_NAME_PLAYLIST_NEW=Neue Playlist
SONG_MENU_PLAYLIST_NEW_CREATE=Erstellen
SONG_MENU_PLAYLIST_NEW_UNNAMED=Unbenannt
-SONG_MENU_NAME_PLAYLIST_DEL=Wirklich löschen?
+SONG_MENU_NAME_PLAYLIST_DELITEM=Wirklich löschen?
SONG_MENU_YES=Ja
SONG_MENU_NO=Nein
+SONG_MENU_NAME_PLAYLIST_DEL=Playlist löschen?
+
+
SONG_MENU_NAME_PLAYLIST_LOAD=Playlist öffnen
SONG_MENU_PLAYLIST_LOAD=Öffnen
+SONG_MENU_PLAYLIST_DELCURRENT=Aktuelle Playlist löschen
SONG_MENU_NAME_PARTY_MAIN=Party-Menü
SONG_MENU_JOKER=Joker
diff --git a/Languages/readme.txt b/Languages/readme.txt
index 46ccff2c..132f0c80 100644
--- a/Languages/readme.txt
+++ b/Languages/readme.txt
@@ -59,6 +59,13 @@ SONG_MENU_CHANGEPLAYERS=Change Players
SONG_MENU_CANCEL=Cancel
#Playlist Menu
+SONG_MENU_NAME_MAIN=song menu
+SONG_MENU_PLAY=Sing
+SONG_MENU_CHANGEPLAYERS=Change Players
+SONG_MENU_EDIT=Edit
+SONG_MENU_MODI=Sing a Modi
+SONG_MENU_CANCEL=Cancel
+
SONG_MENU_NAME_PLAYLIST=Song Menu
SONG_MENU_PLAYLIST_ADD=Add Song
SONG_MENU_PLAYLIST_DEL=Delete Song
@@ -78,6 +85,9 @@ SONG_MENU_NO=No
SONG_MENU_NAME_PLAYLIST_LOAD=Open Playlist
SONG_MENU_PLAYLIST_LOAD=open
+SONG_MENU_PLAYLIST_DELCURRENT=delete current Playlist
+
+SONG_MENU_NAME_PLAYLIST_DEL=Delete Playlist?
#Menu Party Modus
SONG_MENU_NAME_PARTY_MAIN=Menu