aboutsummaryrefslogtreecommitdiffstats
path: root/unicode/src/screens/UScreenStatDetail.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-01-12 16:55:45 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-01-12 16:55:45 +0000
commit2e66e4bb6719e92c53bcbf40c82bf5d7644719cb (patch)
tree1cbb718dc4aed6b47d6ee38820072994f415fca1 /unicode/src/screens/UScreenStatDetail.pas
parent589f7901a9ab5595dcf026ddee3fd93477f0b46a (diff)
downloadusdx-2e66e4bb6719e92c53bcbf40c82bf5d7644719cb.tar.gz
usdx-2e66e4bb6719e92c53bcbf40c82bf5d7644719cb.tar.xz
usdx-2e66e4bb6719e92c53bcbf40c82bf5d7644719cb.zip
CharCode parameter of ParseInput changed from WideChar to UCS4Char (as some chars might reguire two WideChar).
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1565 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--unicode/src/screens/UScreenStatDetail.pas8
1 files changed, 4 insertions, 4 deletions
diff --git a/unicode/src/screens/UScreenStatDetail.pas b/unicode/src/screens/UScreenStatDetail.pas
index ffc5152c..6241ee2e 100644
--- a/unicode/src/screens/UScreenStatDetail.pas
+++ b/unicode/src/screens/UScreenStatDetail.pas
@@ -56,7 +56,7 @@ type
constructor Create; override;
- function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override;
+ function ParseInput(PressedKey: Cardinal; CharCode: UCS4Char; PressedDown: Boolean): Boolean; override;
procedure onShow; override;
procedure SetAnimationProgress(Progress: real); override;
@@ -74,14 +74,14 @@ uses
ULog,
UUnicodeUtils;
-function TScreenStatDetail.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
+function TScreenStatDetail.ParseInput(PressedKey: Cardinal; CharCode: UCS4Char; PressedDown: Boolean): Boolean;
begin
Result := true;
If (PressedDown) Then
begin // Key Down
// check normal keys
- case WideStringUpperCase(CharCode)[1] of
- 'Q':
+ case UCS4UpperCase(CharCode) of
+ Ord('Q'):
begin
Result := false;
Exit;