aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-28 13:29:30 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-28 13:29:30 +0000
commit872b21ad9e7c469c702c470543dcc4d0fbf749cf (patch)
treef1e59aacc99309ad650e853f9a2298b0cabd5567 /Game/Code/Screens
parent4f62f61e2137fcbde1a4b027bfa27baa61235a34 (diff)
downloadusdx-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')
-rw-r--r--Game/Code/Screens/UScreenName.pas2
-rw-r--r--Game/Code/Screens/UScreenSong.pas2
2 files changed, 2 insertions, 2 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;
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 7bc08148..aab4dd2a 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -256,7 +256,7 @@ begin
//Jump to Artist/Titel
if ((SDL_ModState and KMOD_LALT <> 0) AND (Mode = smNormal)) then
begin
- if (WideCharUpperCase(CharCode)[1] in ['A'..'Z']) then
+ if (WideCharUpperCase(CharCode)[1] in ([WideChar('A')..WideChar('Z')]) ) then
begin
Letter := WideCharUpperCase(CharCode)[1];
I2 := Length(CatSongs.Song);