From ce3f910c28c2f6f91f7138690e5284d000ba05e9 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 5 Jan 2016 09:48:08 +0000
Subject: add about, jukebox and credits buttons and rearrange the buttons in
 the main screen. The functions of the about and jukebox buttons are still
 off.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3191 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UThemes.pas | 54 +++++++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 43 insertions(+), 11 deletions(-)

(limited to 'src/base/UThemes.pas')

diff --git a/src/base/UThemes.pas b/src/base/UThemes.pas
index b5a0638a..f8de91ab 100644
--- a/src/base/UThemes.pas
+++ b/src/base/UThemes.pas
@@ -251,15 +251,17 @@ type
   TThemeMain = class(TThemeBasic)
     ButtonSolo:       TThemeButton;
     ButtonMulti:      TThemeButton;
+    ButtonJukebox:    TThemeButton;
     ButtonStat:       TThemeButton;
     ButtonEditor:     TThemeButton;
     ButtonOptions:    TThemeButton;
+    ButtonAbout:      TThemeButton;
     ButtonExit:       TThemeButton;
 
     TextDescription:      TThemeText;
     TextDescriptionLong:  TThemeText;
-    Description:          array[0..5] of UTF8String;
-    DescriptionLong:      array[0..5] of UTF8String;
+    Description:          array[0..7] of UTF8String;
+    DescriptionLong:      array[0..7] of UTF8String;
   end;
 
   TThemeName = class(TThemeBasic)
@@ -780,6 +782,14 @@ type
     SelectRound: array [0..6] of TThemeSelectSlide;
   end;
 
+  //About
+  TThemeAboutMain = class(TThemeBasic)
+    ButtonCredits:    TThemeButton;
+    ButtonExit:       TThemeButton;
+
+    TextOverview:     TThemeText;
+  end;
+
   //Stats Screens
   TThemeStatMain = class(TThemeBasic)
     ButtonScores:     TThemeButton;
@@ -868,6 +878,9 @@ type
     PartyPlayer:      TThemePartyPlayer;
     PartyRounds:      TThemePartyRounds;
 
+    // About
+    AboutMain:        TThemeAboutMain;
+
     //Stats Screens:
     StatMain:         TThemeStatMain;
     StatDetail:       TThemeStatDetail;
@@ -1003,6 +1016,9 @@ begin
   PartyPlayer := TThemePartyPlayer.Create;
   PartyRounds := TThemePartyRounds.Create;
 
+  // About
+  AboutMain :=   TThemeAboutMain.Create;
+
   //Stats Screens:
   StatMain :=   TThemeStatMain.Create;
   StatDetail := TThemeStatDetail.Create;
@@ -1135,9 +1151,11 @@ begin
       ThemeLoadText(Main.TextDescriptionLong, 'MainTextDescriptionLong');
       ThemeLoadButton(Main.ButtonSolo, 'MainButtonSolo');
       ThemeLoadButton(Main.ButtonMulti, 'MainButtonMulti');
+      ThemeLoadButton(Main.ButtonJukebox, 'MainButtonJukebox');
       ThemeLoadButton(Main.ButtonStat, 'MainButtonStats');
       ThemeLoadButton(Main.ButtonEditor, 'MainButtonEditor');
       ThemeLoadButton(Main.ButtonOptions, 'MainButtonOptions');
+      ThemeLoadButton(Main.ButtonAbout, 'MainButtonAbout');
       ThemeLoadButton(Main.ButtonExit, 'MainButtonExit');
 
       //Main Desc Text Translation Start
@@ -1146,14 +1164,18 @@ begin
       Main.DescriptionLong[0] := Language.Translate('SING_SING_DESC');
       Main.Description[1] := Language.Translate('SING_MULTI');
       Main.DescriptionLong[1] := Language.Translate('SING_MULTI_DESC');
-      Main.Description[2] := Language.Translate('SING_STATS');
-      Main.DescriptionLong[2] := Language.Translate('SING_STATS_DESC');
-      Main.Description[3] := Language.Translate('SING_EDITOR');
-      Main.DescriptionLong[3] := Language.Translate('SING_EDITOR_DESC');
-      Main.Description[4] := Language.Translate('SING_GAME_OPTIONS');
-      Main.DescriptionLong[4] := Language.Translate('SING_GAME_OPTIONS_DESC');
-      Main.Description[5] := Language.Translate('SING_EXIT');
-      Main.DescriptionLong[5] := Language.Translate('SING_EXIT_DESC');
+      Main.Description[2] := Language.Translate('SING_JUKEBOX');
+      Main.DescriptionLong[2] := Language.Translate('SING_JUKEBOX_DESC');
+      Main.Description[3] := Language.Translate('SING_STATS');
+      Main.DescriptionLong[3] := Language.Translate('SING_STATS_DESC');
+      Main.Description[4] := Language.Translate('SING_EDITOR');
+      Main.DescriptionLong[4] := Language.Translate('SING_EDITOR_DESC');
+      Main.Description[5] := Language.Translate('SING_GAME_OPTIONS');
+      Main.DescriptionLong[5] := Language.Translate('SING_GAME_OPTIONS_DESC');
+      Main.Description[6] := Language.Translate('SING_ABOUT');
+      Main.DescriptionLong[6] := Language.Translate('SING_ABOUT_DESC');
+      Main.Description[7] := Language.Translate('SING_EXIT');
+      Main.DescriptionLong[7] := Language.Translate('SING_EXIT_DESC');
 
       //Main Desc Text Translation End
 
@@ -1736,6 +1758,13 @@ begin
       {ThemeLoadButton(ButtonNext, 'PartyPlayerButtonNext');
       ThemeLoadButton(ButtonPrev, 'PartyPlayerButtonPrev');}
 
+      // About
+      ThemeLoadBasic(AboutMain, 'AboutMain');
+      ThemeLoadButton(AboutMain.ButtonCredits, 'AboutMainButtonCredits');
+      ThemeLoadButton(AboutMain.ButtonExit, 'AboutMainButtonExit');
+      ThemeLoadText (AboutMain.TextOverview, 'AboutMainTextOverview');
+
+      // Stats
       ThemeLoadBasic(StatMain, 'StatMain');
 
       ThemeLoadButton(StatMain.ButtonScores, 'StatMainButtonScores');
@@ -2816,10 +2845,13 @@ begin
 
   freeandnil(Sing);
   Sing := TThemeSing.Create;
-  
+
   freeandnil(Jukebox);
   Jukebox := TThemeJukebox.Create;
 
+  freeandnil(AboutMain);
+  AboutMain := TThemeAboutMain.Create;
+
   freeandnil(Score);
   Score := TThemeScore.Create;
 
-- 
cgit v1.2.3