hedgewars/uLandObjects.pas
changeset 12593 d6bd8b327a09
parent 12592 00b539e6115d
child 12711 20dbb3a03e61
equal deleted inserted replaced
12592:00b539e6115d 12593:d6bd8b327a09
   760         begin
   760         begin
   761         inc(SprayObjects.Count);
   761         inc(SprayObjects.Count);
   762         with SprayObjects.objs[Pred(SprayObjects.Count)] do
   762         with SprayObjects.objs[Pred(SprayObjects.Count)] do
   763             begin
   763             begin
   764             i:= Pos(',', s);
   764             i:= Pos(',', s);
   765             Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifColorKey or ifIgnoreCaps);
   765             Surf:= LoadDataImage(ptCurrTheme, Trim(Copy(s, 1, Pred(i))), ifAlpha or ifIgnoreCaps);
   766             Width:= Surf^.w;
   766             Width:= Surf^.w;
   767             Height:= Surf^.h;
   767             Height:= Surf^.h;
   768             Delete(s, 1, i);
   768             Delete(s, 1, i);
   769             Maxcnt:= StrToInt(Trim(s));
   769             Maxcnt:= StrToInt(Trim(s));
   770             end;
   770             end;