aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenOptionsAdvanced.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Screens/UScreenOptionsAdvanced.pas')
-rw-r--r--Game/Code/Screens/UScreenOptionsAdvanced.pas17
1 files changed, 11 insertions, 6 deletions
diff --git a/Game/Code/Screens/UScreenOptionsAdvanced.pas b/Game/Code/Screens/UScreenOptionsAdvanced.pas
index a09a5354..c23f133c 100644
--- a/Game/Code/Screens/UScreenOptionsAdvanced.pas
+++ b/Game/Code/Screens/UScreenOptionsAdvanced.pas
@@ -17,19 +17,24 @@ type
implementation
-uses UGraphic;
+uses UGraphic, SysUtils;
function TScreenOptionsAdvanced.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
begin
Result := true;
If (PressedDown) Then
begin // Key Down
+ // check normal keys
+ case WideUpperCase(CharCode)[1] of
+ 'Q':
+ begin
+ Result := false;
+ Exit;
+ end;
+ end;
+
+ // check special keys
case PressedKey of
- SDLK_Q:
- begin
- Result := false;
- end;
-
SDLK_ESCAPE,
SDLK_BACKSPACE :
begin