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;