Erase

procedure Erase(img: TImage32; const polygon: TPathD; fillRule: TFillRule); overload;

procedure Erase(img: TImage32; const polygons: TPathsD; fillRule: TFillRule); overload;


Erases whatever's inside the specified polygon or polygons.

Note: This procedure performs identically to Img32.Draw.ErasePolygon.

uses Img32, Img32.Fmt.PNG, Img32.Extra;
...
var
  img: TImage32;
  path: TPathD;
begin
  img.LoadFromFile('./lenna.png');
  path := Ellipse(Rect(20,20,236,236));
  Erase(img, path, frNonZero);
  img.SaveToFile('erase_center.png');
  img.Free;
end;
      
Before:
After:

See Also

ErasePolygon