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

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;