equal
deleted
inserted
replaced
353 |
353 |
354 for fi:= Low(THWFont) to High(THWFont) do |
354 for fi:= Low(THWFont) to High(THWFont) do |
355 with Fontz[fi] do |
355 with Fontz[fi] do |
356 begin |
356 begin |
357 s:= Pathz[ptFonts] + '/' + Name; |
357 s:= Pathz[ptFonts] + '/' + Name; |
358 WriteToConsole(msgLoading + s + '... '); |
358 WriteToConsole(msgLoading + s + ' (' + inttostr(Height) + 'pt)... '); |
359 Handle:= TTF_OpenFont(Str2PChar(s), Height); |
359 Handle:= TTF_OpenFont(Str2PChar(s), Height); |
360 SDLTry(Handle <> nil, true); |
360 SDLTry(Handle <> nil, true); |
361 TTF_SetFontStyle(Handle, style); |
361 TTF_SetFontStyle(Handle, style); |
362 WriteLnToConsole(msgOK) |
362 WriteLnToConsole(msgOK) |
363 end; |
363 end; |