画图恢复

一、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读取相关像素值，即可恢复了。
推荐采取这种方法，比较合理。不管理画图多么复杂，均可以恢复。