From 37f734e1943563ca121791eabb9bff067a591e3d Mon Sep 17 00:00:00 2001
From: mota23 <mota23@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 30 Apr 2007 09:24:50 +0000
Subject: Added new Static to ScreenPartyNewRound. Some Themework in
 Party-Mode. Still needs work.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@151 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UThemes.pas              |  6 ++++++
 Game/Code/Screens/UScreenPartyNewRound.pas | 16 ++++++++++++++++
 2 files changed, 22 insertions(+)

(limited to 'Game/Code')

diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index 31081f23..414da72f 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -520,6 +520,9 @@ type
     StaticTeam1:       TThemeStatic;
     StaticTeam2:       TThemeStatic;
     StaticTeam3:       TThemeStatic;
+    StaticNextPlayer1: TThemeStatic;
+    StaticNextPlayer2: TThemeStatic;
+    StaticNextPlayer3: TThemeStatic;
 
     ButtonNext:        TThemeButton;
   end;
@@ -1214,6 +1217,9 @@ begin
       ThemeLoadStatic (PartyNewRound.StaticTeam1, 'PartyNewRoundStaticTeam1');
       ThemeLoadStatic (PartyNewRound.StaticTeam2, 'PartyNewRoundStaticTeam2');
       ThemeLoadStatic (PartyNewRound.StaticTeam3, 'PartyNewRoundStaticTeam3');
+      ThemeLoadStatic (PartyNewRound.StaticNextPlayer1, 'PartyNewRoundStaticNextPlayer1');
+      ThemeLoadStatic (PartyNewRound.StaticNextPlayer2, 'PartyNewRoundStaticNextPlayer2');
+      ThemeLoadStatic (PartyNewRound.StaticNextPlayer3, 'PartyNewRoundStaticNextPlayer3');
 
       ThemeLoadButton (PartyNewRound.ButtonNext, 'PartyNewRoundButtonNext');
 
diff --git a/Game/Code/Screens/UScreenPartyNewRound.pas b/Game/Code/Screens/UScreenPartyNewRound.pas
index cf643310..8c1b8369 100644
--- a/Game/Code/Screens/UScreenPartyNewRound.pas
+++ b/Game/Code/Screens/UScreenPartyNewRound.pas
@@ -30,6 +30,7 @@ type
       TextNextPlayer1: Cardinal;
       TextNextPlayer2: Cardinal;
       TextNextPlayer3: Cardinal;
+
       //Statics
       StaticRound1: Cardinal;
       StaticRound2: Cardinal;
@@ -50,6 +51,12 @@ type
       StaticTeam1: Cardinal;
       StaticTeam2: Cardinal;
       StaticTeam3: Cardinal;
+      StaticNextPlayer1: Cardinal;
+      StaticNextPlayer2: Cardinal;
+      StaticNextPlayer3: Cardinal;
+
+
+
 
       constructor Create; override;
       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
@@ -157,6 +164,9 @@ begin
   StaticTeam1 := AddStatic (Theme.PartyNewRound.StaticTeam1);
   StaticTeam2 := AddStatic (Theme.PartyNewRound.StaticTeam2);
   StaticTeam3 := AddStatic (Theme.PartyNewRound.StaticTeam3);
+  StaticNextPlayer1 := AddStatic (Theme.PartyNewRound.StaticNextPlayer1);
+  StaticNextPlayer2 := AddStatic (Theme.PartyNewRound.StaticNextPlayer2);
+  StaticNextPlayer3 := AddStatic (Theme.PartyNewRound.StaticNextPlayer3);
 
   LoadFromTheme(Theme.PartyNewRound);
 end;
@@ -297,12 +307,14 @@ begin
     Text[TextScoreTeam1].Visible := True;
     Text[TextNameTeam1].Visible := True;
     Static[StaticTeam1].Visible := True;
+    Static[StaticNextPlayer1].Visible := True;
   end
   else
   begin
     Text[TextScoreTeam1].Visible := False;
     Text[TextNameTeam1].Visible := False;
     Static[StaticTeam1].Visible := False;
+    Static[StaticNextPlayer1].Visible := False;
   end;
 
   if (PartySession.Teams.NumTeams >= 2) then
@@ -313,12 +325,14 @@ begin
     Text[TextScoreTeam2].Visible := True;
     Text[TextNameTeam2].Visible := True;
     Static[StaticTeam2].Visible := True;
+    Static[StaticNextPlayer2].Visible := True;
   end
   else
   begin
     Text[TextScoreTeam2].Visible := False;
     Text[TextNameTeam2].Visible := False;
     Static[StaticTeam2].Visible := False;
+    Static[StaticNextPlayer2].Visible := False;
   end;
 
   if (PartySession.Teams.NumTeams >= 3) then
@@ -329,12 +343,14 @@ begin
     Text[TextScoreTeam3].Visible := True;
     Text[TextNameTeam3].Visible := True;
     Static[StaticTeam3].Visible := True;
+    Static[StaticNextPlayer3].Visible := True;
   end
   else
   begin
     Text[TextScoreTeam3].Visible := False;
     Text[TextNameTeam3].Visible := False;
     Static[StaticTeam3].Visible := False;
+    Static[StaticNextPlayer3].Visible := False;
   end;
 
   //nextRound Texts
-- 
cgit v1.2.3