From e2cd03822f28a4866f98fb0893a73b02bd60ce03 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 5 Apr 2007 14:37:58 +0000
Subject: Added Playlist Support Working correct with Standard Mode Only for
 now Now working on Playlist Support for Party Mode

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@59 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSongJumpto.pas | 21 +++++----------------
 1 file changed, 5 insertions(+), 16 deletions(-)

(limited to 'Game/Code/Screens/UScreenSongJumpto.pas')

diff --git a/Game/Code/Screens/UScreenSongJumpto.pas b/Game/Code/Screens/UScreenSongJumpto.pas
index c2107507..123146c7 100644
--- a/Game/Code/Screens/UScreenSongJumpto.pas
+++ b/Game/Code/Screens/UScreenSongJumpto.pas
@@ -8,10 +8,6 @@ uses
 type
   TScreenSongJumpto = class(TMenu)
     private
-      Songsfound: String;
-      NoSongsfound: String;
-      CatText: String;
-
       //For ChangeMusic
       LastPlayed: Integer;
       VisibleBool: Boolean;
@@ -157,13 +153,6 @@ var
   I:    integer;
 begin
   inherited Create;
-  //Translate Texts     //TODO: Port to UTheme (Linebonus and PartyScreens, too
-  IType[0] := Language.Translate('SONG_JUMPTO_TYPE1');
-  IType[1] := Language.Translate('SONG_JUMPTO_TYPE2');
-  IType[2] := Language.Translate('SONG_JUMPTO_TYPE3');
-  SongsFound := Language.Translate('SONG_JUMPTO_SONGSFOUND');
-  NoSongsFound := Language.Translate('SONG_JUMPTO_NOSONGSFOUND');
-  CatText := Language.Translate('SONG_JUMPTO_CATTEXT');
 
   AddBackground(Theme.SongJumpto.Background.Tex);
 
@@ -172,7 +161,7 @@ begin
     AddButtonText(14, 20, '');
 
   SelectType := 0;
-  AddSelectSlide(Theme.SongJumpto.SelectSlideType, SelectType, IType);
+  AddSelectSlide(Theme.SongJumpto.SelectSlideType, SelectType, Theme.SongJumpto.IType);
 
   AddText(Theme.SongJumpto.TextFound);
 
@@ -203,7 +192,7 @@ begin
     SelectType := 0;
 
     Button[0].Text[0].Text := '';
-    Text[0].Text := NoSongsFound;
+    Text[0].Text := Theme.SongJumpto.NoSongsFound;
   end;
 
   //Select Input
@@ -220,15 +209,15 @@ procedure TScreenSongJumpto.SetTextFound(const Count: Cardinal);
 begin
   if (Count = 0) then
   begin
-    Text[0].Text := NoSongsFound;
+    Text[0].Text := Theme.SongJumpto.NoSongsFound;
     ScreenSong.HideCatTL;
   end
   else
   begin
-    Text[0].Text := Format(SongsFound, [Count]);
+    Text[0].Text := Format(Theme.SongJumpto.SongsFound, [Count]);
 
     //Set CatTopLeftText
-    ScreenSong.ShowCatTLCustom(Format(CatText, [Button[0].Text[0].Text]));
+    ScreenSong.ShowCatTLCustom(Format(Theme.SongJumpto.CatText, [Button[0].Text[0].Text]));
   end;
 
 
-- 
cgit v1.2.3