Du musst der Komponente auch eine ImageList zuweisen aus der du die Images laden möchtest. Entweder per
OI oder per Code
vrdbtProjNr.ImageList := ImageList1;
. Natürlich angepasst an deinen ImageList Komponenten Namen.
Zusätzlich solltest du auch noch den ImageKind abfragen. Du kannst je nach Status der Node einen anderen ImageIndex übergeben. Also in etwa so:
Delphi-Quellcode:
procedure Tfo1ProjNr.vrdbtProjNrGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: TImageIndex);
var
Data: PTreeData;
begin
Data := Sender.GetNodeData(Node);
if (Kind <> ikSelected) then begin // Das solltest du noch einfügen, da du ansonsten die Meldung nochmal bekommst. Nur mit der Meldung "An Image Index was supplied for TTVImagekind.ikSelected but no image list was supplied"
// Hier dann deine Images zuweisen
end;
end;
Alternativ zu der Abfrage kannst du der Property SelectedImages auch die gleiche ImageList nochmal zuweisen.