TTreeNode.ImageIndex

[DualCoreCpu]

Hallo,

ich habe folgenden Code:

Delphi-Quellcode:

  MyTreeNodesInstance := ....
  FRoot := TTreeNode.Create(MyTreeNodesInstance);
  FRoot.ImageIndex := 1;           //Image für Hauptknoten
  with MyTreeNodesInstance do
  begin
    Child := Add(FRoot, 'Wurzelknoten');
    Child.ImageIndex := 0;         //Image für Unterknoten
    AddChild(Child, 'Unterknoten 1');
    AddChild(Child, 'Unterknoten 2');
  end;

Leider werden meine Images, die ich in einer ImageListe zur Entwurfszeit erzeugt habe, nicht korrekt zugeordnet.

Bei den Unterknoten erhalte ich statt des Images für den Unterknoten das gleiche Image wie für den Hauptknoten.

ImageIndizes vertauschen führt nicht zum Erfolg.

Was muss ich anders machen?