351 

   351 

   352 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);

   352 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);

   353 var s: shortstring;

   353 var s: shortstring;

   354     f: textfile;

   354     f: textfile;

   355     i, ii: LongInt;

   355     i, ii: LongInt;

   357     c1, c2: TSDL_Color;

   356     c1, c2: TSDL_Color;

   358 

   357 

   359     procedure CheckRect(Width, Height, x, y, w, h: LongWord);

   358     procedure CheckRect(Width, Height, x, y, w, h: LongWord);

   360     begin

   359     begin

   361     if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true);

   360     if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true);