Stateindex wird bei verschobenem TTreenode nicht gezeichnet

[kaiser1401]

Hallo,

Ich baue einen Treeview auf in dem in der ersten und zweiten Ebene jeweils ein Icon über ImageIndex zugewiesen wird. In der dritten ebene werden zwei Icons zugewiesen. Eins über ImageIndex und das andere über StateIndex. Das funktioniert auch soweit. Nun kann es sein das ich ein Knoten der Dritten Ebene unter einen Selbigen hängen muss, also eine 4.Ebene erstellt wird. Dies passiert mit node.MoveTo Leider wird das StateIndex-Icon nicht mehr gezeichnet(Siehe Anhang). Der Index ist nach dem MoveTo noch vorhanden, wird aber nicht gezeichnet. Weiß jemand woran das liegen könnte?


Edit:
Ich hab mal ein Beispiel-Projekt angehangen

[kaiser1401]

Wenn auch keine wirkliche Lösung, hab ich zumindest einen Workaround in dem ich mir den Index merke, ihn auf -1 setze, den Node verschiebe und ihn dann wieder setze:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
 var oldStateIndex:integer;
begin
  oldStateIndex:=child.StateIndex;
  child.StateIndex:=-1;
  child.MoveTo(par,naAddChild);
  child.StateIndex:=oldStateIndex;
end;

(Verständnisfrage zum Forum: Soll ich das als erledigt markieren?)