delphi - 在 Delphi 中进行非闪烁、分段图形更新的最佳方法？

Question

我想我可以把它扔在那里然后问:我已经看到 Delphi 控件在图形效果方面是完美的。含义:无闪烁、分段更新(仅重绘控件中标记为脏的部分)和平滑滚动。

这些年来我编写了很多图形控件，所以我了解双缓冲、dibs、bitblts 和所有“常见”的东西(如果可能的话，我总是使用 dibs 来绘制所有内容，但有一个开销)。还了解 InvalidateRect 并检查 TCanvas.ClipRect 是否需要更新的实际矩形。尽管有所有这些典型的解决方案，我发现创建与 Developer Express 或 Razed Components 相同质量的组件非常困难。如果图形平滑，您可以打赌滚动条( native )会闪烁，如果滚动条和框架平滑，您可以打赌背景在滚动过程中闪烁。

是否有标准的代码设置来处理这个问题？一种确保整个控件顺利重绘的最佳实践——包括控件的非客户区？

例如，这是一个“裸骨”控件，它采用分段更新的高度(仅重绘所需的内容)。如果您在表单上创建它，请尝试在其上移动一个窗口，并观察它用颜色替换各个部分(请参阅绘制方法)。

是否有人有类似的基类，可以处理非客户区重绘而不闪烁？

type

TMyControl = Class(TCustomControl)
private
  (* TWinControl: Erase background prior to client-area paint *)
  procedure WMEraseBkgnd(var Message: TWmEraseBkgnd);message WM_ERASEBKGND;
Protected
  (* TCustomControl: Overrides client-area paint mechanism *)
  Procedure Paint;Override;

  (* TWinControl: Adjust Win32 parameters for CreateWindow *)
  procedure CreateParams(var Params: TCreateParams);override;
public
  Constructor Create(AOwner:TComponent);override;
End;


{ TMyControl }

Constructor TMyControl.Create(AOwner:TComponent);
Begin
  inherited Create(Aowner);
  ControlStyle:=ControlStyle - [csOpaque];
end;

procedure TMyControl.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);

  (* When a window has this style set, any areas that its
     child windows occupy are excluded from the update region. *)
  params.ExStyle:=params.ExStyle + WS_CLIPCHILDREN;

  (* Exclude VREDRAW & HREDRAW *)
  with Params.WindowClass do
  Begin
    (* When a window class has either of these two styles set,
       the window contents will be completely redrawn every time it is
       resized either vertically or horizontally (or both) *)
    style:=style - CS_VREDRAW;
    style:=style - CS_HREDRAW;
  end;
end;

procedure TMyControl.Paint;

  (* Inline proc: check if a rectangle is "empty" *)
  function isEmptyRect(const aRect:TRect):Boolean;
  Begin
    result:=(arect.Right=aRect.Left) and (aRect.Bottom=aRect.Top);
  end;

  (* Inline proc: Compare two rectangles *)
  function isSameRect(const aFirstRect:TRect;const aSecondRect:TRect):Boolean;
  Begin
    result:=sysutils.CompareMem(@aFirstRect,@aSecondRect,SizeOf(TRect))
  end;

  (* Inline proc: This fills the background completely *)
  Procedure FullRepaint;
  var
    mRect:TRect;
  Begin
    mRect:=getClientRect;
    AdjustClientRect(mRect);
    Canvas.Brush.Color:=clWhite;
    Canvas.Brush.Style:=bsSolid;
    Canvas.FillRect(mRect);
  end;

begin
  (* A full redraw is only issed if:
      1. the cliprect is empty
      2. the cliprect = clientrect *)
  if isEmptyRect(Canvas.ClipRect)
  or isSameRect(Canvas.ClipRect,Clientrect) then
  FullRepaint else
  Begin
    (* Randomize a color *)
    Randomize;
    Canvas.Brush.Color:=RGB(random(255),random(255),random(255));

    (* fill "dirty rectangle" *)
    Canvas.Brush.Style:=bsSolid;
    Canvas.FillRect(canvas.ClipRect);
  end;
end;

procedure TMyControl.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
  message.Result:=-1;
end;

已更新

我只是想补充一点，这个技巧是以下内容的组合:

1. 在绘制非客户区域时排除ClipRect()，这样就不会与客户区域中的图形重叠

2. 捕获 WMNCCalcSize 消息，而不是仅使用边框大小进行测量。我还必须计算边缘尺寸的高度:

   XEdge := GetSystemMetrics(SM_CXEDGE);
   YEdge := GetSystemMetrics(SM_CYEDGE);
   

3. 当滚动条移动或调整大小时，使用以下标志调用 RedrawWindow():

   mRect:=ClientRect;
   mFlags:=rdw_Invalidate
     or RDW_NOERASE
     or RDW_FRAME
     or RDW_INTERNALPAINT
     or RDW_NOCHILDREN;
   RedrawWindow(windowhandle,@mRect,0,mFlags);
   

4. 在 Paint() 方法期间更新背景时，避免在可能的子对象上绘制，如下所示(请参阅上面提到的 RDW_NOCHILDREN):

   for x := 1 to ControlCount do
   begin
     mCtrl:=Controls[x-1];
     if mCtrl.Visible then
     Begin
       mRect:=mCtrl.BoundsRect;
       ExcludeClipRect(Canvas.Handle,
       mRect.Left,mRect.Top,
       mRect.Right,mRect.Bottom);
     end;
   end;
   

感谢各位的帮助!

Answer 1

双缓冲和花哨的绘图策略只是故事的一半。另一半，有些人认为更关键的一半，是限制你的控制权失效的程度。

在您的评论中，您提到您使用了RedrawWindow(handle, @R, 0, rdw_Invalidate or rdw_Frame)。您将 R 矩形设置为什么？如果将其设置为客户区矩形，那么您将重新绘制控件的整个客户区。滚动时，只需重绘控件的一小部分 - 滚动方向“后缘”处的切片。 Windows 会将客户区屏幕的其余部分按位 block 传输到屏幕，以沿滚动方向移动现有像素。

还要检查您是否已将窗口标志设置为需要在滚动时完全重绘。我不记得标志名称，但您希望将它们关闭，以便滚动操作只会使您的客户区的一部分无效。我相信这是 Windows 默认设置。

即使使用硬件加速图形，更少的工作也比更多的工作更快。将无效矩形降至绝对最小值，并减少通过系统总线推送的像素数量。