windows - 应用效果时 MakeScreenshot 无法正确呈现

Question

有什么办法解决这个问题吗？

当我将一个带有 TBlurEffect 的 TRectangle 放在 TLayout 中，并在它旁边放置一个 TImage(使用 WrapMode iwOriginal)，然后将 Layout1.MakeScreenshot 的位图结果分配给图像的位图时，矩形的描边被绘制得清晰(但笔划外的模糊效果仍然可见)。

procedure TForm7.Button1Click(Sender: TObject);
begin
  Image1.Bitmap := Layout1.MakeScreenshot
end;

有什么方法可以根据需要实现此功能？

Answer 1

使用ProcessEffect程序对指定截图后的图像进行效果处理:

procedure TForm3.Button1Click(Sender: TObject);
begin
  Image1.Bitmap := Layout1.MakeScreenshot;
  BlurEffect1.ProcessEffect(Image1.Bitmap.Canvas, Image1.Bitmap, 1);
end;