2017-09-05 24 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上的幾個官方項目提供了大量示例。