From fb174160559b9823a932fc238b55eb44619c47e8 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 22 Nov 2014 23:21:19 +0000
Subject: 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
---
 src/screens/UScreenPartyPlayer.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/screens/UScreenPartyPlayer.pas')

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.
-- 
cgit v1.2.3