From 247cbdca4eb8af228fa1753f1185e85077b5befa Mon Sep 17 00:00:00 2001
From: b1indy <b1indy@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 7 Sep 2007 21:09:02 +0000
Subject: UScreenSing.pas, UScreenSingModi.pas: removed Uffmpeg and USmpeg,
 added UVideo UGraphic.pas: prepared for possible loading animation
 UGraphicClasses.pas, ULCD.pas, ULight.pas, UMain.pas, USkins.pas,
 UDisplay.pas, UMenuButton.pas, UMenuSelect.pas, UMenuSelectSlide.pas,
 UMenuStatic.pas, UScreenCredits.pas, UScreenEditSub.pas, UScreenOpen.pas,
 UScreenPopup.pas: some fixes to get rid of some compiler infos/warnings

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@374 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UMenuButton.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Game/Code/Menu/UMenuButton.pas')

diff --git a/Game/Code/Menu/UMenuButton.pas b/Game/Code/Menu/UMenuButton.pas
index cb343cf8..f3b00830 100644
--- a/Game/Code/Menu/UMenuButton.pas
+++ b/Game/Code/Menu/UMenuButton.pas
@@ -87,9 +87,9 @@ implementation
 uses UDrawTexture, SysUtils, windows;
 
 procedure TButton.SetX(Value: real);
-var
+{var
   dx:   real;
-  T:    integer;    // text
+  T:    integer;    // text}
 begin
   {dY := Value - Texture.y;
 
@@ -105,9 +105,9 @@ begin
 end;
 
 procedure TButton.SetY(Value: real);
-var
+{var
   dY:   real;
-  T:    integer;    // text
+  T:    integer;    // text}
 begin
   {dY := Value - PosY;
 
@@ -276,6 +276,7 @@ var
 begin
   if Visible then begin
     //Fade Mod
+    T:=0;
     if Fade then
     begin
       if (FadeProgress < 1) and (FadeProgress > 0) then
-- 
cgit v1.2.3