在image上画圆时边缘出现锯齿现象,如何把边缘变的圆滑

cxowen

在image上画圆时边缘出现锯齿现象,如何把边缘变的圆滑

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;