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

时间:2016-06-09 13:18:50

标签: windows delphi delphi-xe2 firemonkey

有什么方法吗?

当我在TLayout中放置一个带有TBlurEffect的TRectangle,并在它旁边放一个TImage(带有WrapMode iwOriginal),然后将Layout1.MakeScreenshot的位图结果分配给图像的位图,矩形的笔划被绘制为不模糊(但是中风之外的模糊效果仍然可见)。

The form

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

enter image description here

是否可以根据需要制作此功能?

1 个答案:

答案 0 :(得分:2)

在分配屏幕截图后,使用效果的ProcessEffect程序:

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

enter image description here