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/UScreenOpen.pas b/Game/Code/Screens/UScreenOpen.pas
index 5b35c39d..b069f3c8 100644
--- a/Game/Code/Screens/UScreenOpen.pas
+++ b/Game/Code/Screens/UScreenOpen.pas
@@ -20,7 +20,7 @@ type
       procedure AddBox(X, Y, W, H: real);

       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;

@@ -28,15 +28,15 @@ type
 implementation

 uses UGraphic, UDraw, UMain, USkins;

 

-function TScreenOpen.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;

+function TScreenOpen.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;

 begin

   Result := true;

   if (PressedDown) then begin // Key Down

-    case ScanCode of

-      ord('a')..ord('z'), ord('A')..ord('Z'), ord('0')..ord('9'), 32, ord('-'), ord('.'), ord(':'), ord('\'):

+    case CharCode of

+      'a'..'z', 'A'..'Z', '0'..'9', #32, '-', '.', ':', '\':

         begin

           if Interaction = 0 then begin

-            Text[TextN].Text := Text[TextN].Text + chr(ScanCode);

+            Text[TextN].Text := Text[TextN].Text + CharCode;

           end;

         end;

     end;