TListView, in 1. Spalte Rechteck in bestimmter Farbe

[IceTube]

Würd so gehen denke ich

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
//Farbige Zeilen
(Sender As TListView).Canvas.Brush.Color := clSilver;
(Sender As TListView).Canvas.Font.Color := clBlack;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
//SubItem Color
(Sender As TListView).Canvas.Brush.Color := clWhite;

lg