aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenEditHeader.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-21 15:13:23 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-21 15:13:23 +0000
commitb08c9047b5cdd5628f45877c90149e3bedd57b89 (patch)
tree9a08f9ed604290801814b8c21327aab6f317263e /Game/Code/Screens/UScreenEditHeader.pas
parent35572be5588c92bff06d21791122175d05819374 (diff)
downloadusdx-b08c9047b5cdd5628f45877c90149e3bedd57b89.tar.gz
usdx-b08c9047b5cdd5628f45877c90149e3bedd57b89.tar.xz
usdx-b08c9047b5cdd5628f45877c90149e3bedd57b89.zip
ParseInput(... ScanCode: byte; ...) -> ParseInput(... CharCode: WideChar; ...)
See: http://trac2.assembla.com/usdx/ticket/35 git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@966 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenEditHeader.pas10
1 files changed, 5 insertions, 5 deletions
diff --git a/Game/Code/Screens/UScreenEditHeader.pas b/Game/Code/Screens/UScreenEditHeader.pas
index 19795e40..bb464039 100644
--- a/Game/Code/Screens/UScreenEditHeader.pas
+++ b/Game/Code/Screens/UScreenEditHeader.pas
@@ -43,7 +43,7 @@ type
constructor Create; override;
procedure onShow; override;
- function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
+ function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override;
{ function Draw: boolean; override;
procedure Finish;}
end;
@@ -52,7 +52,7 @@ implementation
uses UGraphic, UMusic, SysUtils, UFiles, USkins;
-function TScreenEditHeader.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
+function TScreenEditHeader.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
var
T: integer;
begin
@@ -122,12 +122,12 @@ begin
end;
end;
- case ScanCode of
- 32..255:
+ case CharCode of
+ #32..#255:
begin
if (Interaction >= 2) and (Interaction <= 13) then begin
Text[Interaction - 2 + TextTitle].Text :=
- Text[Interaction - 2 + TextTitle].Text + chr(ScanCode);
+ Text[Interaction - 2 + TextTitle].Text + CharCode;
SetRoundButtons;
end;
end;