From 2010a5089cd13eb84a0f3828b3770d61b94f067f Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Sun, 6 Jun 2010 13:17:42 +0000 Subject: stop drawing video texture and close video after audio playback finished git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2452 b956fd51-792f-4845-bead-9b4dfca2ff2c --- VideoPreview/src/screens/UScreenSong.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'VideoPreview') 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 -- cgit v1.2.3