diff options
Diffstat (limited to 'unicode/src/screens/UScreenMain.pas')
-rw-r--r-- | unicode/src/screens/UScreenMain.pas | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/unicode/src/screens/UScreenMain.pas b/unicode/src/screens/UScreenMain.pas index 2a2d0613..ed8e2170 100644 --- a/unicode/src/screens/UScreenMain.pas +++ b/unicode/src/screens/UScreenMain.pas @@ -72,7 +72,8 @@ uses UParty, UDLLManager, UScreenCredits, - USkins; + USkins, + UUnicodeUtils; function TScreenMain.ParseInput(PressedKey: cardinal; CharCode: widechar; PressedDown: boolean): boolean; @@ -87,7 +88,7 @@ begin if (PressedDown) then begin // Key Down // check normal keys - case WideCharUpperCase(CharCode)[1] of + case WideStringUpperCase(CharCode)[1] of 'Q': begin Result := False; |