如何让Delphi中通过区域裁剪生成的圆形图像边缘平滑？

你当前代码使用CreateRoundRectRgn进行区域裁剪，这种方式依赖GDI的硬边缘区域机制，无法实现抗锯齿渲染，因此边缘会出现明显锯齿。以下是两种可行的平滑边缘实现方案：

方案一：使用GDI+实现带抗锯齿的圆形图像 #

GDI+原生支持高质量抗锯齿渲染，是实现平滑边缘最简便的方式。需要确保项目中引入GDI+相关单元（GDIPAPI.pas、GDIPOBJ.pas）。

代码示例 #

uses
  GDIPAPI, GDIPOBJ;

procedure CreateSmoothCircleImage(Image: TImage; SourceGraphic: TGraphic);
var
  Bitmap: TBitmap;
  GPGraphics: TGPGraphics;
  GPRect: TGPRectF;
  GPBrush: TGPTextureBrush;
  Width, Height: Integer;
begin
  Width := Image.Width;
  Height := Image.Height;

  // 创建带Alpha通道的32位临时位图
  Bitmap := TBitmap.Create;
  try
    Bitmap.PixelFormat := pf32Bit;
    Bitmap.AlphaFormat := afPremultiplied;
    Bitmap.SetSize(Width, Height);

    // 初始化GDI+绘图对象
    GPGraphics := TGPGraphics.Create(Bitmap.Canvas.Handle);
    try
      // 开启高质量抗锯齿
      GPGraphics.SetSmoothingMode(SmoothingModeHighQuality);

      // 创建基于源图像的纹理画刷
      GPBrush := TGPTextureBrush.Create(TGPBitmap.Create(SourceGraphic.Handle));
      try
        // 定义正圆区域（取宽高中较小值作为直径）
        GPRect := MakeRect(0, 0, Min(Width, Height), Min(Width, Height));
        // 绘制填充圆形
        GPGraphics.FillEllipse(GPBrush, GPRect);
      finally
        GPBrush.Free;
      end;
    finally
      GPGraphics.Free;
    end;

    // 将结果赋值给目标Image组件
    Image.Picture.Assign(Bitmap);
    Image.Transparent := True;
    Image.Picture.Bitmap.AlphaFormat := afPremultiplied;
  finally
    Bitmap.Free;
  end;
end;

使用方式 #

替换原代码逻辑，直接调用该过程即可：

CreateSmoothCircleImage(Image1, Graph); // Graph为你的源图像对象

方案二：手动实现Alpha通道抗锯齿（无需GDI+） #

若无法引入GDI+，可通过手动计算像素透明度实现抗锯齿。核心思路是根据像素到圆形边缘的距离，为边缘像素设置渐变的Alpha值，模拟平滑过渡。

代码示例 #

procedure CreateSmoothCircleManual(Image: TImage; SourceGraphic: TGraphic);
var
  SrcBmp, DestBmp: TBitmap;
  SrcScanLine, DestScanLine: PRGBQuad;
  X, Y: Integer;
  CenterX, CenterY, Radius, RadiusSq: Integer;
  DistSq: Integer;
  Alpha: Byte;
begin
  SrcBmp := TBitmap.Create;
  DestBmp := TBitmap.Create;
  try
    SrcBmp.Assign(SourceGraphic);
    SrcBmp.PixelFormat := pf32Bit;

    DestBmp.SetSize(Image.Width, Image.Height);
    DestBmp.PixelFormat := pf32Bit;
    DestBmp.AlphaFormat := afPremultiplied;

    CenterX := Image.Width div 2;
    CenterY := Image.Height div 2;
    Radius := Min(CenterX, CenterY);
    RadiusSq := Radius * Radius;

    // 遍历所有像素计算透明度
    for Y := 0 to DestBmp.Height - 1 do
    begin
      SrcScanLine := SrcBmp.ScanLine[Y];
      DestScanLine := DestBmp.ScanLine[Y];
      for X := 0 to DestBmp.Width - 1 do
      begin
        // 计算像素到圆心的距离平方
        DistSq := (X - CenterX) * (X - CenterX) + (Y - CenterY) * (Y - CenterY);
        if DistSq <= (Radius - 1) * (Radius - 1) then
        begin
          // 完全在圆形内，设置为完全不透明
          DestScanLine^ := SrcScanLine^;
          DestScanLine.rgbReserved := $FF;
        end
        else if DistSq <= RadiusSq then
        begin
          // 边缘区域，根据距离计算透明度
          Alpha := Round(255 * (Radius - Sqrt(DistSq)));
          DestScanLine.rgbBlue := SrcScanLine.rgbBlue;
          DestScanLine.rgbGreen := SrcScanLine.rgbGreen;
          DestScanLine.rgbRed := SrcScanLine.rgbRed;
          DestScanLine.rgbReserved := Alpha;
        end
        else
        begin
          // 圆形外，设置为完全透明
          DestScanLine.rgbReserved := 0;
        end;
        Inc(SrcScanLine);
        Inc(DestScanLine);
      end;
    end;

    Image.Picture.Assign(DestBmp);
    Image.Transparent := True;
    Image.Picture.Bitmap.AlphaFormat := afPremultiplied;
  finally
    SrcBmp.Free;
    DestBmp.Free;
  end;
end;

关键说明 #

• 两种方案均依赖32位带Alpha通道的位图，这是实现平滑透明边缘的核心基础。
• GDI+方案代码简洁、渲染质量更高，推荐优先使用。
• 手动实现方案兼容性更强，但代码复杂度较高，适合无法引入GDI+的场景。

内容的提问来源于stack exchange，提问作者Issam