From f0d4a99b65e3124a690763fc9875e73ae2226b2a Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 9 Jun 2010 16:44:10 +0000
Subject: - close video on hide - added start/stop video to ChangeMusic

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2469 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 VideoPreview/src/screens/UScreenSong.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'VideoPreview/src/screens/UScreenSong.pas')

diff --git a/VideoPreview/src/screens/UScreenSong.pas b/VideoPreview/src/screens/UScreenSong.pas
index 1171eaa9..764a0d47 100644
--- a/VideoPreview/src/screens/UScreenSong.pas
+++ b/VideoPreview/src/screens/UScreenSong.pas
@@ -1574,6 +1574,7 @@ begin
 
   // stop preview
   StopMusicPreview();
+  StopVideoPreview();
 end;
 
 procedure TScreenSong.DrawExtensions;
@@ -1887,8 +1888,10 @@ end;
 procedure TScreenSong.ChangeMusic;
 begin
   StopMusicPreview();
+  StopVideoPreview();
   PreviewOpened := -1;
   StartMusicPreview();
+  StartVideoPreview();
 end;
 
 procedure TScreenSong.SkipTo(Target: cardinal);
-- 
cgit v1.2.3