hedgewars/uStore.pas
changeset 15582 6a38a30e772a
parent 15360 34eb5cc72241
child 15665 63e2b7b2ec47
equal deleted inserted replaced
15581:ab095fc0256c 15582:6a38a30e772a
   325         end;
   325         end;
   326 
   326 
   327 
   327 
   328 for t:= 0 to Pred(ClansCount) do
   328 for t:= 0 to Pred(ClansCount) do
   329     with ClansArray[t]^ do
   329     with ClansArray[t]^ do
   330         HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, 19 * HDPIScaleFactor, Color);
   330         HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, cTeamHealthHeight, Color);
   331 
   331 
   332 GenericHealthTexture:= makeHealthBarTexture(cTeamHealthWidth + 5, 19 * HDPIScaleFactor, cWhiteColor)
   332 GenericHealthTexture:= makeHealthBarTexture(cTeamHealthWidth + 5, cTeamHealthHeight, cWhiteColor)
   333 end;
   333 end;
   334 
   334 
   335 
   335 
   336 procedure InitHealth;
   336 procedure InitHealth;
   337 var i, t: LongInt;
   337 var i, t: LongInt;