aboutsummaryrefslogtreecommitdiffstats
path: root/VideoPreview/src/screens
diff options
context:
space:
mode:
authorbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-06-06 13:17:42 +0000
committerbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-06-06 13:17:42 +0000
commit2010a5089cd13eb84a0f3828b3770d61b94f067f (patch)
tree7f85499186be81f3851a74595b7442db4e465b64 /VideoPreview/src/screens
parent9aa7604420cba68314ee94f28c34b70fa5540d06 (diff)
downloadusdx-2010a5089cd13eb84a0f3828b3770d61b94f067f.tar.gz
usdx-2010a5089cd13eb84a0f3828b3770d61b94f067f.tar.xz
usdx-2010a5089cd13eb84a0f3828b3770d61b94f067f.zip
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
Diffstat (limited to 'VideoPreview/src/screens')
-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