move the order of reloading texture to workaround buggy drivers
authorkoda
Tue, 15 Nov 2011 02:02:08 +0100
changeset 6382 0e76c5cd4250
parent 6381 5f3412f6809e
child 6383 c34a8b98d78c
move the order of reloading texture to workaround buggy drivers
hedgewars/uCaptions.pas
hedgewars/uLandTexture.pas
hedgewars/uStore.pas
--- a/hedgewars/uCaptions.pas	Mon Nov 14 18:28:05 2011 -0500
+++ b/hedgewars/uCaptions.pas	Tue Nov 15 02:02:08 2011 +0100
@@ -63,6 +63,7 @@
         Captions[Group].EndTime:= RealTicks + 1400 + LongWord(Captions[Group].Tex^.w) * 3;
     end;
 end;
+
 // For uStore texture recreation
 procedure ReloadCaptions;
 var Group: TCapGroup;
--- a/hedgewars/uLandTexture.pas	Mon Nov 14 18:28:05 2011 -0500
+++ b/hedgewars/uLandTexture.pas	Tue Nov 15 02:02:08 2011 +0100
@@ -139,7 +139,7 @@
 procedure ResetLand;
 var x, y: LongInt;
 begin
-    for x:= 0 to LANDTEXARW -1 do
+    for x:= 0 to LANDTEXARW - 1 do
         for y:= 0 to LANDTEXARH - 1 do
             with LandTextures[x, y] do
                 begin
--- a/hedgewars/uStore.pas	Mon Nov 14 18:28:05 2011 -0500
+++ b/hedgewars/uStore.pas	Tue Nov 15 02:02:08 2011 +0100
@@ -1034,13 +1034,12 @@
         else glClearColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255, 0.99);
 
         StoreRelease(true);
+        ReloadCaptions;
+        ReloadLines;
         StoreLoad(true);
 
         ResetLand;
-        ReloadCaptions;
-        ReloadLines;
-
-        UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT)
+        UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
         end;
 end;