diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-09 18:38:23 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-03-09 18:38:23 +0000 |
commit | 417b8200e765f849e836667d717c4af6e15fcbf6 (patch) | |
tree | a40a295641b9f4572d3f0cccd215cb08c1ff202a /Game/Code/Screens/UScreenPartyPlayer.pas | |
parent | ceda196bb89e55fc4163c932e92803c16916060b (diff) | |
download | usdx-417b8200e765f849e836667d717c4af6e15fcbf6.tar.gz usdx-417b8200e765f849e836667d717c4af6e15fcbf6.tar.xz usdx-417b8200e765f849e836667d717c4af6e15fcbf6.zip |
Fixed some warnings ("missing result-values", "0 instead of nil", "comparison is always true", "range check errors")
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@943 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens/UScreenPartyPlayer.pas')
-rw-r--r-- | Game/Code/Screens/UScreenPartyPlayer.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Game/Code/Screens/UScreenPartyPlayer.pas b/Game/Code/Screens/UScreenPartyPlayer.pas index d46fb2b6..8897de0a 100644 --- a/Game/Code/Screens/UScreenPartyPlayer.pas +++ b/Game/Code/Screens/UScreenPartyPlayer.pas @@ -56,10 +56,12 @@ var end;
begin
Result := true;
- If (PressedDown) Then
+ if (PressedDown) then
SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
- + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT);
+ + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT)
+ else
+ SDL_ModState := 0;
begin // Key Down
case PressedKey of
|