Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uLandObjects.pas
changeset 5832 f730c8a9777b
parent 5689 48ef34701751
child 6081 537bbd5c1a62
equal deleted inserted replaced
5831:80f2a44becea 5832:f730c8a9777b 
   371 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
 
   371 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
 
   372 var s, key: shortstring;
 
   372 var s, key: shortstring;
 
   373     f: textfile;
 
   373     f: textfile;
 
   374     i: LongInt;
 
   374     i: LongInt;
 
   375     ii, t: Longword;
 
   375     ii, t: Longword;
 
   376     c1, c2: TSDL_Color;
 
   376     c2: TSDL_Color;
 
   377 
   377 
   378     procedure CheckRect(Width, Height, x, y, w, h: LongWord);
 
   378     procedure CheckRect(Width, Height, x, y, w, h: LongWord);
 
   379     begin
 
   379     begin
 
   380     if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true);
 
   380     if (x + w > Width) then OutError('Object''s rectangle exceeds image: x + w (' + inttostr(x) + ' + ' + inttostr(w) + ') > Width (' + inttostr(Width) + ')', true);
 
   381     if (y + h > Height) then OutError('Object''s rectangle exceeds image: y + h (' + inttostr(y) + ' + ' + inttostr(h) + ') > Height (' + inttostr(Height) + ')', true);
 
   381     if (y + h > Height) then OutError('Object''s rectangle exceeds image: y + h (' + inttostr(y) + ' + ' + inttostr(h) + ') > Height (' + inttostr(Height) + ')', true);
hedgewars