应用效果时 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;