FMX, ListView,цвет строки(Delphi 11, Android 11)

[Aleks Serov]

Привет мастера! Хочу поменять цвет строки в списке при внесении в него данных. Это возможно?

Или только потом уже в событии Update?

Пробую так:

var
MyItem:TListViewItem;
begin
MyItem :=Listview1.Items.Add;
MyItem.Data['Text1']:='MyData';
MyItem.Objects.TextObject.TextColor :=TAlphaColorRec.Gold; 
ListView1.Adapter.ResetView(MyItem);
ListView1.ApplyStyleLookup;
end;

но приложение крашиться на строке:

MyItem.Objects.TextObject.TextColor :=TAlphaColorRec.Gold; 

Подскажите как правильно реализовать нужную мне функцию?

Погуглив рабочего решения так и ненашел (((

[OnePeople]

По имени

TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := AppSettings.TextGeneralColor;

По номеру в списке элементов дизайнера item

TListItemText(MyItem.Objects.Drawables[0]).Font.Style := [TFontStyle.fsBold];

[Aleks Serov]

Сделал по Вашему совету так:

var
MyItem:TListViewItem;
begin
MyItem :=Listview1.Items.Add;
MyItem.Data['Text1']:='MyData';
TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := TAlphaColorRec.Gold; 
ListView1.Adapter.ResetView(MyItem);
ListView1.ApplyStyleLookup;
end;

 

Ошибка пропала,но текст свой цвет не меняет, отображается заданным в дизайнере цветом.

Похоже что при добавлении в список данных менять их цвет нельзя. Может на update прикрутить тогда?

[Aleks Serov]

но тогда перекрасяться все строки.. А как сделать четную одним цветом,а нечетную другим?

[OnePeople]

Ну для начала сделайте так

var
MyItem:TListViewItem;
begin

ListView1.ApplyStyleLookup;
MyItem :=Listview1.Items.Add;
MyItem.Data['Text1']:='MyData';

if MyItem.index mod 2 = 0 then
   TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := TAlphaColorRec.Gold

        else   TListItemText(MyItem.Objects.FindDrawable('Text1')).TextColor := TAlphaColorRec.Black;

end;

Но update тоже надо