2017-09-05 23 views
1

我需要一些例子如何改变FireMonkey中我的list view每行的颜色文本项目。TListView从现有的项目改变颜色android平台

我尝试类似的东西,但没有成功。

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; 
+0

@RBA这是android,我不认为上面的(链接)示例包含相同的平台。 – Dejan

+0

@RBA我确实..... – Dejan

回答

0

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

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

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

end; 
0

在这里你有关于如何定制FireMonkey TListView的documentation

每个项目都可以按照documentation进行定制描述。在线文档和sourceforge.net上的几个官方项目提供了大量示例。