Remove unused variables and fix warnings with ifdefed variables. Thanks to rudi_s.

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

5 files changed, 13 insertions, 11 deletions

diff --git a/src/screens/UScreenEditSub.pas b/src/screens/UScreenEditSub.pas
index fb3f04ce..b2b29860 100644
--- a/src/screens/UScreenEditSub.pas
+++ b/src/screens/UScreenEditSub.pas
@@ -83,13 +83,15 @@ type
 
       {$IFDEF UseMIDIPort}
       MidiOut:          TMidiOutput;
-      {$endif}
+      {$ENDIF}
 
       MidiStart:        real;
       MidiStop:         real;
       MidiTime:         real;
       MidiPos:          real;
+			{$IFDEF UseMIDIPort}
       MidiLastNote:     integer;
+      {$ENDIF}
 
       TextEditMode:     boolean;
       editText:         UTF8String; //backup of current text in text-edit-mode
@@ -1428,8 +1430,8 @@ var
   pos:                real;
   br:                 real;
 
-  line, note:         integer;
-  numLines, numNotes: integer;
+  line:               integer;
+  numLines:           integer;
 
 begin
   numLines := Length(Lines[0].Line);
diff --git a/src/screens/UScreenPartyOptions.pas b/src/screens/UScreenPartyOptions.pas
index f63b37fb..768947bf 100644
--- a/src/screens/UScreenPartyOptions.pas
+++ b/src/screens/UScreenPartyOptions.pas
@@ -48,7 +48,6 @@ type
       SelectLevel:     cardinal;
       SelectPlayList:  cardinal;
       SelectPlayList2: cardinal;
-      SelectRounds:    cardinal;
 
       IPlaylist: array[0..2] of UTF8String;
       IPlaylist2: array of UTF8String;
diff --git a/src/screens/UScreenPartyPlayer.pas b/src/screens/UScreenPartyPlayer.pas
index a7f4d627..0e1bcf5c 100644
--- a/src/screens/UScreenPartyPlayer.pas
+++ b/src/screens/UScreenPartyPlayer.pas
@@ -439,11 +439,16 @@ begin
 end;
 
 procedure TScreenPartyPlayer.SetAnimationProgress(Progress: real);
+{
 var
   I:    integer;
+}
 begin
-  {for I := 0 to high(Button) do
-    Button[I].Texture.ScaleW := Progress;   }
+{
+  for I := 0 to high(Button) do
+    Button[I].Texture.ScaleW := Progress;
+}
 end;
 
+
 end.
diff --git a/src/screens/UScreenScore.pas b/src/screens/UScreenScore.pas
index 82b73ea2..4fdaf0f1 100644
--- a/src/screens/UScreenScore.pas
+++ b/src/screens/UScreenScore.pas
@@ -159,9 +159,6 @@ type
 
       { statics with players ids }
       StaticPlayerIdBox:    array[1..6] of integer;
-      TexturePlayerIdBox:   array[1..6] of TTexture;
-
-      Animation:            real;
 
       TextScore_ActualValue:  array[1..6] of integer;
       TextPhrase_ActualValue: array[1..6] of integer;
diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index e69e3f56..50d2d6dd 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -84,7 +84,7 @@ type
     fMusicSync:         TMusicSyncSource;
     fTimebarMode:       TTimebarMode;
 
-    StartNote, EndNote: TPos;
+    StartNote: TPos;
 
     procedure LoadNextSong();
     procedure UpdateMedleyStats(medley_end: boolean);
@@ -983,7 +983,6 @@ var
   DisplayPrefix:         string;
   DisplayMin:            integer;
   DisplaySec:            integer;
-  T:                     integer;
   CurLyricsTime:         real;
   TotalTime:             real;
   VideoFrameTime:        extended;