From 66f4c5511f1cc61b68e75d874ea6a1dc88f9e75a Mon Sep 17 00:00:00 2001
From: mota23 <mota23@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 15 May 2007 18:04:42 +0000
Subject: Added: Keys 1.2.3 to use Joker in Popup-Party-Menu Added: 2 sets of
 Statics for Song-Screen. (need work, just startet) Some Fixes in Deluxe
 Theme. (missing texts, fixed positions etc.)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@194 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSong.pas | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

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

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;
-- 
cgit v1.2.3