hedgewars/uStore.pas
changeset 14741 37a781d28e43
parent 14738 9423d30ec205
child 14747 7dfc6ed13337
equal deleted inserted replaced
14740:7b2bd37d7503 14741:37a781d28e43
   324         end;
   324         end;
   325 
   325 
   326 
   326 
   327 for t:= 0 to Pred(ClansCount) do
   327 for t:= 0 to Pred(ClansCount) do
   328     with ClansArray[t]^ do
   328     with ClansArray[t]^ do
   329         HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, Teams[0]^.NameTagTex^.h+1, Color);
   329         HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, 19 * HDPIScaleFactor, Color);
   330 
   330 
   331 GenericHealthTexture:= makeHealthBarTexture(cTeamHealthWidth + 5, TeamsArray[0]^.NameTagTex^.h+1, cWhiteColor)
   331 GenericHealthTexture:= makeHealthBarTexture(cTeamHealthWidth + 5, 19 * HDPIScaleFactor, cWhiteColor)
   332 end;
   332 end;
   333 
   333 
   334 
   334 
   335 procedure InitHealth;
   335 procedure InitHealth;
   336 var i, t: LongInt;
   336 var i, t: LongInt;