请教各位高手，Canvas怎么刷新啊？

您所在位置：社区首页 — Delphi讨论区 — 请教各位高手，Canvas怎么刷新啊？

主题：请教各位高手，Canvas怎么刷新啊？

bingwei [专家分：30] 发布于 2006-04-18 17:54:00

我用PEN在Canvas上画了一些线条，然后想把这些线条擦掉重新画，怎么可以把以前画的线条全部擦除呢？
谢谢各位了！！！

沙发

progfan [专家分：2270] 发布于 2006-04-19 14:28:00

procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.FillRect(self.ClientRect);
end;

板凳

haptis [专家分：1260] 发布于 2006-04-20 14:26:00

问下假设要实现橡皮擦的功能该怎么写代码呢

3 楼

haptis [专家分：1260] 发布于 2006-04-20 16:13:00

搞定了
LZ 要是画个什么椭圆,矩形什么的想要清屏的话用下面的代码
image1.Canvas.Brush.Color:=clwhite;
image1.Canvas.Brush.Style:=bssolid;
image1.canvas.FillRect(self.ClientRect);

您尚未登录，请登录后再回复。点此登录或注册