From f57b5a260d4d98a910f62316efe653a1a7e704b7 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 1 Mar 2009 12:53:55 +0000
Subject: fixed first screen was cleared when second screen was drawn. #76
 should be fixed now commented some weird stuff in TScreenSing.Draw

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1613 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/menu/UMenuBackgroundColor.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/menu/UMenuBackgroundColor.pas')

diff --git a/src/menu/UMenuBackgroundColor.pas b/src/menu/UMenuBackgroundColor.pas
index 68cf2de4..a5c2a70a 100644
--- a/src/menu/UMenuBackgroundColor.pas
+++ b/src/menu/UMenuBackgroundColor.pas
@@ -52,7 +52,8 @@ type
 implementation
 uses
   gl,
-  glext;
+  glext,
+  UGraphic;
 
 constructor TMenuBackgroundColor.Create(const ThemedSettings: TThemeBackground);
 begin
@@ -62,8 +63,11 @@ end;
 
 procedure   TMenuBackgroundColor.Draw;
 begin
+  if (ScreenAct = 1) then
+  begin //just clear once, even when using two screens
    glClearColor(Color.R, Color.G, Color.B, 0);
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
+  end;
 end;
 
 end.
\ No newline at end of file
-- 
cgit v1.2.3