aboutsummaryrefslogtreecommitdiffstats
path: root/src/menu/UMenuBackgroundTexture.pas
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-03-01 12:53:55 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-03-01 12:53:55 +0000
commitf57b5a260d4d98a910f62316efe653a1a7e704b7 (patch)
treefeaae6cb4f6e7ac1a11073a8a4370e8ffb189670 /src/menu/UMenuBackgroundTexture.pas
parentf96f2467acced6ac12e328c940a818edd74a718b (diff)
downloadusdx-f57b5a260d4d98a910f62316efe653a1a7e704b7.tar.gz
usdx-f57b5a260d4d98a910f62316efe653a1a7e704b7.tar.xz
usdx-f57b5a260d4d98a910f62316efe653a1a7e704b7.zip
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
Diffstat (limited to 'src/menu/UMenuBackgroundTexture.pas')
-rw-r--r--src/menu/UMenuBackgroundTexture.pas7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/menu/UMenuBackgroundTexture.pas b/src/menu/UMenuBackgroundTexture.pas
index e8678fc5..a1b9e88a 100644
--- a/src/menu/UMenuBackgroundTexture.pas
+++ b/src/menu/UMenuBackgroundTexture.pas
@@ -61,7 +61,8 @@ uses
UCommon,
SysUtils,
gl,
- glext;
+ glext,
+ UGraphic;
constructor TMenuBackgroundTexture.Create(const ThemedSettings: TThemeBackground);
var texFilename: string;
@@ -92,7 +93,9 @@ end;
procedure TMenuBackgroundTexture.Draw;
begin
- glClear(GL_DEPTH_BUFFER_BIT);
+ If (ScreenAct = 1) then //Clear just once when in dual screen mode
+ glClear(GL_DEPTH_BUFFER_BIT);
+
glColorRGB(Color);
glEnable(GL_TEXTURE_2D);