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

Question

我需要填充(用黑色)下图中突出显示的白色小方 block 。

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

有人对如何做到这一点有任何想法吗？

这是执行自定义标题绘制的代码。 (请原谅 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 := $444444;
          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 为零。

由于仅在获取 Column.Text 时需要进行 Column nil 检查，因此您需要更改该代码:

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