- 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, 4 insertions, 8 deletions

diff --git a/Game/Code/Menu/UMenuSelectSlide.pas b/Game/Code/Menu/UMenuSelectSlide.pas
index b5d68aff..712e23cc 100644
--- a/Game/Code/Menu/UMenuSelectSlide.pas
+++ b/Game/Code/Menu/UMenuSelectSlide.pas
@@ -117,9 +117,6 @@ begin
 end;

 

 procedure TSelectSlide.SetSelect(Value: boolean);

-var

-  SO:     integer;

-  I:      integer;

 begin

   SelectBool := Value;

   if Value then begin

@@ -173,11 +170,10 @@ end;
 procedure TSelectSlide.SetSelectOpt(Value: integer);

 var

   SO:     integer;

-  Sel:    integer;

   HalfL:  integer;

   HalfR:  integer;

 

-procedure DoSelection(Sel: Cardinal);

+procedure DoSelection(Sel: Integer);

     var I: Integer;

   begin

     for I := low(TextOpt) to high(TextOpt) do

@@ -205,7 +201,7 @@ begin
 

     if (Value <= 0) then

     begin //First Option Selected

-      Value := 0;

+      //Value := 0;

 

       for SO := low (TextOpt) to high(TextOpt) do

       begin

@@ -216,7 +212,7 @@ begin
     end

     else if (Value >= high(TextOptT)) then

     begin //Last Option Selected

-    Value := high(TextOptT);

+      //Value := high(TextOptT);

 

       for SO := high(TextOpt) downto low (TextOpt) do

       begin

@@ -342,4 +338,4 @@ begin
     end;

 end;

 

-end.

+end.
\ No newline at end of file