如何在 TVirtualStringTree 中填充滚动条上方的区域？

Question

我需要填充（黑色）我在下图中突出显示的白色小方块。

我试过添加额外的列。我试过扩展 PaintInfo.PaintRectangle。我已经尝试了我能想到的 Amount 列上的所有设置。我没主意了。

有人知道如何做到这一点吗？

这是执行自定义 header 绘图的代码。（原谅with的说法，不是我的原码....）

procedure TWinPOSReceiptPluginForm.ReceiptDisplayTreeAdvancedHeaderDraw(Sender: TVTHeader; var PaintInfo: THeaderPaintInfo;
  const Elements: THeaderPaintElements);
var
    TempText: string;
begin
    with PaintInfo do
    begin
      // First check the column member. If it is NoColumn then it's about the header background.

        if (hpeBackground in Elements) and (Column <> nil) then begin
          TempText := Column.Text;
          TargetCanvas.Brush.Color := 4444;
          TargetCanvas.FillRect(PaintRectangle);
          TargetCanvas.Font.Color := clWhite;
          TargetCanvas.Font.Style := [];
          TargetCanvas.TextOut (PaintRectangle.Left + 3, PaintRectangle.Top + 3, TempText);
          end;
    end;
end;

Answer 1

你的if条件是错误的。当 hpeBackground 在该区域的 Elements 中时，它永远不会是真的，因为在那种情况下 Column 为 nil。

因为只有在获取 Column.Text 时才需要进行 Column nil 检查，因此您需要更改该代码：

if hpeBackground in Elements then
begin
  if Column <> nil then
    TempText := Column.Text;
  TargetCanvas.Brush.Color := 4444;

如何在 TVirtualStringTree 中填充滚动条上方的区域？

How do I fill in the area above the scroll bar in a TVirtualStringTree?

delphi

virtualtreeview

tvirtualstringtree