hedgewars/uStore.pas
changeset 1120 eb5a9f86f9c6
parent 1085 0b82870073b5
child 1180 e56317fdf78d
equal deleted inserted replaced
1119:be9700b424b2 1120:eb5a9f86f9c6
   126         drY: LongInt;
   126         drY: LongInt;
   127         texsurf: PSDL_Surface;
   127         texsurf: PSDL_Surface;
   128     begin
   128     begin
   129     r.x:= 0;
   129     r.x:= 0;
   130     r.y:= 0;
   130     r.y:= 0;
   131     drY:= cScreenHeight - 4;
   131     drY:= - 4;
   132     for t:= 0 to Pred(TeamsCount) do
   132     for t:= 0 to Pred(TeamsCount) do
   133      with TeamsArray[t]^ do
   133      with TeamsArray[t]^ do
   134       begin
   134       begin
   135       NameTagTex:= RenderStringTex(TeamName, Clan^.Color, Font);
   135       NameTagTex:= RenderStringTex(TeamName, Clan^.Color, Font);
   136 
   136