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, 4 insertions, 12 deletions

diff --git a/Game/Code/Screens/UScreenLoading.pas b/Game/Code/Screens/UScreenLoading.pas
index 5cc938bb..438b606e 100644
--- a/Game/Code/Screens/UScreenLoading.pas
+++ b/Game/Code/Screens/UScreenLoading.pas
@@ -9,7 +9,7 @@ type
   TScreenLoading = class(TMenu)

     public

       Fadeout:      boolean;

-      constructor Create(Back: String); override;

+      constructor Create; override;

       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;

       function GetBGTexNum: GLUInt;

       procedure onShow; override;

@@ -24,19 +24,11 @@ begin
   Result := true;

 end;

 

-constructor TScreenLoading.Create(Back: String);

-var

-  I:    integer;

+constructor TScreenLoading.Create;

 begin

-  inherited Create(Back);

+  inherited Create;

 

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

-

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

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

-

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

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

+  LoadFromTheme(Theme.Loading);

 

   Fadeout := false;

 end;