aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
authormogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-06 16:46:35 +0000
committermogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-05-06 16:46:35 +0000
commiteaa18fd6da15849eb20c06320c66d51191ffcdf9 (patch)
tree624b7644b4f9b1f6b5ce45dd14628eb596bbbfbf /Game/Code/Screens
parent6ec8f23c79ff9b4ff3c4a47167b237dc61f39738 (diff)
downloadusdx-eaa18fd6da15849eb20c06320c66d51191ffcdf9.tar.gz
usdx-eaa18fd6da15849eb20c06320c66d51191ffcdf9.tar.xz
usdx-eaa18fd6da15849eb20c06320c66d51191ffcdf9.zip
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
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenOptions.pas21
1 files changed, 17 insertions, 4 deletions
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