hedgewars/uWorld.pas
changeset 9812 a293a9ecdc82
parent 9791 446e4919b738
child 9950 2759212a27de
child 9983 1b62d993cd2f
equal deleted inserted replaced
9811:66a7959869f0 9812:a293a9ecdc82
  1304             begin
  1304             begin
  1305             if TeamsCount * 100 > Longword(cScreenHeight) then
  1305             if TeamsCount * 100 > Longword(cScreenHeight) then
  1306                 Tint($FF,$FF,$FF,$80)
  1306                 Tint($FF,$FF,$FF,$80)
  1307             else untint;
  1307             else untint;
  1308 
  1308 
       
  1309             if OwnerTex <> nil then
       
  1310                 begin
       
  1311                 r.x:= 2;
       
  1312                 r.y:= 2;
       
  1313                 r.w:= OwnerTex^.w - 4;
       
  1314                 r.h:= OwnerTex^.h - 4;
       
  1315                 DrawTextureFromRect(-OwnerTex^.w - NameTagTex^.w - 16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, OwnerTex)
       
  1316                 end;
  1309             // draw name
  1317             // draw name
  1310             r.x:= 2;
  1318             r.x:= 2;
  1311             r.y:= 2;
  1319             r.y:= 2;
  1312             r.w:= NameTagTex^.w - 4;
  1320             r.w:= NameTagTex^.w - 4;
  1313             r.h:= NameTagTex^.h - 4;
  1321             r.h:= NameTagTex^.h - 4;