1 files changed, 7 insertions, 2 deletions
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.