hedgewars/uStore.pas
changeset 843 27b5180d0988
parent 842 fae2fae2fe8d
child 844 9a82149409f3
--- a/hedgewars/uStore.pas	Sun Apr 13 12:47:18 2008 +0000
+++ b/hedgewars/uStore.pas	Sun Apr 13 13:57:32 2008 +0000
@@ -118,6 +118,7 @@
 procedure StoreLoad;
 var ii: TSprite;
     fi: THWFont;
+    ai: TAmmoType;
     s: string;
     tmpsurf: PSDL_Surface;
 
@@ -295,6 +296,14 @@
 
 PauseTexture:= RenderStringTex(trmsg[sidPaused], $FFFF00, fntBig);
 
+for ai:= Low(TAmmoType) to High(TAmmoType) do
+	with Ammoz[ai] do
+		begin
+		tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(trAmmo[NameId]), $FFFFFF);
+		NameTex:= 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);