hedgewars/uStore.pas
changeset 13639 05dd413393bf
parent 13586 41e0446fb254
child 13642 3d14950641a4
equal deleted inserted replaced
13638:039ec6dd304b 13639:05dd413393bf
   531             end;
   531             end;
   532 
   532 
   533     // number of weapons in ammo menu
   533     // number of weapons in ammo menu
   534     for i:= Low(CountTexz) to High(CountTexz) do
   534     for i:= Low(CountTexz) to High(CountTexz) do
   535         begin
   535         begin
   536         tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(IntToStr(i) + 'x'), cWhiteColorChannels);
   536         tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(Format(trmsg[sidAmmoCount], IntToStr(i))), cWhiteColorChannels);
   537         tmpsurf:= doSurfaceConversion(tmpsurf);
   537         tmpsurf:= doSurfaceConversion(tmpsurf);
   538         FreeAndNilTexture(CountTexz[i]);
   538         FreeAndNilTexture(CountTexz[i]);
   539         CountTexz[i]:= Surface2Tex(tmpsurf, false);
   539         CountTexz[i]:= Surface2Tex(tmpsurf, false);
   540         SDL_FreeSurface(tmpsurf)
   540         SDL_FreeSurface(tmpsurf)
   541         end;
   541         end;