diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-22 11:58:28 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-22 11:58:28 +0000 |
| commit | dbeaec3a0e5a50c84b70b28ae00a368a3e6e98e9 (patch) | |
| tree | bb3633e752ea30874f704be70ec82354d70faf1e /Game/Code/Screens/UScreenEdit.pas | |
| parent | a7659bea0fcdec8d1b34955f9c56b066ff27a3cb (diff) | |
| download | usdx-dbeaec3a0e5a50c84b70b28ae00a368a3e6e98e9.tar.gz usdx-dbeaec3a0e5a50c84b70b28ae00a368a3e6e98e9.tar.xz usdx-dbeaec3a0e5a50c84b70b28ae00a368a3e6e98e9.zip | |
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
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Screens/UScreenEdit.pas | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/Game/Code/Screens/UScreenEdit.pas b/Game/Code/Screens/UScreenEdit.pas index 407a37d0..4d105e5f 100644 --- a/Game/Code/Screens/UScreenEdit.pas +++ b/Game/Code/Screens/UScreenEdit.pas @@ -22,19 +22,24 @@ type implementation
-uses UGraphic, UMusic, USkins;
+uses UGraphic, UMusic, USkins, SysUtils;
function TScreenEdit.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
begin
Result := true;
If (PressedDown) Then
begin // Key Down
- case PressedKey of
- SDLK_Q:
+ // check normal keys
+ case WideUpperCase(CharCode)[1] of
+ 'Q': begin
Result := false;
+ Exit;
end;
-
+ end;
+
+ // check special keys
+ case PressedKey of
SDLK_ESCAPE,
SDLK_BACKSPACE :
begin
|