很多朋友在做绘图程序的时候,往往出现屏幕不停刷新产生闪烁的问题,这里就告诉大家一个解决办法,缓冲绘图。如果有人是用取反画图解决这个问题,那么在画直线的时候容易出现斑点,效果不是很好。如果是图片很大,那么缓冲画图是解决的好办法。
在网上搜索一下内存绘图,或者缓冲绘图,会有很多技术文章,不过都是以vc或者java为主,很少有pascal的代码例子。不过原理都是一样的,大家可以参考他们的文章。我会在最后放上转载的vc缓冲画图的文章。:)感谢原作者。
Delphi中函数调用比较方便。
OldBmp, BufBmp是TbitMap
//画图方法:
procedure TChart.Draw(aCanvas: TCanvas);
begin
{把要画的操作放在这里}
end;
在你要画的地方用如下代码把内存中画好的内容放到你要显示的组件的canvas上,这里就是canvas:
Draw (BufBmp.Canvas);//Draw方法就是上面那段代码 bitblt(self.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, |