GDI+ 反锯齿

admin

尝试使用path和fillpath反锯齿：

1. uses
   
2.   GdiPlus;
   
3. 
   
4. procedure TForm1.FormPaint(Sender: TObject);
   
5. var
   
6.   gdiplus: IGdiplus;
   
7.   path: IGdiplusPath;
   
8.   brush: IGdiplusBrush;
   
9. begin
   
10.   gdiplus := CoGdiplusStartup(nil);
    
11.   try
    
12.     path := gdiplus.CreatePath(1);
    
13.     brush := gdiplus.CreateSolidBrush(clRed); // 创建一个红色画刷
    
14.     try
    
15.       // 添加一个矩形到路径
    
16.       path.AddRectangle(10, 10, 100, 100);
    
17.       // 填充路径
    
18.       gdiplus.FillPath(brush, path);
    
19.     finally
    
20.       brush.Release;
    
21.       path.Release;
    
22.     end;
    
23.   finally
    
24.     gdiplus.Release;
    
25.   end;
    
26. end;
    

复制代码

1. uses
   
2.   GdiPOBJ, GdiPAPI;
   
3. 
   
4. procedure CreateTransparentBitmap;
   
5. var
   
6.   Bitmap: TGPPGraphics;
   
7.   Brush: TGPBrush;
   
8. begin
   
9.   Bitmap := TGPPGraphics.Create(200, 200);
   
10.   try
    
11.     // 设置透明背景
    
12.     Bitmap.Clear(MakeColor(0, 0, 0, 0));
    
13. 
    
14.     // 创建一个红色的画刷
    
15.     Brush := TGPSolidBrush.Create(MakeColor(255, 0, 0, 0));
    
16.     try
    
17.       // 在位图上绘制一个半透明的矩形
    
18.       Bitmap.FillRectangle(Brush, 50, 50, 100, 100);
    
19.     finally
    
20.       Brush.Free;
    
21.     end;
    
22. 
    
23.     // 在这里可以保存或者处理Bitmap对象...
    
24. 
    
25.   finally
    
26.     Bitmap.Free;
    
27.   end;
    
28. end;

复制代码

在Delphi 2007中使用GDI+，你需要首先确保你的系统上安装了GDI+的组件或库。Delphi 2007并不直接支持GDI+，因此你可能需要使用第三方库，如GDIPOBJ。

以上是一个简单的例子，展示如何在Delphi 2007中使用GDI+来创建一个带有透明背景的图像：

在这个例子中，我们首先创建了一个200x200像素的TGPPGraphics对象，然后使用Clear方法将背景设置为完全透明。接着，我们创建了一个红色的TGPSolidBrush画刷，并使用FillRectangle方法在位图上绘制了一个半透明的矩形。最后，释放了所有的资源。

请注意，这只是一个简单的示例，实际使用时可能需要根据你的具体需求进行调整。如果你需要更详细的GDI+功能，你可能需要查看GDIPOBJ库提供的其他类和方法。

ref：https://bbs.csdn.net/topics/392146351