ListView - Item färben

[Nils_13]

Hier ein Beispiel:

Delphi-Quellcode:

procedure TfrmMain.lvTasksCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Checked then
  begin
    Sender.Canvas.Brush.Color := clWhite;
    Sender.Canvas.Font.Color  := clBlack;
  end else
  begin
    Sender.Canvas.Brush.Color := $00006CEB;
    Sender.Canvas.Font.Color  := clWhite;
  end;
end;