如何实现橡皮擦的功能,请帮帮忙,这个问题困扰我好久了 ( 积分: 50 )

是这样的,我用扫描描仪扫的图片有些点或者线,要自己去掉
if Clering then
begin
with image1.Canvas do
begin
Pen.Mode := pmCopy;
Brush.Style:= bsClear;
Brush.Color:=clWhite;
FillRect(rect((x-4),(y-4),(x+4),(y+4)));
//Eraser(tem); //
end;
end;
上面是MOUSEMOVE 方法中的代码,在MOUSEDOWN,MOUSEUP分别写好了代码,
图片可以修改,但是一刷新如IMAGE1.REFRESH 就又调用原来的图片
而且image1.Picture.Bitmap.SaveToFile('c:/wy13.bmp');
保存的也是以前的图片,
请帮帮忙啊,到第怎么样才能做成橡皮擦?

是这样的,我用扫描描仪扫的图片有些点或者线,要自己去掉
if Clering then
begin
with image1.Canvas do
begin
Pen.Mode := pmCopy;
Brush.Style:= bsClear;
Brush.Color:=clWhite;
FillRect(rect((x-4),(y-4),(x+4),(y+4)));
//Eraser(tem); //
end;
end;
上面是MOUSEMOVE 方法中的代码,在MOUSEDOWN,MOUSEUP分别写好了代码,
图片可以修改,但是一刷新如IMAGE1.REFRESH 就又调用原来的图片
而且image1.Picture.Bitmap.SaveToFile('c:/wy13.bmp');
保存的也是以前的图片,
请帮帮忙啊,到第怎么样才能做成橡皮擦?

我在delphi7下测试过你的问题, 可以修改图片的,
只要图片是windows BMP格式(24bits)的文件;

是吗,我先实验一下.还是多谢了哈

修改的应该是Image1.Picture.Bitmap.Canvas而不是Image1.Canvas