diff options
Diffstat (limited to 'unicode/src/screens/UScreenOptionsRecord.pas')
| -rw-r--r-- | unicode/src/screens/UScreenOptionsRecord.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/unicode/src/screens/UScreenOptionsRecord.pas b/unicode/src/screens/UScreenOptionsRecord.pas index b622f56c..144ae0cf 100644 --- a/unicode/src/screens/UScreenOptionsRecord.pas +++ b/unicode/src/screens/UScreenOptionsRecord.pas @@ -126,6 +126,7 @@ uses UFiles, UDisplay, UIni, + UUnicodeUtils, ULog; function TScreenOptionsRecord.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; @@ -134,7 +135,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; |