aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenOptions.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-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