From 00a4cc524dc2d60c95970def337155b7b57fb4ce Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 9 May 2007 17:44:12 +0000
Subject: Fixed a bug in UScreenSong that causes a little gap between lyrics
 and Singing in UScreenSing

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@185 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSong.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Game/Code')

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 3f733210..114c52a3 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -1220,7 +1220,8 @@ end;
 procedure TScreenSong.onHide;
 begin
   //When hide then Stop Music (For Party Mode Popup on Exit)
-  Music.Stop;
+  if (Display.NextScreen <> @ScreenSing) and (Display.NextScreen <> @ScreenSingModi) then
+    Music.Stop;
 end;
 
 procedure TScreenSong.DrawExtensions;
@@ -1650,7 +1651,7 @@ end;
 procedure TScreenSong.StartSong;
 begin
   CatSongs.Selected := Interaction;
-  //Music.Stop;
+  Music.Stop;
   //Party Mode
   if (Mode = 1) then
   begin
-- 
cgit v1.2.3