equal
deleted
inserted
replaced
179 begin |
179 begin |
180 if cOnlyStats then exit; |
180 if cOnlyStats then exit; |
181 r.x:= 0; |
181 r.x:= 0; |
182 r.y:= 0; |
182 r.y:= 0; |
183 drY:= - 4; |
183 drY:= - 4; |
|
184 {$IFNDEF PAS2C} |
184 DecodeDate(Date, year, month, md); |
185 DecodeDate(Date, year, month, md); |
|
186 {$ELSE} |
|
187 year:= 0; |
|
188 month:= 0; |
|
189 md:= 0; |
|
190 {$ENDIF} |
185 for t:= 0 to Pred(TeamsCount) do |
191 for t:= 0 to Pred(TeamsCount) do |
186 with TeamsArray[t]^ do |
192 with TeamsArray[t]^ do |
187 begin |
193 begin |
188 NameTagTex:= RenderStringTexLim(TeamName, Clan^.Color, Font, cTeamHealthWidth); |
194 NameTagTex:= RenderStringTexLim(TeamName, Clan^.Color, Font, cTeamHealthWidth); |
189 if length(Owner) > 0 then |
195 if length(Owner) > 0 then |