From bda4fa8e57ca63a1d591433f120b4226d6a5d327 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 29 Apr 2007 17:50:29 +0000
Subject: 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
---
 Game/Code/Screens/UScreenOptions.pas | 91 ++++--------------------------------
 1 file changed, 9 insertions(+), 82 deletions(-)

(limited to 'Game/Code/Screens/UScreenOptions.pas')

diff --git a/Game/Code/Screens/UScreenOptions.pas b/Game/Code/Screens/UScreenOptions.pas
index 0fffedac..f0229d8c 100644
--- a/Game/Code/Screens/UScreenOptions.pas
+++ b/Game/Code/Screens/UScreenOptions.pas
@@ -9,7 +9,7 @@ type
   TScreenOptions = class(TMenu)
     public
       TextDescription:    integer;
-      constructor Create(Back: String); override;
+      constructor Create; override;
       function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
       procedure onShow; override;
       procedure InteractNext; override;
@@ -80,88 +80,23 @@ begin
             FadeTo(@ScreenMain);
           end;
         end;
-      SDLK_LEFT:
-      begin
-          {case SelInteraction of
-          0: InteractCustom(+2);
-          1: InteractCustom(-1);
-          2: InteractCustom(-1);
-          3: InteractCustom(+2);
-          4: InteractCustom(-1);
-          5: InteractCustom(-1);
-          end;}
-          InteractPrev;
-      end;
-      SDLK_RIGHT:
-      begin
-          {case SelInteraction of
-          0: InteractCustom(+1);
-          1: InteractCustom(+1);
-          2: InteractCustom(-2);
-          3: InteractCustom(+1);
-          4: InteractCustom(+1);
-          5: InteractCustom(-2);
-          end;}
-          InteractNext;
-      end;
-      SDLK_UP:
-      begin
-          InteractPrev;
-          {case SelInteraction of
-          0: InteractCustom(+3);
-          1: InteractCustom(+3);
-          2: InteractCustom(+3);
-          3: InteractCustom(-3);
-          4: InteractCustom(-3);
-          5: InteractCustom(-3);
-          end; }
-      end;
-      SDLK_DOWN:
-      begin
-          {case SelInteraction of
-          0: InteractCustom(+3);
-          1: InteractCustom(+3);
-          2: InteractCustom(+3);
-          3: InteractCustom(-3);
-          4: InteractCustom(-3);
-          5: InteractCustom(-3);
-          end;  }
-          InteractNext;
-      end;
+      SDLK_DOWN:    InteractInc;
+      SDLK_UP:      InteractDec;
+      SDLK_RIGHT:   InteractNext;
+      SDLK_LEFT:    InteractPrev;
     end;
   end;
 end;
 
-constructor TScreenOptions.Create(Back: String);
+constructor TScreenOptions.Create;
 var
   I:    integer;
 begin
-  inherited Create(Back);
+  inherited Create;
 
-  // Game
-{  AddButton(225, 100 + 0*60, 350, 50, Skin.Button, 'JPG', 'Transparent Range');
-  AddButtonText(11, 10, 'Game');}
-
-  // Graphics
-{  AddButton(225, 100 + 1*60, 350, 50, Skin.Button, 'JPG', 'Transparent Range');
-  AddButtonText(11, 10, 'Graphics');
-
-  // Sound
-  AddButton(225, 100 + 2*60, 350, 50, Skin.Button, 'JPG', 'Transparent Range');
-  AddButtonText(11, 10, 'Sound');
-
-  // Lyrics
-  AddButton(225, 100 + 3*60, 350, 50, Skin.Button, 'JPG', 'Transparent Range');
-  AddButtonText(11, 10, 'Lyrics');
-
-  // Themes
-  AddButton(225, 100 + 4*60, 350, 50, Skin.Button, 'JPG', 'Transparent Range');
-  AddButtonText(11, 10, 'Themes');
-
-  // Exit
-  AddButton(225, 100 + 6*60, 350, 50, Skin.Exit);}
+  TextDescription := AddText(Theme.Options.TextDescription);
 
-  AddBackground(Theme.Options.Background.Tex);
+  LoadFromTheme(Theme.Options);
 
   AddButton(Theme.Options.ButtonGame);
   if (Length(Button[0].Text)=0) then
@@ -195,14 +130,6 @@ begin
   if (Length(Button[7].Text)=0) then
     AddButtonText(14, 20, Theme.Options.Description[7]);
 
-  for I := 0 to High(Theme.Options.Static) do
-    AddStatic(Theme.Options.Static[I]);
-
-  for I := 0 to High(Theme.Options.Text) do
-    AddText(Theme.Options.Text[I]);
-
-  TextDescription := AddText(Theme.Options.TextDescription);
-
   Interaction := 0;
 end;
 
-- 
cgit v1.2.3