aboutsummaryrefslogtreecommitdiffstats
path: root/src/screens/UScreenSing.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/screens/UScreenSing.pas')
-rw-r--r--src/screens/UScreenSing.pas5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index bf3db3af..38c4762d 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -210,10 +210,13 @@ begin
// show visualization
Ord('V'):
begin
- if (fShowVisualization = false) and (fShowBackground = true) and (Ini.VideoEnabled = 1) and CurrentSong.Video.IsSet() then //only Background should be visible currently, switch to video
+ if ((fShowBackground = true) and (Ini.VideoEnabled = 1) and CurrentSong.Video.IsSet())
+ or (fShowVisualization and not CurrentSong.Background.IsSet()) then //switch to video
begin
Log.LogStatus('decided to switch to video', 'UScreenSing.ParseInput');
fShowBackground := false;
+ fCurrentVideo := nil;
+ fShowVisualization := false;
fCurrentVideo := fVideoClip;
Log.LogStatus('finished switching to video', 'UScreenSing.ParseInput');
end