Added 2 new Buttons to ScreenMain: Multi and Stats

Updated Language Fiels to Fit with new Buttons
Some CodeClean Up in Menu Class and in Screens
Some minor Bug fixes I forgot about
Added ability to group Buttons within a Screen
New Theme Object:
  ButtonCollection:
    Same Attributes as a Button Plus
    FirstChild: Defining the First Button in the Group.
      For Example: SingSolo is 1, SingMulti Button is 2, in ScreenMain

Added Attribute to Theme Button:
  Parent: Number of the assigned Group, 0 for no Group

Used new Abilitys in MainScreen

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

1 files changed, 14 insertions, 14 deletions

diff --git a/Game/Code/Classes/UGraphic.pas b/Game/Code/Classes/UGraphic.pas
index df7cd411..39eea53d 100644
--- a/Game/Code/Classes/UGraphic.pas
+++ b/Game/Code/Classes/UGraphic.pas
@@ -375,7 +375,7 @@ end;
 

 procedure LoadScreens;

 begin

-  ScreenLoading := TScreenLoading.Create('');

+  ScreenLoading := TScreenLoading.Create;

   ScreenLoading.onShow;

   Display.ActualScreen := @ScreenLoading;

   ScreenLoading.Draw;

@@ -397,35 +397,35 @@ begin
   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Song Menu', 3); Log.BenchmarkStart(3);

   ScreenSing :=             TScreenSing.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Sing', 3); Log.BenchmarkStart(3);

-  ScreenScore :=            TScreenScore.Create('');

+  ScreenScore :=            TScreenScore.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Score', 3); Log.BenchmarkStart(3);

   ScreenTop5 :=             TScreenTop5.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Top5', 3); Log.BenchmarkStart(3);

-  ScreenOptions :=          TScreenOptions.Create('');

+  ScreenOptions :=          TScreenOptions.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options', 3); Log.BenchmarkStart(3);

-  ScreenOptionsGame :=      TScreenOptionsGame.Create('');

+  ScreenOptionsGame :=      TScreenOptionsGame.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Game', 3); Log.BenchmarkStart(3);

-  ScreenOptionsGraphics  :=  TScreenOptionsGraphics.Create('');

+  ScreenOptionsGraphics  :=  TScreenOptionsGraphics.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Graphics', 3); Log.BenchmarkStart(3);

-  ScreenOptionsSound    :=     TScreenOptionsSound.Create('');

+  ScreenOptionsSound    :=     TScreenOptionsSound.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Sound', 3); Log.BenchmarkStart(3);

-  ScreenOptionsLyrics   :=    TScreenOptionsLyrics.Create('');

+  ScreenOptionsLyrics   :=    TScreenOptionsLyrics.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Lyrics', 3); Log.BenchmarkStart(3);

-  ScreenOptionsThemes   :=    TScreenOptionsThemes.Create('');

+  ScreenOptionsThemes   :=    TScreenOptionsThemes.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Themes', 3); Log.BenchmarkStart(3);

   ScreenOptionsRecord   :=    TScreenOptionsRecord.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Record', 3); Log.BenchmarkStart(3);

-  ScreenOptionsAdvanced :=    TScreenOptionsAdvanced.Create('');

+  ScreenOptionsAdvanced :=    TScreenOptionsAdvanced.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Options Advanced', 3); Log.BenchmarkStart(3);

-  ScreenEditSub :=          TScreenEditSub.Create('');

+  ScreenEditSub :=          TScreenEditSub.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit Sub', 3); Log.BenchmarkStart(3);

-  ScreenEdit :=             TScreenEdit.Create('');

+  ScreenEdit :=             TScreenEdit.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit', 3); Log.BenchmarkStart(3);

-  ScreenEditConvert :=      TScreenEditConvert.Create('');

+  ScreenEditConvert :=      TScreenEditConvert.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen EditConvert', 3); Log.BenchmarkStart(3);

 //  ScreenEditHeader :=       TScreenEditHeader.Create(Skin.ScoreBG);

 //  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Edit Header', 3); Log.BenchmarkStart(3);

-  ScreenOpen :=             TScreenOpen.Create('');

+  ScreenOpen :=             TScreenOpen.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Open', 3); Log.BenchmarkStart(3);

   ScreenSingModi :=         TScreenSingModi.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Sing with Modi support', 3); Log.BenchmarkStart(3);

@@ -447,7 +447,7 @@ begin
   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Main', 3); Log.BenchmarkStart(3);

   ScreenStatDetail :=       TScreenStatDetail.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Stat Detail', 3); Log.BenchmarkStart(3);

-  ScreenCredits    :=       TScreenCredits.Create('');

+  ScreenCredits    :=       TScreenCredits.Create;

   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Credits', 3); Log.BenchmarkStart(3);

 

   end;