added static navigate in scorescreen for medley mode

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

2 files changed, 18 insertions, 0 deletions

diff --git a/medley_new/src/base/UThemes.pas b/medley_new/src/base/UThemes.pas
index dcfc5b4d..55d2e84d 100644
--- a/medley_new/src/base/UThemes.pas
+++ b/medley_new/src/base/UThemes.pas
@@ -408,6 +408,9 @@ type
     StaticLevelRound:       array[1..6] of TThemeStatic;
     StaticPlayerIdBox:      array[1..6] of TThemeStatic;
 
+    StaticNavigate:   TThemeStatic;
+    TextNavigate:     TThemeText;
+
 //    Description:          array[0..5] of string;}
   end;
 
@@ -1274,6 +1277,9 @@ begin
         ThemeLoadStatic(Score.StaticRatings[I],        'ScoreStaticRatingPicture'  + IntToStr(I));
       end;
 
+      ThemeLoadStatic(Score.StaticNavigate, 'ScoreStaticNavigate');
+      ThemeLoadText(Score.TextNavigate, 'ScoreTextNavigate');
+
       // Top5
       ThemeLoadBasic(Top5, 'Top5');
 
diff --git a/medley_new/src/screens/UScreenScore.pas b/medley_new/src/screens/UScreenScore.pas
index 3b08fe86..7742aec0 100644
--- a/medley_new/src/screens/UScreenScore.pas
+++ b/medley_new/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;
@@ -574,6 +576,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;
 
@@ -698,6 +703,13 @@ 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;