diff -r 27b5180d0988 -r 9a82149409f3 hedgewars/uStore.pas --- a/hedgewars/uStore.pas Sun Apr 13 13:57:32 2008 +0000 +++ b/hedgewars/uStore.pas Sun Apr 13 14:06:17 2008 +0000 @@ -116,11 +116,7 @@ end; procedure StoreLoad; -var ii: TSprite; - fi: THWFont; - ai: TAmmoType; - s: string; - tmpsurf: PSDL_Surface; +var s: string; procedure WriteNames(Font: THWFont); var t: LongInt; @@ -163,7 +159,6 @@ procedure MakeCrossHairs; var t: LongInt; tmpsurf, texsurf: PSDL_Surface; - s: string; Color, i: Longword; begin s:= Pathz[ptGraphics] + '/' + cCHFileName; @@ -249,6 +244,11 @@ $FF000000 end; +var ii: TSprite; + fi: THWFont; + ai: TAmmoType; + tmpsurf: PSDL_Surface; + i: LongInt; begin for fi:= Low(THWFont) to High(THWFont) do with Fontz[fi] do @@ -304,6 +304,13 @@ SDL_FreeSurface(tmpsurf) end; +for i:= Low(CountTexz) to High(CountTexz) do + begin + tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(IntToStr(i) + 'x'), $FFFFFF); + CountTexz[i]:= Surface2Tex(tmpsurf); + SDL_FreeSurface(tmpsurf) + end; + {$IFDEF DUMP} SDL_SaveBMP_RW(LandSurface, SDL_RWFromFile('LandSurface.bmp', 'wb'), 1); SDL_SaveBMP_RW(StoreSurface, SDL_RWFromFile('StoreSurface.bmp', 'wb'), 1);