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

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

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

   326         with Fontz[fi] do

   328         with Fontz[fi] do

   327             begin

   329             begin

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

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

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

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

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

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

   331             SDLTry(Handle <> nil, true);

   333             SDLTry(Handle <> nil, true);

   332             TTF_SetFontStyle(Handle, style);

   334             TTF_SetFontStyle(Handle, style);

   333             WriteLnToConsole(msgOK)

   335             WriteLnToConsole(msgOK)

   334             end;

   336             end;

   335 

   339 

   336 MakeCrossHairs;

   340 MakeCrossHairs;

   337 LoadGraves;

   341 LoadGraves;

   338 if not reload then

   342 if not reload then

   339     AddProgress;

   343     AddProgress;