The edges appear jagged when drawing a circle on the image, how to make the edges smooth

cxowen

The edges appear jagged when drawing a circle on the image, how to make the edges smooth

njy7648

uses GDIPAPI, GDIPOBJ;

{$ R * .dfm}

procedure TForm1.Button1Click (Sender: TObject);
var
  g: TGpGraphics;
  p: TGpPen;
begin
  g: = TGpGraphics.Create (Image1.Canvas.Handle);
  p: = TGpPen.Create (aclRed, 3);
  g.SetSmoothingMode (SmoothingModeHighQuality);
  g.DrawEllipse (p, 10, 10, 20, 20);
  p.Free;
  g.Free;
end;