截取特定区域的屏幕截图

Question

我正在使用Lazarus，我在表单中有一个TImage。黑色表格为TImage，数字为labels。我需要截取我绘制的红色区域的截图。

我该怎么做？

我有Lazarus 1.0.14，但我没有找到任何关于此的例子。有什么建议吗？

Answer 1

这是一个痛苦的设计，但是，一个简单的方法可能是将所有控件放在一个公共容器上并将其画布复制到位图。以下示例假定您已将图像和所有标签放在通用TPanel控件（Panel1）上：

procedure TForm1.Button1Click(Sender: TObject);
var
  R: TRect;
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    R := Rect(0, 0, Panel1.Width, Panel1.Height);
    Bitmap.SetSize(Panel1.Width, Panel1.Height);
    Bitmap.Canvas.CopyRect(R, Panel1.Canvas, R);
    Bitmap.SaveToFile('C:\Screenshot.bmp');
  finally
    Bitmap.Free;
  end;
end;

Answer 2

您可以使用GetFormImage获取表单图片，并保留与图片区域对应的部分：

var
  Bmp: TBitmap;
begin
  Bmp := GetFormImage;
  try
    Bmp.Canvas.CopyRect(Image1.ClientRect, Bmp.Canvas, Image1.BoundsRect);
    Bmp.SetSize(Image1.Width, Image1.Height);
    Bmp.SaveToFile('....');
  finally
    Bmp.Free;
  end;