delphi - delphi中的图像缓冲区实现

Question

上下文

我正在 Canvas ，它会定期更新并且会闪烁。
逻辑上认为我认为这是因为我的重绘方法清除了 Canvas ，然后一次将一个元素绘制到 Canvas 上。所以我的想法是写一个 Timage 然后将图片设置为 Timage。

资讯

这是我的代码

procedure Tmainwindow.Button3Click(Sender: TObject);
var bufferpicture:TImage;
begin

//draw stuff to bufferpicture
  //***
//draw stuff to bufferpicture

myrealpicture.picture:=bufferpicture.picture;

end;

运行代码后，我得到一个错误显示如下。


问题
由于 Canvas 是只读属性，如何将一个 Canvas 设置为另一个 Canvas ？还是有更好的方法来做我想做的事情？

Answer 1

看起来你没有创建 myrealpicture

我会使用方法AssignMyRealPicture.Picture.Assign(BufferPicture.Picture);

您可以使用 BitBlt 将一个 Canvas 的内容复制到另一个 Canvas 上。 :

var
  BackBuffer: TBitmap;
begin
  BackBuffer := TBitmap.Create;
  try
    { drawing stuff goes here}
    BitBlt(Form1.Canvas.Handle, 0, 0, BackBuffer.Width, BackBuffer.Height,
        BackBuffer.Canvas.Handle, 0, 0, SRCCOPY);
  finally
    BackBuffer.Free;
  end;
end;

您可以使用 DoubleBuffered房产