aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--VideoPreview/src/screens/UScreenSong.pas5
1 files changed, 4 insertions, 1 deletions
diff --git a/VideoPreview/src/screens/UScreenSong.pas b/VideoPreview/src/screens/UScreenSong.pas
index c450dc5f..d7f309c7 100644
--- a/VideoPreview/src/screens/UScreenSong.pas
+++ b/VideoPreview/src/screens/UScreenSong.pas
@@ -1665,10 +1665,13 @@ begin
//We draw Buttons for our own
for I := 0 to Length(Button) - 1 do
begin
- if (I<>Interaction) or not Assigned(fCurrentVideo) or (VideoAlpha<1) then
+ if (I<>Interaction) or not Assigned(fCurrentVideo) or (VideoAlpha<1) or AudioPlayback.Finished then
Button[I].Draw;
end;
+ if AudioPlayback.Finished then
+ StopVideoPreview;
+
if Assigned(fCurrentVideo) then
begin
// Just call this once