MakeScreenshot не отображается правильно, когда применяется эффект

Question

В любом случае?

Когда я помещаю TRectangle с TBlurEffect внутри 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;