equal
deleted
inserted
replaced
366 end; |
366 end; |
367 |
367 |
368 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects); |
368 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects); |
369 var s, key: shortstring; |
369 var s, key: shortstring; |
370 f: textfile; |
370 f: textfile; |
371 i, ii, numFlakes: LongInt; |
371 i, ii: LongInt; |
372 c1, c2: TSDL_Color; |
372 c1, c2: TSDL_Color; |
373 |
373 |
374 procedure CheckRect(Width, Height, x, y, w, h: LongWord); |
374 procedure CheckRect(Width, Height, x, y, w, h: LongWord); |
375 begin |
375 begin |
376 if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true); |
376 if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true); |