如何使用Delphi将画布中的矩形复制为位图文件？

本文共计169个文字，预计阅读时间需要1分钟。

将一个矩形单元从FireMonkey的TCanvas内部复制到TBitmap（或其他TCanvas）中，可以采用以下步骤：

1. 创建一个新的TBitmap对象。

2.使用MakeScreenshot方法从TCanvas中捕获图像。

示例代码如下：

delphi

var NewBitmap: TBitmap; NewCanvas: TCanvas;begin NewBitmap :=TBitmap.Create; NewCanvas :=TCanvas.Create;

try // 将TCanvas设置为与源Canvas相同的尺寸和属性 NewCanvas.Size :=Rectangle1.Size; NewCanvas.Style :=Rectangle1.Style;

// 将源Canvas的位图复制到新Canvas上 NewCanvas.CopyRect(Rect(0, 0, NewCanvas.Width, NewCanvas.Height), Rectangle1.Canvas);

// 使用新Canvas创建的位图设置给TBitmap NewBitmap.SetSize(NewCanvas.Width, NewCanvas.Height); NewBitmap Assign(NewCanvas.Bitmap); finally // 释放资源 NewBitmap.Free; NewCanvas.Free; end;end;

如何将一个矩形从FireMonkey TCanvas内部复制到TBitmap(或其他TCanvas)？

CopyRect在FMX中不可用.

一种可能的解决方案是：

var NewBitmap:TBitmap; NewBitmap:=Rectangle1.MakeScreenshot;