如何将椭圆或多边形从一个位图复制到另一个位图

Question

如何将椭圆或多边形形状从一个位图复制到另一个位图。 BitBlt仅对复制矩形有用。

我目前使用GDI但是如果使用GDI +更容易，我可以使用它。我只需要一般指导来向我展示正确的方向。

Answer 1

您可以在目标设备上下文中选择椭圆/多边形剪辑区域，然后照常使用BitBlt。

var
  Rgn: HRGN;
  Points: array[0..2] of TPoint;
begin
  //Rgn := CreateEllipticRgn(0, 0, 100, 100);

  Points[0] := Point(0, 0);
  Points[1] := Point(50, 50);
  Points[2] := Point(50, 0);
  Rgn := CreatePolygonRgn(Points, 3, WINDING);

  SaveDC(Canvas.Handle);
  SelectClipRgn(Canvas.Handle, Rgn);
  DeleteObject(Rgn); // SelectClipRgn copies the region

  BitBlt(Canvas.Handle, 0, 0, 100, 100, BmpDC, 0, 0, SRCCOPY);

  RestoreDC(Canvas.Handle, -1);
end;