[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.

[Perlsau]

Vielleicht würde es helfen, sich das selektierte TListItem zu merken, die Selektion aufzuheben, dann die Farbe zu setzen und danach den gemerkten Eintrag wieder zu selektieren? ... oder ItemIndex auf -1 zu setzen ...

[DeddyH]

ItemIndex auf -1 bedeutet ja, es ist kein Eintrag ausgewählt. Das ist aber nicht das, was ich möchte (alternativ könnte ich ja auch ShowSelection auf false setzen). Man soll ja den ausgewählten Eintrag erkennen können, aber bitte mit der vorgegebenen Textfarbe.

[DeddyH]

Ganz simple Lösung: SelectedTextColor auf TextColor setzen