From 872b21ad9e7c469c702c470543dcc4d0fbf749cf Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 28 Mar 2008 13:29:30 +0000
Subject: Some WideChar casts to let it compile in Delphi7 again.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@979 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenName.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Game/Code/Screens/UScreenName.pas')

diff --git a/Game/Code/Screens/UScreenName.pas b/Game/Code/Screens/UScreenName.pas
index 6d3e81b4..6a5ef4c5 100644
--- a/Game/Code/Screens/UScreenName.pas
+++ b/Game/Code/Screens/UScreenName.pas
@@ -36,7 +36,7 @@ begin
 
     // check normal keys
     if (IsAlphaNumericChar(CharCode) or
-        (CharCode in [' ','-','_','!',',','<','/','*','?','''','"'])) then
+        {(CharCode in [' ','-','_','!',',','<','/','*','?','''','"']))} IsPunctuationChar(CharCode)) then
     begin
       Button[Interaction].Text[0].Text := Button[Interaction].Text[0].Text + CharCode;
       Exit;
-- 
cgit v1.2.3