TListView从现有项目android平台改变颜色

Question

我需要一些示例，如何在FireMonkey中为list view中的每一行更改颜色文本项。

我尝试这样的事情但没有成功。

 for i := 0 to lvArtikli.ItemCount-1 do
        begin

          AItem := lvArtikli.Items.AppearanceItem[i];

          pk := AItem.Data['txtPK'].AsString;

          if pk = '' then
          begin
             //change color
            TListItemText(AItem.Objects.FindDrawable('txtPK')).TextColor := TAlphaColorRec.Red;

          end;

  end;

Answer 1

为了为某个列着色，并且对于每一行，必须将以下代码放在事件onUpdateObjects上。

procedure TfrmMeni.lvKorektivnoUpdateObjects(const Sender: TObject;const AItem: TListViewItem);
begin

TListItemText(AItem.Objects.FindDrawable('txtPK') as TListItemText).TextColor:= TAlphaColorRec.Gold;

end;