some compiler warnings/hints removed

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1485 b956fd51-792f-4845-bead-9b4dfca2ff2c

3 files changed, 3 insertions, 4 deletions

diff --git a/src/menu/UMenuBackground.pas b/src/menu/UMenuBackground.pas
index 6a73b621..c85f0806 100644
--- a/src/menu/UMenuBackground.pas
+++ b/src/menu/UMenuBackground.pas
@@ -49,7 +49,7 @@ type
     procedure   OnShow; virtual;

     procedure   Draw; virtual;

     procedure   OnFinish; virtual;

-    destructor  Destroy; virtual;

+    destructor  Destroy; override;

   end;

   cMenuBackground = class of TMenuBackground;

 

diff --git a/src/menu/UMenuSelectSlide.pas b/src/menu/UMenuSelectSlide.pas
index d04b20d0..1a0fa725 100644
--- a/src/menu/UMenuSelectSlide.pas
+++ b/src/menu/UMenuSelectSlide.pas
@@ -209,7 +209,6 @@ end;
 procedure TSelectSlide.SetSelectOpt(Value: integer);
 var
   SO:     integer;
-  Sel:    integer;
   HalfL:  integer;
   HalfR:  integer;
 
@@ -252,7 +251,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
diff --git a/src/menu/UMenuText.pas b/src/menu/UMenuText.pas
index 5c41eba5..3fc60384 100644
--- a/src/menu/UMenuText.pas
+++ b/src/menu/UMenuText.pas
@@ -111,7 +111,7 @@ var
 
   function GetNextPos: boolean;
   var
-    T1, T2, T3: Cardinal;
+    T1, {T2,} T3: Cardinal;
   begin
     LastPos := NextPos;