diff options
Diffstat (limited to 'Game/Code/Screens/UScreenLevel.pas')
-rw-r--r-- | Game/Code/Screens/UScreenLevel.pas | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Game/Code/Screens/UScreenLevel.pas b/Game/Code/Screens/UScreenLevel.pas index 856e0cf1..145a3b2a 100644 --- a/Game/Code/Screens/UScreenLevel.pas +++ b/Game/Code/Screens/UScreenLevel.pas @@ -22,12 +22,12 @@ implementation uses UGraphic, UMain, UIni, UTexture, ULog;
function TScreenLevel.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;
-var
- SDL_ModState: Word;
+{var
+ SDL_ModState: Word; }
begin
Result := true;
- SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
- + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT {+ KMOD_CAPS});
+ //SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
+ // + KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT {+ KMOD_CAPS});
If (PressedDown) Then
begin // Key Down
@@ -71,8 +71,6 @@ begin end;
constructor TScreenLevel.Create;
-var
- I: integer;
begin
inherited Create;
@@ -101,4 +99,4 @@ begin Button[2].Texture.ScaleW := Progress;
end;
-end.
+end.
\ No newline at end of file |