From c1814154c5dc76654aef640353693553a6a38381 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 13 Sep 2008 10:59:55 +0000
Subject: Unload background textures when leaving the sing-screen. Thanks to
 Hawkear for the patch.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1377 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSing.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'src/screens/UScreenSing.pas')

diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index 911d122e..e20a142d 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -79,7 +79,8 @@ type
     constructor Create; override;
     procedure onShow; override;
     procedure onShowFinish; override;
-
+    procedure onHide; override;
+    
     function ParseInput(PressedKey: cardinal; CharCode: widechar;
       PressedDown: boolean): boolean; override;
     function Draw: boolean; override;
@@ -612,6 +613,16 @@ begin
   CountSkipTimeSet;
 end;
 
+procedure TScreenSing.onHide;
+begin
+  // Unload background texture
+  if (Tex_Background.TexNum > 0) then
+  begin
+    glDeleteTextures(1, PGLuint(@Tex_Background.TexNum));
+    Tex_Background.TexNum := 0;
+  end;
+end;
+
 function TScreenSing.Draw: boolean;
 var
   Min:   integer;
-- 
cgit v1.2.3