377          Maxcnt:= 3;

   377          Maxcnt:= 3;

   378          ReadLn(f)

   378          ReadLn(f)

   379          end;

   379          end;

   380     end;

   380     end;

   381 

   381 

   382 Readln(f, SprayObjects.Count);

   383 Readln(f, SprayObjects.Count);

   383 for i:= 0 to Pred(SprayObjects.Count) do

   384 for i:= 0 to Pred(SprayObjects.Count) do

   384     begin

   385     begin

   385     Readln(f, s); // filename

   386     Readln(f, s); // filename

   386     with SprayObjects.objs[i] do

   387     with SprayObjects.objs[i] do

   389          Width:= Surf^.w;

   390          Width:= Surf^.w;

   390          Height:= Surf^.h;

   391          Height:= Surf^.h;

   391          ReadLn(f, Maxcnt)

   392          ReadLn(f, Maxcnt)

   392          end;

   393          end;

   393     end;

   394     end;

   394 Close(f);

   398 Close(f);

   395 {$I+}

   399 {$I+}

   396 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true)

   400 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true)

   397 end;

   401 end;

   398 

   402