image撤消按钮

Question

image.canvas 画的图 我想做个撤消按钮 该怎么做 请高手帮帮忙

Answer 1

procedure   TForm1.ClearCanvas;   
  begin   
  　with   Canvas   do   
  　begin     
  　　Brush.Style:=bsSolid;   
  　　Brush.Color:=clWhite;   
  　　FillRect(ClipRect);   
  　end;   
  end;   

Answer 2

如果想保存历史记录的话，估计得保存每一步操作后的bitmap
一般的图像处理软件都是这么做的。