Coloring individual Header backgroud in ListView

  

Is it possible in Delphi FMX to color individual Header background in ListView?
I know how to display text on listview header in OnUpdateObject, but is is possible to color background or draw rectangle for each header in own color?
procedure TForm6.ListView1UpdateObjects(
const Sender: TObject;
const AItem: TListViewItem);
var
pListItemText: TListItemText;
begin
if AItem.Purpose = TListItemPurpose.Header then
begin
pListItemText := AItem.Objects.FindObjectT<TListItemText>(‘Text’);

if pListItemText = nil then
pListItemText := TListItemText.Create(AItem);

if assigned(pListItemText) then
pListItemText.Text:=’TEXT’;
end;
end;

Comments are closed.