如何最好地在基本 Delphi TVirtualTreeView 节点图标之上渲染覆盖图标

我正在将树视图从标准 TTreeView 转换为使用 TVirtualStringTree。我的最后一个挑战是实现一个功能，我需要在已知节点图标的顶部绘制“通过/失败”状态指示器。对于 TTreeView 我使用：

  var
   R : TRect;
  begin
    R := Node.DisplayRect( True );
    StatusIconList.Draw( TreeView1.Canvas,
                         R.Left - StatusIconList.Width - 14,
                         R.Top,
                         3 {MyOverlayImageIndex} );

结果是基本图标上出现红叉，如下所示：

通过 TVirtualStringTree，我希望找到一种更好的方法，或者为所需的覆盖图标位置获得更好的已知位置。我正在做：

   procedure DrawFailed;
    var
     R : TRect;
    begin
      R := CellRect;
      StatusIconList.Draw( TargetCanvas,
                           R.Left - StatusIconList.Width + 49 + Sender.GetNodeLevel( Node ) * 16,
                           R.Top,
                           siiFailed );
    end;

这是最好的解决方案吗？有没有更好的方法来获取基本图标的左上角/左上角，而无需可怕的节点级别调用？

You get Kind: TVTImageKind你的参数OnGetImageIndex事件处理程序。检查一下ikOverlay并简单地返回适当的图像索引。