1 files changed, 24 insertions, 2 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 9fcb7ee8..2ce6b6df 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -52,7 +52,9 @@ type
       StaticTeam3Joker3: Cardinal;
       StaticTeam3Joker4: Cardinal;
       StaticTeam3Joker5: Cardinal;
-      
+      StaticKeys1: Cardinal;
+      TextKeys1: integer;
+
       constructor Create; override;
       procedure SetScroll;
       procedure SetScroll1;
@@ -79,7 +81,7 @@ type
       //Party Mode
       procedure SelectRandomSong;
       procedure SetJoker;
-
+      procedure SetStatics;
       //procedures for Menu
       procedure StartSong;
       procedure OpenEditor;
@@ -662,6 +664,10 @@ begin
   StaticTeam3Joker4 := AddStatic(Theme.Song.StaticTeam3Joker4);
   StaticTeam3Joker5 := AddStatic(Theme.Song.StaticTeam3Joker5);
 
+  StaticKeys1 := AddStatic(Theme.Song.StaticKeys1);
+
+  TextKeys1 := AddText(Theme.Song.TextKeys1);
+
   // Song List
 //  Songs.LoadSongList; // moved to the UltraStar unit
   CatSongs.Refresh;
@@ -1215,6 +1221,7 @@ begin
   end;
 
   SetJoker;
+  SetStatics;
 end;
 
 procedure TScreenSong.onHide;
@@ -1646,6 +1653,21 @@ begin
   end;
 end;
 
+procedure TScreenSong.SetStatics;
+begin
+  //If Party Mode
+  if Mode = 1 then //Use Statics for Party-Song-Selection
+  begin
+    Static[StaticKeys1].Visible := false;
+    Text[TextKeys1].Visible := false;
+  end
+  else //Use regular Statics for Song-Selection
+  begin //Hide all
+    Static[StaticKeys1].Visible := true;
+    Text[TextKeys1].Visible := true;
+  end;
+end;
+
 //Procedures for Menu
 
 procedure TScreenSong.StartSong;