diff options
| author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-28 13:29:30 +0000 |
|---|---|---|
| committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-28 13:29:30 +0000 |
| commit | 872b21ad9e7c469c702c470543dcc4d0fbf749cf (patch) | |
| tree | f1e59aacc99309ad650e853f9a2298b0cabd5567 /Game/Code/Screens/UScreenName.pas | |
| parent | 4f62f61e2137fcbde1a4b027bfa27baa61235a34 (diff) | |
| download | usdx-872b21ad9e7c469c702c470543dcc4d0fbf749cf.tar.gz usdx-872b21ad9e7c469c702c470543dcc4d0fbf749cf.tar.xz usdx-872b21ad9e7c469c702c470543dcc4d0fbf749cf.zip | |
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
Diffstat (limited to 'Game/Code/Screens/UScreenName.pas')
| -rw-r--r-- | Game/Code/Screens/UScreenName.pas | 2 |
1 files changed, 1 insertions, 1 deletions
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;
|