用Canvas画图时为什么会闪烁,(只画一条线)

[weizhixun]

设有两个按键,一个键为初始化画布,一个键按一下只画一条线,为什么画线时屏幕会闪一下,请哪位高人指点一下.

procedure TForm1.Button2Click(Sender: TObject);
begin
  image1.Canvas.Pen.Color := clblack;
  image1.Canvas.Brush.Color := clblack;
  image1.Canvas.Rectangle(0, 0, image1.Width, image1.Height);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;
begin
//    for i:=0 to 10000 do
    begin
//     Button2Click(self);
   image1.Canvas.Pen.Color := clred;
   image1.Canvas.MoveTo(20,20);
   image1.Canvas.LineTo(100,100);
//   end;
end;

[猴子先生大宝贝]

gdiplus+……不是用在這裡的，那效率……還不如閃閃好了……

[JPEXE]

那你就搜搜“双缓冲”技术。要效率再高的话就从驱动入手，像大型图形游戏那样，DelphiX可以试试。看你需求了。

[lqfcu2]

双缓冲绘图，先在内存里建一张内存位图，然后在这张位图上做图，最后把绘好的图一次画到界面上

注意要把窗体的重绘背景消息屏蔽

[SQLDebug_Fan]

[Quote=引用 5 楼 weizhixun 的回复:]

DoubleBuffer设为True 在这个小程序里问题是解决了,可主要是想应用在高速采集数据画图中.不知道是否有其它好办法?
[/Quote]
有很多办法可以提高效率，自己实现DoubleBuffer是一种比较好的解决方案。

[iamduo]

多高速？
通常 100 kb / s 以下的用 TCanvas ，够了。
再高一点，DirectX 吧。

[SQLDebug_Fan]

把窗体的DoubleBuffer设为True

[JPEXE]

Form1.DoubleBuffered := True;

[ecjtu5208]

我拿你的运行了一下，没有出现闪烁。
是否还有别的代码？如果没有的话，我可以肯定的说，真的不闪烁啊。
要不然加一句form1.doublebuffered:=true;吧。

[lhy]

看你的代码，应该不会闪。

[weizhixun]

DoubleBuffer设为True 在这个小程序里问题是解决了,可主要是想应用在高速采集数据画图中.不知道是否有其它好办法?

[猴子先生大宝贝]

這類處理最好是建立一個內存畫布，然後將所有操作都在此畫布上進行操作，操作結束一次，一次性話到窗體畫布上，基本可以解決閃屏問題。測試每秒10次刷新的，還沒出現過問題。高了沒測試，沒項目支持，也就沒研究，可以研究下。

[ecjtu5208]

原理都是一样的，一个前景画布，一个缓冲画布，等到缓冲画布完全OK了，再覆盖前景画布。
完美解决闪烁。

[aawwmate]

可以考虑使用delphix 使用directx技术来实现更高效率的绘图。或者试下使用gdiplus+