320     i, imflags: LongInt;

   320     i, imflags: LongInt;

   321 begin

   321 begin

   322 AddFileLog('StoreLoad()');

   322 AddFileLog('StoreLoad()');

   323 

   323 

   324 if not reload then

   324 if not reload then

   327     for fi:= Low(THWFont) to High(THWFont) do

   325     for fi:= Low(THWFont) to High(THWFont) do

   328         with Fontz[fi] do

   326         with Fontz[fi] do

   329             begin

   327             begin

   330             s:= cPathz[ptFonts] + '/' + Name;

   328             s:= cPathz[ptFonts] + '/' + Name;

   331             WriteToConsole(msgLoading + s + ' (' + inttostr(Height) + 'pt)... ');

   329             WriteToConsole(msgLoading + s + ' (' + inttostr(Height) + 'pt)... ');

   332             Handle:= TTF_OpenFontRW(rwopsOpenRead(s), true, Height);

   330             Handle:= TTF_OpenFontRW(rwopsOpenRead(s), true, Height);

   333             SDLTry(Handle <> nil, true);

   331             SDLTry(Handle <> nil, true);

   334             TTF_SetFontStyle(Handle, style);

   332             TTF_SetFontStyle(Handle, style);

   335             WriteLnToConsole(msgOK)

   333             WriteLnToConsole(msgOK)

   336             end;

   334             end;

   339 

   335 

   340 MakeCrossHairs;

   336 MakeCrossHairs;

   341 LoadGraves;

   337 LoadGraves;

   342 if not reload then

   338 if not reload then

   343     AddProgress;

   339     AddProgress;