aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Game/Code/Screens/UScreenSong.pas14
1 files changed, 7 insertions, 7 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index aab46786..011e4b26 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -2289,7 +2289,7 @@ begin
if (Display.NextScreen <> @ScreenSong) and (Display.NextScreen <> @ScreenSing) and
(Display.NextScreen <> @ScreenSingModi) and (Display.NextScreen <> @ScreenEditSub) and
(Music <> nil) then
- Music.Stop;
+ Music.Close;
end;
procedure TScreenSong.DrawExtensions;
@@ -2873,7 +2873,7 @@ end;
procedure TScreenSong.ChangeMusic;
begin
//When Music Preview is avtivated -> then Change Music
- if (Ini.PreviewVolume >= 0) then
+ if (Ini.PreviewVolume >= 0) and not FadeOut then
begin
if (NOT CatSongs.Song[Interaction].Main) AND(CatSongs.VisibleSongs > 0) then
begin
@@ -2892,7 +2892,7 @@ end;
procedure TScreenSong.StartPreview;
begin
- if (Ini.PreviewVolume >= 0) and not isScrolling and not Music.isOpen then
+ if (Ini.PreviewVolume >= 0) and not isScrolling and not Music.isOpen and not FadeOut then
begin
if Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3) then
begin
@@ -2922,7 +2922,7 @@ end;
procedure TScreenSong.StartVideoPreview;
begin
- if (Ini.PreviewVolume >= 0) and (Ini.MovieSize < 3) then
+ if (Ini.PreviewVolume >= 0) and (Ini.MovieSize < 3) and not FadeOut then
begin
if (NOT CatSongs.Song[Interaction].Main) AND (CatSongs.VisibleSongs > 0) then
begin
@@ -3626,7 +3626,7 @@ begin
WaitHandler.changed := false;
CatSongs.Selected := Interaction;
if (Music.isOpen) then
- Music.Stop;
+ Music.Close;
//Party Mode
if (Mode = smParty) or (Mode = smChallenge) then
begin
@@ -3643,7 +3643,7 @@ end;
procedure TScreenSong.SelectPlayers;
begin
CatSongs.Selected := Interaction;
- Music.Stop;
+ Music.Close;
acClose;
VidVis := none;
ScreenName.Goto_SingScreen := True;
@@ -3655,7 +3655,7 @@ procedure TScreenSong.OpenEditor;
begin
if (Length(Songs.Song) > 0) and (not CatSongs.Song[Interaction].Main) AND (Mode = smNormal) then
begin
- Music.Stop;
+ Music.Close;
acClose;
VidVis := none;
Music.PlayStart;