From 59aa6b3bdf03ee68d25e5b06d175866e7bcb5723 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 30 Apr 2008 13:39:02 +0000
Subject: Close a previously opened video before a new one is opened

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1044 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UVideo.pas | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Game')

diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index 17eb38d3..55f710f1 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -433,6 +433,10 @@ errnum {*i, x, y*}: Integer; // Auto Removed, Unused Variable (i) // Auto Remove
 begin
   Result := false;
 
+  // close previously opened video 
+  if (fVideoOpened) then
+    Close;
+
   fVideoOpened       := False;
   fVideoPaused       := False;
   VideoTimeBase      := 0;
-- 
cgit v1.2.3