diff options
Diffstat (limited to 'Game/Code/Screens/UScreenOptionsAdvanced.pas')
-rw-r--r-- | Game/Code/Screens/UScreenOptionsAdvanced.pas | 17 |
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 |