VirtualTreeView, no image list was supplied

[norwegen60]

Ich habe die TreeView seit Jahren nicht mehr angefasst. Bisher war die ImageList nur dem Property StateImages zugewiesen und von Delphi 7 bis XE10 hatte es so auch funktioniert.

Das Property ImageList gibt es nicht. Ich habe vrdbtProjNr.Images = ImageList gesetzt, dann funktioniert es. Allerdings zeigt es dann bei allen nicht selektierten Einträgen zwei LED an.

Ich habe testweise die Zuweisung nur bei Images gemacht und bei StateImages gelöscht. Dann kommt die Fehlermeldung wieder.
Nach etwas rum probieren, die Hilfe ist zu StateImages recht dürftig, bin ich auf folgendes Setting gekommen das wieder einwandfrei läuft:

Delphi-Quellcode:

Images nicht zuweisen
StateImages = ImageList1;

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 = ikState) then begin // Verhindert die Meldung "An Image Index was supplied for TTVImagekind.ikSelected but no image list was supplied"
    // Ad hier Images zuweisen
  end;
end;

[Aviator]

Hallo.

Sorry. Ja die Property heißt nur Images und nicht ImageList .

In deinem SourceCode solltest du daher auch nicht wie oben von mir beschrieben nur auf ungleich ikSelected sondern auf if (Kind in [ikNormal, ikSelected]) then prüfen. Das verhindert, dass er die Exception wirft. Wenn du auch je nach State (also Node selektiert oder nicht) auch ein Image hinterlegen willst, dann muss du das Set entsprechend um ikState erweitern und dem Tree auch eine StateImages ImageList zuweisen. Das kann natürlich die gleiche sein wie die, die du der Images Property zugewiesen hast.

Der letzte Kind ist ikOverlay der entsprechend über eine bereits gezeichnetes Image drüber gemalt wird. Habe ich bisher aber auch noch nicht verwendet.