来人啊delphi 怎样清除 image的canvas 中lines的画线解决方案

来人啊！delphi 怎样清除 image的canvas 中lines的画线
请问delphi 怎样清除 image的canvas 中lines的画线,不用画背景色的方法，如果有多条画线怎样清除其中的一条

[解决办法]
如果是xor方式画的，再画一次就是清除
[解决办法]
试了,可以

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);begin  with Self.Image1.Canvas do begin    Pen.Mode := pmXor;    Pen.Color := clGreen;    MoveTo(100,100);    LineTo(200,200);  end;end;procedure TForm1.Button2Click(Sender: TObject);begin  with Self.Image1.Canvas do begin    Pen.Mode := pmXor;    MoveTo(100,100);    LineTo(200,200);  end;end;
[解决办法]
使用底色再画一次就是啦
[解决办法]
可以将线段信息保存在一个列表中，删除那条不需要画的线段，然后重绘整个image.
[解决办法]
Canvas.Pen.Style := psClear;
添加以上设置后再画一次
[解决办法]
PaintBox1.Canvas.Brush.Style:=bsclear;
Refresh;