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);