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.

[sniper_w]

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item = Sender.Selected then
  begin
    Sender.Canvas.Font.Color := clRed;
  end;
  DefaultDraw := True;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if Item = Sender.Selected then
  begin
    Sender.Canvas.Font.Color := clRed;
  end;
  DefaultDraw := True;
end;

Es funktioniert...bei mir zumindest .

[lucius]

Hmmm sniper_w,
bei mir klapt dein Code nicht.

[lucius]

Hat vielleicht noch jemand ne Loesung fuer mein Problem bitte.


MFG, Lucius.

[sniper_w]

Siehe das.