Listview.Item faerbt sich nicht.

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