VirtualTreeview wie kriege ich links den Zeilen-Indikator?

[hkleebaum]

... oder ganz einfach so:

Code:

procedure TfrmXYZ.vstListeAfterCellPaint(Sender : TBaseVirtualTree; TargetCanvas : TCanvas;
  Node : PVirtualNode; Column : TColumnIndex; CellRect : TRect);
const
  space = 6;
begin
  if (Column = 0) and (Node = Sender.FocusedNode) then
    with TargetCanvas do
    begin
      Brush.Color := clGreen;
      Pen.Color := clBlack;
      Polygon([Point(CellRect.Left + space, CellRect.Top + space), Point(CellRect.Left + 2 * space,
        (CellRect.Top - (CellRect.Top - CellRect.Bottom) div 2)), Point(CellRect.Left + space,
        CellRect.Bottom - space)]);
    end;
end;