Zitat von
xZise:
Also Code muss ich nicht Zeigen, weil es nicht am Code liegen kann.
Einzig und alein dass:
Delphi-Quellcode:
for i := 0 to tvItems.Items.Count - 1 do begin
if tvItems.Items[i].StateIndex > -1 then
tvItems.Items[i].ImageIndex := tvItems.Items[i].StateIndex;
end;
Aber ich vermute es lag an der TImageList, weil ich es inzwischen wiederzurückgeändert habe. (State = Image)
Wenn tvItems.StateImages mehr Bilder enthält als tvItems.Images kann es Probleme geben (sofern Du verschiedene ImageLists verwendest). In der Variante mit ImageIndex := StateIndex+1 kann der ImageIndex natürlich auch bei gleich vielen Elementen bzw. derselben ImageList überlaufen.