zmiana koloru tekstu listviewitem w delphi

Question

Próbuję zmienić kolor tekstu w moim listviewitem dla obiektu tekstowego. Mam wiele obiektów tekstowych w liścieviewviewem. Używam poniższy kod

Litem := ListView1.Items.Add; 
Litem.Data['ytde'] := currtostrf(ytde,ffCurrency,2); 
Litem.Data['ytdbe'] := currtostrf(ytdbe,ffCurrency,2); 
Litem.Data['ytdetotal'] := currtostrf(ytdetotal,ffCurrency,2); 
Litem.Objects.TextObject.TextColor := TAlphaColorRec.Green 

Błąd podczas debugowania mówi niedostępne obiekt jeszcze nie mam zmianę koloru problem, gdy robię poniżej

LItemheader.Purpose := TListItemPurpose.Header; 
Litemheader.Objects.TextObject.TextColor := TAlphaColorRec.blue; 

jakieś pomysły?

Answer 1

znalazł odpowiedź:

TListItemText(Litem.Objects.FindDrawable('ytde')).TextColor := TAlphaColorRec.Red;