equal
deleted
inserted
replaced
251 begin |
251 begin |
252 for fi:= Low(THWFont) to High(THWFont) do |
252 for fi:= Low(THWFont) to High(THWFont) do |
253 with Fontz[fi] do |
253 with Fontz[fi] do |
254 begin |
254 begin |
255 s:= Pathz[ptFonts] + '/' + Name; |
255 s:= Pathz[ptFonts] + '/' + Name; |
256 WriteToConsole(msgLoading + s + ' '); |
256 WriteToConsole(msgLoading + s + '... '); |
257 Handle:= TTF_OpenFont(PChar(s), Height); |
257 Handle:= TTF_OpenFont(PChar(s), Height); |
258 TryDo(Handle <> nil, msgFailed, true); |
258 SDLTry(Handle <> nil, true); |
259 WriteLnToConsole(msgOK) |
259 WriteLnToConsole(msgOK) |
260 end; |
260 end; |
261 AddProgress; |
261 AddProgress; |
262 |
262 |
263 WriteToConsole('LandSurface tuning... '); |
263 WriteToConsole('LandSurface tuning... '); |