- new SDL.dll (with a quick and dirty workaround for the hanging-mouse problem)

- changing of sorting and folder-option (on/off) does not need any restart now
- a lot of code clean up
- some bugfixes... i hope... dont't know which...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2316 b956fd51-792f-4845-bead-9b4dfca2ff2c

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