Support for non-US (QWERTY) keyboard layout.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@970 b956fd51-792f-4845-bead-9b4dfca2ff2c

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