- 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, 2 insertions, 21 deletions

diff --git a/Game/Code/Menu/UMenuButton.pas b/Game/Code/Menu/UMenuButton.pas
index 03085478..b91bfd15 100644
--- a/Game/Code/Menu/UMenuButton.pas
+++ b/Game/Code/Menu/UMenuButton.pas
@@ -83,34 +83,14 @@ implementation
 uses UDrawTexture, SysUtils, windows;

 

 procedure TButton.SetX(Value: real);

-var

-  dx:   real;

-  T:    integer;    // text

 begin

-  {dY := Value - Texture.y;

-

-  Texture.X := Value;

-

-  for T := 0 to High(Text) do

-    Text[T].X := Text[T].X + dY;}

-

   PosX := Value;

   if (FadeTex.TexNum = -1) then

     Texture.X := Value;

-

 end;

 

 procedure TButton.SetY(Value: real);

-var

-  dY:   real;

-  T:    integer;    // text

 begin

-  {dY := Value - PosY;

-

-

-  for T := 0 to High(Text) do

-    Text[T].Y := Text[T].Y + dY;}

-    

   PosY := Value;

   if (FadeTex.TexNum = -1) then

     Texture.y := Value;

@@ -267,6 +247,7 @@ var
   Tick: Cardinal;

   Spacing: Real;

 begin

+  T := 0;

   if Visible then begin

     //Fade Mod

     if Fade then

@@ -485,4 +466,4 @@ begin
 end;

 

 

-end.

+end.
\ No newline at end of file