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"