Added Advanced Screen and Options in TIni

Options working now only for Effect Perfect and Effect Golden.

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

1 files changed, 234 insertions, 208 deletions

diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index d2fb5b11..17983a60 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -333,10 +333,11 @@ type
     ButtonLyrics:     TThemeButton;

     ButtonThemes:     TThemeButton;

     ButtonRecord:     TThemeButton;

+    ButtonAdvanced:   TThemeButton;

     ButtonExit:       TThemeButton;

 

     TextDescription:      TThemeText;

-    Description:          array[0..6] of string;

+    Description:          array[0..7] of string;

   end;

 

   TThemeOptionsGame = class(TThemeBasic)

@@ -390,6 +391,16 @@ type
     ButtonExit:           TThemeButton;

   end;

 

+  TThemeOptionsAdvanced = class(TThemeBasic)

+    SelectLoadAnimation:  TThemeSelect;

+    SelectEffectPerfect:  TThemeSelect;

+    SelectEffectGolden:   TThemeSelect;

+    SelectLineBonus:      TThemeSelect;

+    SelectAskbeforeDel:   TThemeSelect;

+    SelectOnSongClick:    TThemeSelectSlide;

+    ButtonExit:           TThemeButton;

+  end;

+

   //ScreenSong Menue

   TThemeSongMenu = class(TThemeBasic)

     Button1: TThemeButton;

@@ -549,7 +560,8 @@ type
     OptionsLyrics:    TThemeOptionsLyrics;

     OptionsThemes:    TThemeOptionsThemes;

     OptionsRecord:    TThemeOptionsRecord;

-    //Menu

+    OptionsAdvanced:  TThemeOptionsAdvanced;

+    //ScreenSong extensions

     SongMenu:         TThemeSongMenu;

     SongJumpto:       TThemeSongJumpTo;

     //Party Screens:

@@ -633,6 +645,7 @@ begin
   OptionsLyrics := TThemeOptionsLyrics.Create;

   OptionsThemes := TThemeOptionsThemes.Create;

   OptionsRecord := TThemeOptionsRecord.Create;

+  OptionsAdvanced := TThemeOptionsAdvanced.Create;

 

   SongMenu := TThemeSongMenu.Create;

   SongJumpto := TThemeSongJumpto.Create;

@@ -939,72 +952,74 @@ begin
       ThemeLoadTexts(Top5.TextName, 'Top5TextName');

       ThemeLoadTexts(Top5.TextScore, 'Top5TextScore');

 

-    // Options

-    ThemeLoadBasic(Options, 'Options');

-

-    ThemeLoadButton(Options.ButtonGame, 'OptionsButtonGame');

-    ThemeLoadButton(Options.ButtonGraphics, 'OptionsButtonGraphics');

-    ThemeLoadButton(Options.ButtonSound, 'OptionsButtonSound');

-    ThemeLoadButton(Options.ButtonLyrics, 'OptionsButtonLyrics');

-    ThemeLoadButton(Options.ButtonThemes, 'OptionsButtonThemes');

-    ThemeLoadButton(Options.ButtonRecord, 'OptionsButtonRecord');

-    ThemeLoadButton(Options.ButtonExit, 'OptionsButtonExit');

-

-    {{$IFDEF TRANSLATE}

-    Options.Description[0] := Language.Translate('SING_OPTIONS_GAME');

-    Options.Description[1] := Language.Translate('SING_OPTIONS_GRAPHICS');

-    Options.Description[2] := Language.Translate('SING_OPTIONS_SOUND');

-    Options.Description[3] := Language.Translate('SING_OPTIONS_LYRICS');

-    Options.Description[4] := Language.Translate('SING_OPTIONS_THEMES');

-    Options.Description[5] := Language.Translate('SING_OPTIONS_RECORD');

-    Options.Description[6] := Language.Translate('SING_OPTIONS_EXIT');

-    {{$ENDIF}

-

-    ThemeLoadText(Options.TextDescription, 'OptionsTextDescription');

-    Options.TextDescription.Text := Options.Description[0];

-

-    // Options Game

-    ThemeLoadBasic(OptionsGame, 'OptionsGame');

-

-    ThemeLoadSelect(OptionsGame.SelectPlayers, 'OptionsGameSelectPlayers');

-    ThemeLoadSelect(OptionsGame.SelectDifficulty, 'OptionsGameSelectDifficulty');

-    ThemeLoadSelectSlide(OptionsGame.SelectLanguage, 'OptionsGameSelectSlideLanguage');

-    ThemeLoadSelect(OptionsGame.SelectTabs, 'OptionsGameSelectTabs');

-    ThemeLoadSelectSlide(OptionsGame.SelectSorting, 'OptionsGameSelectSlideSorting');

-    ThemeLoadSelect(OptionsGame.SelectDebug, 'OptionsGameSelectDebug');

-    ThemeLoadButton(OptionsGame.ButtonExit, 'OptionsGameButtonExit');

-

-    // Options Graphics

-    ThemeLoadBasic(OptionsGraphics, 'OptionsGraphics');

-

-    ThemeLoadSelect(OptionsGraphics.SelectFullscreen, 'OptionsGraphicsSelectFullscreen');

-    ThemeLoadSelectSlide(OptionsGraphics.SelectSlideResolution, 'OptionsGraphicsSelectSlideResolution');

-    ThemeLoadSelect(OptionsGraphics.SelectDepth, 'OptionsGraphicsSelectDepth');

-    ThemeLoadSelect(OptionsGraphics.SelectOscilloscope, 'OptionsGraphicsSelectOscilloscope');

-    ThemeLoadSelect(OptionsGraphics.SelectLineBonus, 'OptionsGraphicsSelectLineBonus');

-    ThemeLoadSelect(OptionsGraphics.SelectMovieSize, 'OptionsGraphicsSelectMovieSize');

-    ThemeLoadButton(OptionsGraphics.ButtonExit, 'OptionsGraphicsButtonExit');

-

-    // Options Sound

-    ThemeLoadBasic(OptionsSound, 'OptionsSound');

-

-    ThemeLoadSelect(OptionsSound.SelectMicBoost, 'OptionsSoundSelectMicBoost');

-    ThemeLoadSelect(OptionsSound.SelectClickAssist, 'OptionsSoundSelectClickAssist');

-    ThemeLoadSelect(OptionsSound.SelectBeatClick, 'OptionsSoundSelectBeatClick');

-    ThemeLoadSelect(OptionsSound.SelectThreshold, 'OptionsSoundSelectThreshold');

-    //ThemeLoadSelect(OptionsSound.SelectTwoPlayerMode, 'OptionsSoundSelectTwoPlayerMode');

-    ThemeLoadButton(OptionsSound.ButtonExit, 'OptionsSoundButtonExit');

-

-    // Options Lyrics

-    ThemeLoadBasic(OptionsLyrics, 'OptionsLyrics');

-

-    ThemeLoadSelect(OptionsLyrics.SelectLyricsFont, 'OptionsLyricsSelectLyricsFont');

-    ThemeLoadSelect(OptionsLyrics.SelectLyricsEffect, 'OptionsLyricsSelectLyricsEffect');

-    ThemeLoadSelect(OptionsLyrics.SelectSolmization, 'OptionsLyricsSelectSolmization');

-    ThemeLoadButton(OptionsLyrics.ButtonExit, 'OptionsLyricsButtonExit');

-

-    // Options Themes

-    ThemeLoadBasic(OptionsThemes, 'OptionsThemes');

+      // Options

+      ThemeLoadBasic(Options, 'Options');

+

+      ThemeLoadButton(Options.ButtonGame, 'OptionsButtonGame');

+      ThemeLoadButton(Options.ButtonGraphics, 'OptionsButtonGraphics');

+      ThemeLoadButton(Options.ButtonSound, 'OptionsButtonSound');

+      ThemeLoadButton(Options.ButtonLyrics, 'OptionsButtonLyrics');

+      ThemeLoadButton(Options.ButtonThemes, 'OptionsButtonThemes');

+      ThemeLoadButton(Options.ButtonRecord, 'OptionsButtonRecord');

+      ThemeLoadButton(Options.ButtonAdvanced, 'OptionsButtonAdvanced');

+      ThemeLoadButton(Options.ButtonExit, 'OptionsButtonExit');

+

+      {{$IFDEF TRANSLATE}

+      Options.Description[0] := Language.Translate('SING_OPTIONS_GAME');

+      Options.Description[1] := Language.Translate('SING_OPTIONS_GRAPHICS');

+      Options.Description[2] := Language.Translate('SING_OPTIONS_SOUND');

+      Options.Description[3] := Language.Translate('SING_OPTIONS_LYRICS');

+      Options.Description[4] := Language.Translate('SING_OPTIONS_THEMES');

+      Options.Description[5] := Language.Translate('SING_OPTIONS_RECORD');

+      Options.Description[6] := Language.Translate('SING_OPTIONS_ADVANCED');

+      Options.Description[7] := Language.Translate('SING_OPTIONS_EXIT');

+      {{$ENDIF}

+

+      ThemeLoadText(Options.TextDescription, 'OptionsTextDescription');

+      Options.TextDescription.Text := Options.Description[0];

+

+      // Options Game

+      ThemeLoadBasic(OptionsGame, 'OptionsGame');

+

+      ThemeLoadSelect(OptionsGame.SelectPlayers, 'OptionsGameSelectPlayers');

+      ThemeLoadSelect(OptionsGame.SelectDifficulty, 'OptionsGameSelectDifficulty');

+      ThemeLoadSelectSlide(OptionsGame.SelectLanguage, 'OptionsGameSelectSlideLanguage');

+      ThemeLoadSelect(OptionsGame.SelectTabs, 'OptionsGameSelectTabs');

+      ThemeLoadSelectSlide(OptionsGame.SelectSorting, 'OptionsGameSelectSlideSorting');

+      ThemeLoadSelect(OptionsGame.SelectDebug, 'OptionsGameSelectDebug');

+      ThemeLoadButton(OptionsGame.ButtonExit, 'OptionsGameButtonExit');

+

+      // Options Graphics

+      ThemeLoadBasic(OptionsGraphics, 'OptionsGraphics');

+

+      ThemeLoadSelect(OptionsGraphics.SelectFullscreen, 'OptionsGraphicsSelectFullscreen');

+      ThemeLoadSelectSlide(OptionsGraphics.SelectSlideResolution, 'OptionsGraphicsSelectSlideResolution');

+      ThemeLoadSelect(OptionsGraphics.SelectDepth, 'OptionsGraphicsSelectDepth');

+      ThemeLoadSelect(OptionsGraphics.SelectOscilloscope, 'OptionsGraphicsSelectOscilloscope');

+      ThemeLoadSelect(OptionsGraphics.SelectLineBonus, 'OptionsGraphicsSelectLineBonus');

+      ThemeLoadSelect(OptionsGraphics.SelectMovieSize, 'OptionsGraphicsSelectMovieSize');

+      ThemeLoadButton(OptionsGraphics.ButtonExit, 'OptionsGraphicsButtonExit');

+

+      // Options Sound

+      ThemeLoadBasic(OptionsSound, 'OptionsSound');

+

+      ThemeLoadSelect(OptionsSound.SelectMicBoost, 'OptionsSoundSelectMicBoost');

+      ThemeLoadSelect(OptionsSound.SelectClickAssist, 'OptionsSoundSelectClickAssist');

+      ThemeLoadSelect(OptionsSound.SelectBeatClick, 'OptionsSoundSelectBeatClick');

+      ThemeLoadSelect(OptionsSound.SelectThreshold, 'OptionsSoundSelectThreshold');

+      //ThemeLoadSelect(OptionsSound.SelectTwoPlayerMode, 'OptionsSoundSelectTwoPlayerMode');

+      ThemeLoadButton(OptionsSound.ButtonExit, 'OptionsSoundButtonExit');

+

+      // Options Lyrics

+      ThemeLoadBasic(OptionsLyrics, 'OptionsLyrics');

+

+      ThemeLoadSelect(OptionsLyrics.SelectLyricsFont, 'OptionsLyricsSelectLyricsFont');

+      ThemeLoadSelect(OptionsLyrics.SelectLyricsEffect, 'OptionsLyricsSelectLyricsEffect');

+      ThemeLoadSelect(OptionsLyrics.SelectSolmization, 'OptionsLyricsSelectSolmization');

+      ThemeLoadButton(OptionsLyrics.ButtonExit, 'OptionsLyricsButtonExit');

+

+      // Options Themes

+      ThemeLoadBasic(OptionsThemes, 'OptionsThemes');

 

       ThemeLoadSelectSlide(OptionsThemes.SelectTheme, 'OptionsThemesSelectTheme');

       ThemeLoadSelectSlide(OptionsThemes.SelectSkin, 'OptionsThemesSelectSkin');

@@ -1020,147 +1035,158 @@ begin
       ThemeLoadSelectSlide(OptionsRecord.SelectSlideChannelR, 'OptionsRecordSelectSlideChannelR');

       ThemeLoadButton(OptionsRecord.ButtonExit, 'OptionsRecordButtonExit');

 

-   //Song Menu

-    ThemeLoadBasic (SongMenu, 'SongMenu');

-    ThemeLoadButton(SongMenu.Button1, 'SongMenuButton1');

-    ThemeLoadButton(SongMenu.Button2, 'SongMenuButton2');

-    ThemeLoadButton(SongMenu.Button3, 'SongMenuButton3');

-    ThemeLoadButton(SongMenu.Button4, 'SongMenuButton4');

-    ThemeLoadSelectSlide(SongMenu.SelectSlide3, 'SongMenuSelectSlide3');

-

-    ThemeLoadText(SongMenu.TextMenu, 'SongMenuTextMenu');

-

-    //Song Jumpto

-    ThemeLoadBasic (SongJumpto, 'SongJumpto');

-    ThemeLoadButton(SongJumpto.ButtonSearchText, 'SongJumptoButtonSearchText');

-    ThemeLoadSelectSlide(SongJumpto.SelectSlideType, 'SongJumptoSelectSlideType');

-    ThemeLoadText(SongJumpto.TextFound, 'SongJumptoTextFound');

-    //Translations

-    SongJumpto.IType[0] := Language.Translate('SONG_JUMPTO_TYPE1');

-    SongJumpto.IType[1] := Language.Translate('SONG_JUMPTO_TYPE2');

-    SongJumpto.IType[2] := Language.Translate('SONG_JUMPTO_TYPE3');

-    SongJumpto.SongsFound := Language.Translate('SONG_JUMPTO_SONGSFOUND');

-    SongJumpto.NoSongsFound := Language.Translate('SONG_JUMPTO_NOSONGSFOUND');

-    SongJumpto.CatText := Language.Translate('SONG_JUMPTO_CATTEXT');

+      //Options Advanced

+      ThemeLoadBasic(OptionsAdvanced, 'OptionsAdvanced');

+

+      ThemeLoadSelect       (OptionsAdvanced.SelectLoadAnimation, 'OptionsAdvancedSelectLoadAnimation');

+      ThemeLoadSelect       (OptionsAdvanced.SelectEffectPerfect, 'OptionsAdvancedSelectEffectPerfect');

+      ThemeLoadSelect       (OptionsAdvanced.SelectEffectGolden, 'OptionsAdvancedSelectEffectGolden');

+      ThemeLoadSelect       (OptionsAdvanced.SelectLineBonus, 'OptionsAdvancedSelectLineBonus');

+      ThemeLoadSelectSlide  (OptionsAdvanced.SelectOnSongClick, 'OptionsAdvancedSelectSlideOnSongClick');

+      ThemeLoadSelect       (OptionsAdvanced.SelectAskbeforeDel, 'OptionsAdvancedSelectAskbeforeDel');

+      ThemeLoadButton       (OptionsAdvanced.ButtonExit, 'OptionsAdvancedButtonExit');

+

+      //Song Menu

+      ThemeLoadBasic (SongMenu, 'SongMenu');

+      ThemeLoadButton(SongMenu.Button1, 'SongMenuButton1');

+      ThemeLoadButton(SongMenu.Button2, 'SongMenuButton2');

+      ThemeLoadButton(SongMenu.Button3, 'SongMenuButton3');

+      ThemeLoadButton(SongMenu.Button4, 'SongMenuButton4');

+      ThemeLoadSelectSlide(SongMenu.SelectSlide3, 'SongMenuSelectSlide3');

+

+      ThemeLoadText(SongMenu.TextMenu, 'SongMenuTextMenu');

+

+      //Song Jumpto

+      ThemeLoadBasic (SongJumpto, 'SongJumpto');

+      ThemeLoadButton(SongJumpto.ButtonSearchText, 'SongJumptoButtonSearchText');

+      ThemeLoadSelectSlide(SongJumpto.SelectSlideType, 'SongJumptoSelectSlideType');

+      ThemeLoadText(SongJumpto.TextFound, 'SongJumptoTextFound');

+      //Translations

+      SongJumpto.IType[0] := Language.Translate('SONG_JUMPTO_TYPE1');

+      SongJumpto.IType[1] := Language.Translate('SONG_JUMPTO_TYPE2');

+      SongJumpto.IType[2] := Language.Translate('SONG_JUMPTO_TYPE3');

+      SongJumpto.SongsFound := Language.Translate('SONG_JUMPTO_SONGSFOUND');

+      SongJumpto.NoSongsFound := Language.Translate('SONG_JUMPTO_NOSONGSFOUND');

+      SongJumpto.CatText := Language.Translate('SONG_JUMPTO_CATTEXT');

+

+      //Party Screens:

+      //Party NewRound

+      ThemeLoadBasic(PartyNewRound, 'PartyNewRound');

+

+      ThemeLoadText (PartyNewRound.TextRound1, 'PartyNewRoundTextRound1');

+      ThemeLoadText (PartyNewRound.TextRound2, 'PartyNewRoundTextRound2');

+      ThemeLoadText (PartyNewRound.TextRound3, 'PartyNewRoundTextRound3');

+      ThemeLoadText (PartyNewRound.TextRound4, 'PartyNewRoundTextRound4');

+      ThemeLoadText (PartyNewRound.TextRound5, 'PartyNewRoundTextRound5');

+      ThemeLoadText (PartyNewRound.TextRound6, 'PartyNewRoundTextRound6');

+      ThemeLoadText (PartyNewRound.TextRound7, 'PartyNewRoundTextRound7');

+      ThemeLoadText (PartyNewRound.TextWinner1, 'PartyNewRoundTextWinner1');

+      ThemeLoadText (PartyNewRound.TextWinner2, 'PartyNewRoundTextWinner2');

+      ThemeLoadText (PartyNewRound.TextWinner3, 'PartyNewRoundTextWinner3');

+      ThemeLoadText (PartyNewRound.TextWinner4, 'PartyNewRoundTextWinner4');

+      ThemeLoadText (PartyNewRound.TextWinner5, 'PartyNewRoundTextWinner5');

+      ThemeLoadText (PartyNewRound.TextWinner6, 'PartyNewRoundTextWinner6');

+      ThemeLoadText (PartyNewRound.TextWinner7, 'PartyNewRoundTextWinner7');

+      ThemeLoadText (PartyNewRound.TextNextRound, 'PartyNewRoundTextNextRound');

+      ThemeLoadText (PartyNewRound.TextNextRoundNo, 'PartyNewRoundTextNextRoundNo');

+      ThemeLoadText (PartyNewRound.TextNextPlayer1, 'PartyNewRoundTextNextPlayer1');

+      ThemeLoadText (PartyNewRound.TextNextPlayer2, 'PartyNewRoundTextNextPlayer2');

+      ThemeLoadText (PartyNewRound.TextNextPlayer3, 'PartyNewRoundTextNextPlayer3');

+

+      ThemeLoadStatic (PartyNewRound.StaticRound1, 'PartyNewRoundStaticRound1');

+      ThemeLoadStatic (PartyNewRound.StaticRound2, 'PartyNewRoundStaticRound2');

+      ThemeLoadStatic (PartyNewRound.StaticRound3, 'PartyNewRoundStaticRound3');

+      ThemeLoadStatic (PartyNewRound.StaticRound4, 'PartyNewRoundStaticRound4');

+      ThemeLoadStatic (PartyNewRound.StaticRound5, 'PartyNewRoundStaticRound5');

+      ThemeLoadStatic (PartyNewRound.StaticRound6, 'PartyNewRoundStaticRound6');

+      ThemeLoadStatic (PartyNewRound.StaticRound7, 'PartyNewRoundStaticRound7');

+

+      ThemeLoadText (PartyNewRound.TextScoreTeam1, 'PartyNewRoundTextScoreTeam1');

+      ThemeLoadText (PartyNewRound.TextScoreTeam2, 'PartyNewRoundTextScoreTeam2');

+      ThemeLoadText (PartyNewRound.TextScoreTeam3, 'PartyNewRoundTextScoreTeam3');

+      ThemeLoadText (PartyNewRound.TextNameTeam1, 'PartyNewRoundTextNameTeam1');

+      ThemeLoadText (PartyNewRound.TextNameTeam2, 'PartyNewRoundTextNameTeam2');

+      ThemeLoadText (PartyNewRound.TextNameTeam3, 'PartyNewRoundTextNameTeam3');

+

+      ThemeLoadStatic (PartyNewRound.StaticTeam1, 'PartyNewRoundStaticTeam1');

+      ThemeLoadStatic (PartyNewRound.StaticTeam2, 'PartyNewRoundStaticTeam2');

+      ThemeLoadStatic (PartyNewRound.StaticTeam3, 'PartyNewRoundStaticTeam3');

+

+      ThemeLoadButton (PartyNewRound.ButtonNext, 'PartyNewRoundButtonNext');

+

+      //Party Score

+      ThemeLoadBasic(PartyScore, 'PartyScore');

+

+      ThemeLoadText (PartyScore.TextScoreTeam1, 'PartyScoreTextScoreTeam1');

+      ThemeLoadText (PartyScore.TextScoreTeam2, 'PartyScoreTextScoreTeam2');

+      ThemeLoadText (PartyScore.TextScoreTeam3, 'PartyScoreTextScoreTeam3');

+      ThemeLoadText (PartyScore.TextNameTeam1, 'PartyScoreTextNameTeam1');

+      ThemeLoadText (PartyScore.TextNameTeam2, 'PartyScoreTextNameTeam2');

+      ThemeLoadText (PartyScore.TextNameTeam3, 'PartyScoreTextNameTeam3');

+

+      ThemeLoadStatic (PartyScore.StaticTeam1, 'PartyScoreStaticTeam1');

+      ThemeLoadStatic (PartyScore.StaticTeam2, 'PartyScoreStaticTeam2');

+      ThemeLoadStatic (PartyScore.StaticTeam3, 'PartyScoreStaticTeam3');

+

+      ThemeLoadText (PartyScore.TextWinner, 'PartyScoreTextWinner');

+

+      //Party Win

+      ThemeLoadBasic(PartyWin, 'PartyWin');

+

+      ThemeLoadText (PartyWin.TextScoreTeam1, 'PartyWinTextScoreTeam1');

+      ThemeLoadText (PartyWin.TextScoreTeam2, 'PartyWinTextScoreTeam2');

+      ThemeLoadText (PartyWin.TextScoreTeam3, 'PartyWinTextScoreTeam3');

+      ThemeLoadText (PartyWin.TextNameTeam1, 'PartyWinTextNameTeam1');

+      ThemeLoadText (PartyWin.TextNameTeam2, 'PartyWinTextNameTeam2');

+      ThemeLoadText (PartyWin.TextNameTeam3, 'PartyWinTextNameTeam3');

+

+      ThemeLoadStatic (PartyWin.StaticTeam1, 'PartyWinStaticTeam1');

+      ThemeLoadStatic (PartyWin.StaticTeam2, 'PartyWinStaticTeam2');

+      ThemeLoadStatic (PartyWin.StaticTeam3, 'PartyWinStaticTeam3');

+

+      ThemeLoadText (PartyWin.TextWinner, 'PartyWinTextWinner');

+

+      //Party Options

+      ThemeLoadBasic(PartyOptions, 'PartyOptions');

+      ThemeLoadSelectSlide(PartyOptions.SelectLevel, 'PartyOptionsSelectLevel');

+      ThemeLoadSelectSlide(PartyOptions.SelectPlayList, 'PartyOptionsSelectPlayList');

+      ThemeLoadSelectSlide(PartyOptions.SelectPlayList2, 'PartyOptionsSelectPlayList2');

+      ThemeLoadSelectSlide(PartyOptions.SelectRounds, 'PartyOptionsSelectRounds');

+      ThemeLoadSelectSlide(PartyOptions.SelectTeams, 'PartyOptionsSelectTeams');

+      ThemeLoadSelectSlide(PartyOptions.SelectPlayers1, 'PartyOptionsSelectPlayers1');

+      ThemeLoadSelectSlide(PartyOptions.SelectPlayers2, 'PartyOptionsSelectPlayers2');

+      ThemeLoadSelectSlide(PartyOptions.SelectPlayers3, 'PartyOptionsSelectPlayers3');

+

+      {ThemeLoadButton (ButtonNext, 'ButtonNext');

+      ThemeLoadButton (ButtonPrev, 'ButtonPrev');}

+

+      //Party Player

+      ThemeLoadBasic(PartyPlayer, 'PartyPlayer');

+      ThemeLoadButton(PartyPlayer.Team1Name, 'PartyPlayerTeam1Name');

+      ThemeLoadButton(PartyPlayer.Player1Name, 'PartyPlayerPlayer1Name');

+      ThemeLoadButton(PartyPlayer.Player2Name, 'PartyPlayerPlayer2Name');

+      ThemeLoadButton(PartyPlayer.Player3Name, 'PartyPlayerPlayer3Name');

+      ThemeLoadButton(PartyPlayer.Player4Name, 'PartyPlayerPlayer4Name');

+

+      ThemeLoadButton(PartyPlayer.Team2Name, 'PartyPlayerTeam2Name');

+      ThemeLoadButton(PartyPlayer.Player5Name, 'PartyPlayerPlayer5Name');

+      ThemeLoadButton(PartyPlayer.Player6Name, 'PartyPlayerPlayer6Name');

+      ThemeLoadButton(PartyPlayer.Player7Name, 'PartyPlayerPlayer7Name');

+      ThemeLoadButton(PartyPlayer.Player8Name, 'PartyPlayerPlayer8Name');

+

+      ThemeLoadButton(PartyPlayer.Team3Name, 'PartyPlayerTeam3Name');

+      ThemeLoadButton(PartyPlayer.Player9Name, 'PartyPlayerPlayer9Name');

+      ThemeLoadButton(PartyPlayer.Player10Name, 'PartyPlayerPlayer10Name');

+      ThemeLoadButton(PartyPlayer.Player11Name, 'PartyPlayerPlayer11Name');

+      ThemeLoadButton(PartyPlayer.Player12Name, 'PartyPlayerPlayer12Name');

+

+      {ThemeLoadButton(ButtonNext, 'PartyPlayerButtonNext');

+      ThemeLoadButton(ButtonPrev, 'PartyPlayerButtonPrev');}

+

+      //Playlist Translations

+      Playlist.CatText := Language.Translate('PLAYLIST_CATTEXT')

+    end;

 

-    //Party Screens:

-    //Party NewRound

-    ThemeLoadBasic(PartyNewRound, 'PartyNewRound');

-

-    ThemeLoadText (PartyNewRound.TextRound1, 'PartyNewRoundTextRound1');

-    ThemeLoadText (PartyNewRound.TextRound2, 'PartyNewRoundTextRound2');

-    ThemeLoadText (PartyNewRound.TextRound3, 'PartyNewRoundTextRound3');

-    ThemeLoadText (PartyNewRound.TextRound4, 'PartyNewRoundTextRound4');

-    ThemeLoadText (PartyNewRound.TextRound5, 'PartyNewRoundTextRound5');

-    ThemeLoadText (PartyNewRound.TextRound6, 'PartyNewRoundTextRound6');

-    ThemeLoadText (PartyNewRound.TextRound7, 'PartyNewRoundTextRound7');

-    ThemeLoadText (PartyNewRound.TextWinner1, 'PartyNewRoundTextWinner1');

-    ThemeLoadText (PartyNewRound.TextWinner2, 'PartyNewRoundTextWinner2');

-    ThemeLoadText (PartyNewRound.TextWinner3, 'PartyNewRoundTextWinner3');

-    ThemeLoadText (PartyNewRound.TextWinner4, 'PartyNewRoundTextWinner4');

-    ThemeLoadText (PartyNewRound.TextWinner5, 'PartyNewRoundTextWinner5');

-    ThemeLoadText (PartyNewRound.TextWinner6, 'PartyNewRoundTextWinner6');

-    ThemeLoadText (PartyNewRound.TextWinner7, 'PartyNewRoundTextWinner7');

-    ThemeLoadText (PartyNewRound.TextNextRound, 'PartyNewRoundTextNextRound');

-    ThemeLoadText (PartyNewRound.TextNextRoundNo, 'PartyNewRoundTextNextRoundNo');

-    ThemeLoadText (PartyNewRound.TextNextPlayer1, 'PartyNewRoundTextNextPlayer1');

-    ThemeLoadText (PartyNewRound.TextNextPlayer2, 'PartyNewRoundTextNextPlayer2');

-    ThemeLoadText (PartyNewRound.TextNextPlayer3, 'PartyNewRoundTextNextPlayer3');

-

-    ThemeLoadStatic (PartyNewRound.StaticRound1, 'PartyNewRoundStaticRound1');

-    ThemeLoadStatic (PartyNewRound.StaticRound2, 'PartyNewRoundStaticRound2');

-    ThemeLoadStatic (PartyNewRound.StaticRound3, 'PartyNewRoundStaticRound3');

-    ThemeLoadStatic (PartyNewRound.StaticRound4, 'PartyNewRoundStaticRound4');

-    ThemeLoadStatic (PartyNewRound.StaticRound5, 'PartyNewRoundStaticRound5');

-    ThemeLoadStatic (PartyNewRound.StaticRound6, 'PartyNewRoundStaticRound6');

-    ThemeLoadStatic (PartyNewRound.StaticRound7, 'PartyNewRoundStaticRound7');

-

-    ThemeLoadText (PartyNewRound.TextScoreTeam1, 'PartyNewRoundTextScoreTeam1');

-    ThemeLoadText (PartyNewRound.TextScoreTeam2, 'PartyNewRoundTextScoreTeam2');

-    ThemeLoadText (PartyNewRound.TextScoreTeam3, 'PartyNewRoundTextScoreTeam3');

-    ThemeLoadText (PartyNewRound.TextNameTeam1, 'PartyNewRoundTextNameTeam1');

-    ThemeLoadText (PartyNewRound.TextNameTeam2, 'PartyNewRoundTextNameTeam2');

-    ThemeLoadText (PartyNewRound.TextNameTeam3, 'PartyNewRoundTextNameTeam3');

-

-    ThemeLoadStatic (PartyNewRound.StaticTeam1, 'PartyNewRoundStaticTeam1');

-    ThemeLoadStatic (PartyNewRound.StaticTeam2, 'PartyNewRoundStaticTeam2');

-    ThemeLoadStatic (PartyNewRound.StaticTeam3, 'PartyNewRoundStaticTeam3');

-

-    ThemeLoadButton (PartyNewRound.ButtonNext, 'PartyNewRoundButtonNext');

-

-    //Party Score

-    ThemeLoadBasic(PartyScore, 'PartyScore');

-

-    ThemeLoadText (PartyScore.TextScoreTeam1, 'PartyScoreTextScoreTeam1');

-    ThemeLoadText (PartyScore.TextScoreTeam2, 'PartyScoreTextScoreTeam2');

-    ThemeLoadText (PartyScore.TextScoreTeam3, 'PartyScoreTextScoreTeam3');

-    ThemeLoadText (PartyScore.TextNameTeam1, 'PartyScoreTextNameTeam1');

-    ThemeLoadText (PartyScore.TextNameTeam2, 'PartyScoreTextNameTeam2');

-    ThemeLoadText (PartyScore.TextNameTeam3, 'PartyScoreTextNameTeam3');

-

-    ThemeLoadStatic (PartyScore.StaticTeam1, 'PartyScoreStaticTeam1');

-    ThemeLoadStatic (PartyScore.StaticTeam2, 'PartyScoreStaticTeam2');

-    ThemeLoadStatic (PartyScore.StaticTeam3, 'PartyScoreStaticTeam3');

-

-    ThemeLoadText (PartyScore.TextWinner, 'PartyScoreTextWinner');

-

-    //Party Win

-    ThemeLoadBasic(PartyWin, 'PartyWin');

-

-    ThemeLoadText (PartyWin.TextScoreTeam1, 'PartyWinTextScoreTeam1');

-    ThemeLoadText (PartyWin.TextScoreTeam2, 'PartyWinTextScoreTeam2');

-    ThemeLoadText (PartyWin.TextScoreTeam3, 'PartyWinTextScoreTeam3');

-    ThemeLoadText (PartyWin.TextNameTeam1, 'PartyWinTextNameTeam1');

-    ThemeLoadText (PartyWin.TextNameTeam2, 'PartyWinTextNameTeam2');

-    ThemeLoadText (PartyWin.TextNameTeam3, 'PartyWinTextNameTeam3');

-

-    ThemeLoadStatic (PartyWin.StaticTeam1, 'PartyWinStaticTeam1');

-    ThemeLoadStatic (PartyWin.StaticTeam2, 'PartyWinStaticTeam2');

-    ThemeLoadStatic (PartyWin.StaticTeam3, 'PartyWinStaticTeam3');

-

-    ThemeLoadText (PartyWin.TextWinner, 'PartyWinTextWinner');

-

-    //Party Options

-    ThemeLoadBasic(PartyOptions, 'PartyOptions');

-    ThemeLoadSelectSlide(PartyOptions.SelectLevel, 'PartyOptionsSelectLevel');

-    ThemeLoadSelectSlide(PartyOptions.SelectPlayList, 'PartyOptionsSelectPlayList');

-    ThemeLoadSelectSlide(PartyOptions.SelectPlayList2, 'PartyOptionsSelectPlayList2');

-    ThemeLoadSelectSlide(PartyOptions.SelectRounds, 'PartyOptionsSelectRounds');

-    ThemeLoadSelectSlide(PartyOptions.SelectTeams, 'PartyOptionsSelectTeams');

-    ThemeLoadSelectSlide(PartyOptions.SelectPlayers1, 'PartyOptionsSelectPlayers1');

-    ThemeLoadSelectSlide(PartyOptions.SelectPlayers2, 'PartyOptionsSelectPlayers2');

-    ThemeLoadSelectSlide(PartyOptions.SelectPlayers3, 'PartyOptionsSelectPlayers3');

-

-    {ThemeLoadButton (ButtonNext, 'ButtonNext');

-    ThemeLoadButton (ButtonPrev, 'ButtonPrev');}

-

-    //Party Player

-    ThemeLoadBasic(PartyPlayer, 'PartyPlayer');

-    ThemeLoadButton(PartyPlayer.Team1Name, 'PartyPlayerTeam1Name');

-    ThemeLoadButton(PartyPlayer.Player1Name, 'PartyPlayerPlayer1Name');

-    ThemeLoadButton(PartyPlayer.Player2Name, 'PartyPlayerPlayer2Name');

-    ThemeLoadButton(PartyPlayer.Player3Name, 'PartyPlayerPlayer3Name');

-    ThemeLoadButton(PartyPlayer.Player4Name, 'PartyPlayerPlayer4Name');

-

-    ThemeLoadButton(PartyPlayer.Team2Name, 'PartyPlayerTeam2Name');

-    ThemeLoadButton(PartyPlayer.Player5Name, 'PartyPlayerPlayer5Name');

-    ThemeLoadButton(PartyPlayer.Player6Name, 'PartyPlayerPlayer6Name');

-    ThemeLoadButton(PartyPlayer.Player7Name, 'PartyPlayerPlayer7Name');

-    ThemeLoadButton(PartyPlayer.Player8Name, 'PartyPlayerPlayer8Name');

-

-    ThemeLoadButton(PartyPlayer.Team3Name, 'PartyPlayerTeam3Name');

-    ThemeLoadButton(PartyPlayer.Player9Name, 'PartyPlayerPlayer9Name');

-    ThemeLoadButton(PartyPlayer.Player10Name, 'PartyPlayerPlayer10Name');

-    ThemeLoadButton(PartyPlayer.Player11Name, 'PartyPlayerPlayer11Name');

-    ThemeLoadButton(PartyPlayer.Player12Name, 'PartyPlayerPlayer12Name');

-

-    {ThemeLoadButton(ButtonNext, 'PartyPlayerButtonNext');

-    ThemeLoadButton(ButtonPrev, 'PartyPlayerButtonPrev');}

-

-    //Playlist Translations

-    Playlist.CatText := Language.Translate('PLAYLIST_CATTEXT')

-  end;

-      

     ThemeIni.Free;

   end;

 end;