VirtualTreeview wie kriege ich links den Zeilen-Indikator?

[alda]

Das ist natürlich schön, dass Du die Lösung gefunden hast Allerdings wäre es für den nächsten mit Sicherheit hilfreich zu wissen wo in der Demo das gesetzt wird.
In der von Dir genannten Demo findet sich das setzen des "Indikators" in der Methode TGeneralForm.VST2GetImageIndexEx:

Delphi-Quellcode:

procedure TGeneralForm.VST2GetImageIndexEx(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind;
  Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer; var ImageList: TCustomImageList);

var
  Data: PNodeData2;

begin
  // For this demo only the normal image is shown, you can easily
  // change this for the state and overlay images.
  case Kind of
    ikNormal, ikSelected:
      begin
        Data := Sender.GetNodeData(Node);
        Ghosted := Node.Index = 1;
        case Column of
          -1, // general case
          0:  // main column
            ImageIndex := Data.Level + 7;
          1: // image only column
            if Sender.FocusedNode = Node then
              ImageIndex := 6;
        end;
      end;
    ikOverlay:
      begin
        // Enable this code to show an arbitrary overlay for each image.
        // Note the high overlay index. Standard overlays only go up to 15.
        // Virtual Treeview allows for any number.
        // ImageList := ImageList1;
        // ImageIndex := 58;
      end;
  end;
end;

Und ja, die erste Spalte im Header ist die Spalte mit dem Index "1" (die mit dem Zeilenindikator) und die zweite Spalte (main column) ist die mit dem Index "0"

[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;