medley mod: Themes modifications. This is considered the last part of the medley mod.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2946 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 13 insertions, 0 deletions

diff --git a/src/screens/UScreenScore.pas b/src/screens/UScreenScore.pas
index 4b7332b4..82b73ea2 100644
--- a/src/screens/UScreenScore.pas
+++ b/src/screens/UScreenScore.pas
@@ -168,6 +168,8 @@ type
       TextGolden_ActualValue: array[1..6] of integer;
 
       ActualRound:          integer;
+      StaticNavigate:       integer;
+      TextNavigate:         integer;
 
       procedure RefreshTexts;
       procedure ResetScores;
@@ -577,6 +579,9 @@ begin
     aPlayerScoreScreenTextures[Player].Player_Id_Box := Texture.GetTexture(Skin.GetTextureFileName('PlayerIDBox0' + IntToStr(Player)), Texture_Type_Transparent);
   end;
 
+  StaticNavigate := AddStatic(Theme.Score.StaticNavigate);
+  TextNavigate := AddText(Theme.Score.TextNavigate);
+
   LoadSwapTextures;
 end;
 
@@ -701,6 +706,14 @@ begin
   begin
     for P := 0 to PlayersPlay - 1 do
       Player[P] := PlaylistMedley.Stats[ActualRound].Player[P];
+
+    Statics[StaticNavigate].Visible := true;
+    Text[TextNavigate].Visible := true;
+  end
+  else
+  begin
+    Statics[StaticNavigate].Visible := false;
+    Text[TextNavigate].Visible := false;
   end;
 
   MapPlayersToPosition;