aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenTop5.pas
diff options
context:
space:
mode:
authoreddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-25 20:41:08 +0000
committereddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-25 20:41:08 +0000
commit7968b0878c1c13f61dddbacb603e00997af38f63 (patch)
tree601c94658ea0271a9f44d1a40284afd0d620031e /Game/Code/Screens/UScreenTop5.pas
parent2ab5632e101af18810c288ad670ed130202605ad (diff)
downloadusdx-7968b0878c1c13f61dddbacb603e00997af38f63.tar.gz
usdx-7968b0878c1c13f61dddbacb603e00997af38f63.tar.xz
usdx-7968b0878c1c13f61dddbacb603e00997af38f63.zip
Fixed compilation on the mac.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@972 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenTop5.pas16
1 files changed, 8 insertions, 8 deletions
diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas
index 8ebb056c..6893391c 100644
--- a/Game/Code/Screens/UScreenTop5.pas
+++ b/Game/Code/Screens/UScreenTop5.pas
@@ -38,15 +38,15 @@ begin
Result := true;
If (PressedDown) Then begin
// check normal keys
- case WideUpperCase(CharCode)[1] of
+ case WideCharUpperCase(CharCode)[1] of
'Q':
- begin
- Result := false;
- Exit;
- end;
- end;
-
- // check special keys
+ begin
+ Result := false;
+ Exit;
+ end;
+ end;
+
+ // check special keys
case PressedKey of
SDLK_ESCAPE,
SDLK_BACKSPACE,