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

Question

我正在将 TreeView 从标准 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;

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

Answer 1

您可以在 OnGetImageIndex 事件处理程序中获取 Kind: TVTImageKind 参数。检查它的 ikOverlay 并简单地返回适当的图像索引。