如何清除在image.canvas上画的东西？

[leonyuann]

我在image的canvas上作如下工作：在任意鼠标点击处（posx,posy）画圆
var
r1:TRect;
begin
r1.left:=posx-1;
r1.top:=posy-1;
r1.right:=posx+1;
r1.bottom:=posy+1;
image1.Canvas.Pen.Color:=clred;
image1.Canvas.Brush.Color:=clred;
image1.Canvas.Ellipse(r1);
现在想清除这些圆点，试了canvas.repaint canvas.refresh都不管用，该如何解决？

[糖醋鼻子]

建议用两个Image控件一个背景
一个作图

[lybingyu]

不会，UP

[yunzhonghua001]

那些是属于噪声吗？

[leonyuann]

zhmnsw(糖醋鼻子)，如果用2个iamge，一个当背景（比如画50*50的网格），一个画图（任意的圆点），画点时有很长的延时，怎么解决？

[leonyuann]

csdnloading(楼顶主人) ，我要清除所有的圆点啊！不是就一个圆点

[alimyso]

重新装载一下图片就可以了，其实想去掉其中任意一个点才有难度呢.

[leonyuann]

alimyso(杨桦) 能说清楚点吗？

[Allblus]

建立一个链表：
type pRect=^recordRect;
recordRect=record
originP,finalP:TPoint;
rectColor:TColor;
fillColor:TColor;
next:pRect;
end;

不就可以undo了吗？

[alimyso]

Image1.Picture.Bitmap.LoadFromFile(文件路径)

[duxin]

双指针 作图软件我写过 都是用指针记录画前的Image 如果画上是不好清除的

方法是在画前把当前Image给一个指针记录 然后进行画图, 不保存就恢复以前的

再用一个 记录原始Image 擦除时取对应坐标的值 ,有需要给你个mome

[leonyuann]

duxin(小伍)，不太明白你说的意思，给我个memo吧，[e-mail]

[S.F.]

这个太简单了；在绘图前加入

Image1.Canvas.Brush.Color := ClWhite; //清除原来的图象为白色
Image1.Canvas.FillRect(Canvas.ClipRect);