Delphi 创建绘制事件画布问题

Question

当我查看TWinControl 时，Canvas 被clBtnFace 屏蔽，然后调用WM_PAINT。这会导致我不需要的不可避免的闪烁。此外，给定的画布允许在滚动条上绘图，从而在 WM_PAINT 事件后重新绘制滚动条并产生更多闪烁。

GetMetrics 和内部滚动条信息给出了真正的画布大小。如果我错了，请纠正我，但我知道HDC 是表单上的一个句柄，它有一个矩形画布可以打印。所以我在想：

1. 如何创建一个具有较小宽度和高度的新 HDC 并且不移动左上角。如果可能的话，我想通过不使用WM_ERASEBKGND 消息来消除闪烁，并且不通过分配新大小的HDC 来打印滚动条，然后使用正确的HDC 设置Delphi 画布句柄。

2. 使用我不知道是否应该使用的 Windows 位图并将 BitBlt() 副本的位图画布大小设置为 TWinControl（下）。

   DC := GetDC(0);
   MemBitmap := CreateCompatibleBitmap(DC, ClientRect.Right, ClientRect.Bottom);
   ReleaseDC(0, DC);
   MemDC := CreateCompatibleDC(0);
   OldBitmap := SelectObject(MemDC, MemBitmap);
   try
     DC := BeginPaint(Handle, PS);
     Perform(WM_ERASEBKGND, MemDC, MemDC);
     Message.DC := MemDC;
     WMPaint(Message);
     Message.DC := 0;
     BitBlt(DC, 0, 0, ClientRect.Right, ClientRect.Bottom, MemDC, 0, 0, SRCCOPY);
     EndPaint(Handle, PS);
   finally
     SelectObject(MemDC, OldBitmap);
     DeleteDC(MemDC);
     DeleteObject(MemBitmap);
   end;
   

我不知道在无闪烁结果中哪个选项更好，以及如何在 Delphi 中实现它。

Answer 1

...Canvas 被 clBtnFace 屏蔽掉...

背景颜色可通过设置Brush.Color调整。

然后调用WM_PAINT。这会导致不可避免的闪烁...

这可以通过绕过WM_ERASEBKGND 消息来避免。

如何新建一个宽度和高度较小的HDC？

这是不可能的。设备上下文没有大小。它仅受托管它的窗口的限制。

给定的画布允许在滚动条上绘图，从而在 WM_PAINT 事件之后重新绘制滚动条。

系统在WM_NCPAINT 中绘制原生滚动条。如果你可以在它们上面绘制，那么你就得到了整个窗口的设备上下文，而不是它的客户空间。

但总的来说，解决方案非常简单：不要超出窗口的客户区域。

作为提示：我建议您从 TCustomControl 而不是 TWinControl 派生控件，因为该类已经有一个可以绘制的画布，可以消除所有 WinAPI 代码。