doubleBuffered

最新推荐文章于 2023-10-12 22:16:58 发布

liang08114

最新推荐文章于 2023-10-12 22:16:58 发布

阅读量737

点赞数

分类专栏： delphi

delphi 专栏收录该内容

51 篇文章 1 订阅

订阅专栏

之前我写的控件有闪烁的问题，然后在构造函数里面使用

Delphi(Pascal) code

if not self.doubleBuffered then self.doubleBuffered: = true

解决了一些问题，现在有个新问题
就是我控件里面有个变量，比如说
private
...
FPanel :TPanel;

然后控件的构造函数中，我也写了
..
FPanel:=Tpanel.Create(self);
if not Fpanel.doublebuffered then
Fpanel.doubleBuffered:=true;
..
结果pannel还是闪个不停，晕了，我看了先资料，是C#的

如果你在Form中绘图的话，不论是不是采用的双缓存，都会看到图片在更新的时候都会不断地闪烁，解决方法就是在这个窗体的构造函数中增加以下三行代码：


  请在构造函数里面底下加上如下几行：
  SetStyle(ControlStyles.UserPaint,  true);
  SetStyle(ControlStyles.AllPaintingInWmPaint,  true);  //  禁止擦除背景.
  SetStyle(ControlStyles.DoubleBuffer,  true);  //  双缓冲

  参数说明：

  UserPaint
  如果为  true，控件将自行绘制，而不是通过操作系统来绘制。此样式仅适用于派生自  Control  的类。

  AllPaintingInWmPaint
  如果为  true，控件将忽略  WM_ERASEBKGND  窗口消息以减少闪烁。仅当  UserPaint  位设置为  true 时，才应当应用该样式。

  DoubleBuffer
  如果为  true，则绘制在缓冲区中进行，完成后将结果输出到屏幕上。双重缓冲区可防止由控件重绘引起的闪烁。要完全启用双重缓冲，还必须将  UserPaint  和  AllPaintingInWmPaint  样式位设置为  true。


  参考资料：
  如何解决CSharp中动画闪烁问题?
  http://search.csdn.net/Expert/topic/1488/1488888.xml
  C#中双缓存绘图的实现方法。
  http://blog.joycode.com/ghj/archive/2004/01/03/10543.aspx

  以上你不是在窗体上绘图，需要你自己写一个控件，在这个控件的构造函数上增加上上述三行代码

我想问delphi中怎么办。我已经用了双缓冲了，可是还是闪烁。
各位有没有好的办法？？？

我基本上每个控件只要一创建，或者一引用的会像我上面的说的那样判断 doublebuffered的值，不为true，然后弄成true
所以Fpanel的容器类，或者放在FPanel里面的类，只要有doublebuffered属性的我都判断了的，我看了下，闪烁，的确是panel在闪，因为闪出来的白条，是贯穿整个pannel的

我也再看看代码，现在看来要参考下cnpack的代码了

不用delphi很多年，不过这个问题还是要说一句，闪烁跟什么双缓冲一点关系也没有，为什么会有闪烁，是因为有色差，你的窗口背景色和绘图颜色有色差，当然会闪了，哪怕是用十缓冲，也一样照闪不误。

此问题在vc中的解决方法如下:
BOOL CMyView::OnEraseBkgnd(CDC* pDC)
{
// TODO: Add your message handler code here and/or call default

return TRUE;
return CView::OnEraseBkgnd(pDC);
}
这样窗口背景刷子为NULL, 自己绘图时先用自己的背景色FillRect一下就ok了，即使是不用双缓冲，直接在窗口dc上绘图，也一点不闪。

不过我刚刚试了下，在delphi中直接处理WM_ERASEBKGND达不到目的， SetClassLong修改窗口背景刷子也不行，看来vcl是对窗口背景色有特殊的处理。
接下来就要delphi高手来弄了，反正解决这个问题的根本就是阻止delphi用窗口默认背景色重绘。

来源：http://blog.sina.com.cn/s/blog_4ca9ceef0100exoh.html