hedgewars/uStore.pas
changeset 3185 19d84448835f
parent 3169 c8c6ac44f51b
child 3327 ac0ddbb205fe
--- a/hedgewars/uStore.pas	Tue Mar 30 20:17:12 2010 +0000
+++ b/hedgewars/uStore.pas	Tue Mar 30 20:18:04 2010 +0000
@@ -355,7 +355,7 @@
     with Fontz[fi] do
         begin
         s:= Pathz[ptFonts] + '/' + Name;
-        WriteToConsole(msgLoading + s + '... ');
+        WriteToConsole(msgLoading + s + ' (' + inttostr(Height) + 'pt)... ');
         Handle:= TTF_OpenFont(Str2PChar(s), Height);
         SDLTry(Handle <> nil, true);
         TTF_SetFontStyle(Handle, style);