[FMX] TListView - Textfarbe auch für aktives Item setzen [solved]

[DeddyH]

Ich setze die Textfarbe von TListViewItems nach bestimmten Kriterien, z.B.:

Delphi-Quellcode:

procedure TfrmMain.ListSomething;
var
  Item: TListViewItem;
  i: integer;
begin
  for i := 1 to 100 do
    begin
      Item := ListView.Items.Add;
      Item.Text := 'Wuppdi';
      if (i mod 3) = 0 then
        begin
          if (i mod 2) = 0 then
            Item.Objects.TextObject.TextColor := TAlphaColorRec.Red
          else
            Item.Objects.TextObject.TextColor := TAlphaColorRec.Green;
        end;
    end;
end;

Das klappt auch, allerdings wird die gesetzte Schriftfarbe beim selektierten Eintrag ignoriert. Kann man das auf einfache Weise abstellen, oder muss ich mich dafür mal wieder fürchterlich verbiegen?

Danke im Voraus.