redraw ownertex to fix tinting issue
authornemo
Sat, 21 Dec 2013 15:39:16 -0500
changeset 9812 a293a9ecdc82
parent 9811 66a7959869f0
child 9813 4132b0bfcac5
redraw ownertex to fix tinting issue
hedgewars/uWorld.pas
--- a/hedgewars/uWorld.pas	Fri Dec 20 22:25:06 2013 -0500
+++ b/hedgewars/uWorld.pas	Sat Dec 21 15:39:16 2013 -0500
@@ -1306,6 +1306,14 @@
                 Tint($FF,$FF,$FF,$80)
             else untint;
 
+            if OwnerTex <> nil then
+                begin
+                r.x:= 2;
+                r.y:= 2;
+                r.w:= OwnerTex^.w - 4;
+                r.h:= OwnerTex^.h - 4;
+                DrawTextureFromRect(-OwnerTex^.w - NameTagTex^.w - 16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, OwnerTex)
+                end;
             // draw name
             r.x:= 2;
             r.y:= 2;