Farbige ListView Einträge

[Sharky]

Hai MrKnogge,

dann musst Du es im OnCustomDrawSubItem machen.

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
with ListView1.Canvas.Font do
  begin
    //Item.Index = Zeile und SubItme = Spalte (bei 0 beginnend)
    if (Item.Index = 0) AND (SubItem = 1) then 
    begin
      Color := clred;
    end
    else
    begin
      Color := clBlack;
    end;
  end;
end;