画图恢复

一、Canvas.Pen.Mode采取pmNotXor模式，画线，第二次画就可以恢复：

Delphi/Pascal code

?

1 2 3 4 5 6 7 8 9 10 11

procedure  TForm1 . Button1Click(Sender: TObject); begin    with  Image1  do    begin      Canvas . Pen . Mode := pmNotXor;      Canvas . Pen . Width :=  3 ;      Canvas . Pen . Color := clRed;      Canvas . MoveTo( 0 , 0 );      Canvas . LineTo( 200 , 200 );    end ; end ;

二、通过二个Image，读取图像后，一个上面画线（图），另一个保存原始像素值。这样，画图后，擦除时，可以通过另一个Image读取相关像素值，即可恢复了。
推荐采取这种方法，比较合理。不管理画图多么复杂，均可以恢复。