From eaa18fd6da15849eb20c06320c66d51191ffcdf9 Mon Sep 17 00:00:00 2001
From: mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 6 May 2008 16:46:35 +0000
Subject: Option screen has two rows of buttons, to select the row beneath
 press [cursor down] / [cursor up] for the row above Settings are not saved if
 you press [escape] (just for the "main" option screen atm) Long descriptions
 are used to explain what hides behind a option screen

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1063 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenOptions.pas | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

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

diff --git a/Game/Code/Screens/UScreenOptions.pas b/Game/Code/Screens/UScreenOptions.pas
index 3f936602..24633115 100644
--- a/Game/Code/Screens/UScreenOptions.pas
+++ b/Game/Code/Screens/UScreenOptions.pas
@@ -16,6 +16,8 @@ type
       procedure onShow; override;
       procedure InteractNext; override;
       procedure InteractPrev; override;
+      procedure InteractNextRow; override;
+      procedure InteractPrevRow; override;
       procedure SetAnimationProgress(Progress: real); override;
   end;
 
@@ -36,13 +38,13 @@ begin
           Exit;
         end;
     end;
-    
+
     // check special keys
     case PressedKey of
       SDLK_ESCAPE,
       SDLK_BACKSPACE :
         begin
-          Ini.Save;
+//          Ini.Save;
           AudioPlayback.PlaySound(SoundLib.Back);
           FadeTo(@ScreenMain);
         end;
@@ -97,8 +99,8 @@ begin
             FadeTo(@ScreenMain);
           end;
         end;
-      SDLK_DOWN:    InteractInc;
-      SDLK_UP:      InteractDec;
+      SDLK_DOWN:    InteractNextRow;
+      SDLK_UP:      InteractPrevRow;
       SDLK_RIGHT:   InteractNext;
       SDLK_LEFT:    InteractPrev;
     end;
@@ -167,6 +169,17 @@ begin
   Text[TextDescription].Text := Theme.Options.Description[Interaction];
 end;
 
+procedure TScreenOptions.InteractNextRow;
+begin
+  inherited InteractNextRow;
+  Text[TextDescription].Text := Theme.Options.Description[Interaction];
+end;
+
+procedure TScreenOptions.InteractPrevRow;
+begin
+  inherited InteractPrevRow;
+  Text[TextDescription].Text := Theme.Options.Description[Interaction];
+end;
 
 procedure TScreenOptions.SetAnimationProgress(Progress: real);
 begin
-- 
cgit v1.2.3