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, 9 insertions, 17 deletions

diff --git a/Game/Code/Screens/UScreenStatDetail.pas b/Game/Code/Screens/UScreenStatDetail.pas
index dc4a0f1f..1461a9da 100644
--- a/Game/Code/Screens/UScreenStatDetail.pas
+++ b/Game/Code/Screens/UScreenStatDetail.pas
@@ -102,7 +102,15 @@ var
 begin

   inherited Create;

 

-  AddBackground(Theme.StatDetail.Background.Tex);

+  for I := 0 to High(Theme.StatDetail.TextList) do

+    AddText(Theme.StatDetail.TextList[I]);

+

+  Count := Length(Theme.StatDetail.TextList);

+

+  AddText(Theme.StatDetail.TextDescription);

+  AddText(Theme.StatDetail.TextPage);

+

+  LoadFromTheme(Theme.StatDetail);

 

   AddButton(Theme.StatDetail.ButtonNext);

   if (Length(Button[0].Text)=0) then

@@ -120,22 +128,6 @@ begin
   if (Length(Button[3].Text)=0) then

     AddButtonText(14, 20, Theme.Options.Description[7]);

 

-  for I := 0 to High(Theme.StatDetail.TextList) do

-    AddText(Theme.StatDetail.TextList[I]);

-

-  Count := Length(Theme.StatDetail.TextList);

-

-  AddText(Theme.StatDetail.TextDescription);

-  AddText(Theme.StatDetail.TextPage);

-

-  for I := 0 to High(Theme.StatDetail.Static) do

-    AddStatic(Theme.StatDetail.Static[I]);

-

-  for I := 0 to High(Theme.StatDetail.Text) do

-    AddText(Theme.StatDetail.Text[I]);

-

-

-

   Interaction := 0;

   Typ := 0;

 end;