MakeScreenshot wurde nicht korrekt gerendert, wenn der Effekt angewendet wurde

Question

Irgendwie in der Nähe?

Wenn ich ein TRectangle mit einem TBlurEffect in ein TLayout und daneben ein TImage (mit WrapMode iwOriginal) und dann das Bitmap-Ergebnis eines Layout1.MakeScreenshot der Bitmap des Bildes zuweise, wird der Strich des Rechtecks ​​gezeichnet nicht verschwommen (aber der Unschärfeeffekt außerhalb des Strichs ist immer noch sichtbar).

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

Jede Art und Weise diese Funktion zu machen wie gewünscht?

Answer 1

Verwenden Sie das ProcessEffect Verfahren des Effekts auf das Bild nach den Screenshot Zuordnung:

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