aboutsummaryrefslogtreecommitdiffstats
path: root/src/screens/UScreenSing.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/screens/UScreenSing.pas13
1 files changed, 12 insertions, 1 deletions
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;