Listview.Item faerbt sich nicht.

[lucius]

Hallo Leute,

Ich habe folgenden Code zum faerben der Zeile von einer nicht Vituellen Listview.

Delphi-Quellcode:

var
i : integer;
begin
DefaultDraw := true;

If PopupMenu1.Items[0].Checked = true then
  begin
    with ListView.Canvas.Font do
      begin
        for i := 0 to listview.Items.Count -1 do
         begin
          if (listview.Items[i].Selected = true) then
           begin
            Color := clred;
            PopupMenu1.Items[0].Checked := false;
           end;
         end;
        {else
         begin
          Color := clBlack;
         end;}
      end;
  end;
end;

Aber bei diesen Code faerbt sich immer nur die 1e Zeile von der Listview Rot, obwohl ich haben moechte das das selectierte Item Rot gefarbt wird.
Wie kriege ich das hin?
Besten Dank im voraus.

MFG, Lucius.