Listview ganze Spalte färben

[Amenovis]

OK bei deiner Version brauch ich 3 Blöcke..

Eine eigene Prozedur
Dann ein Block für die Erste Spalte (Caption)
Dann ein Block für die 2te bis xte Spalte (Subitems).

Geht das nicht theoretisch auch ohne eigene Prozedur

Ein Block für die erste Caption Spalte
und ein Block für Subitems

Wie der erste Block aussehen müsste weiss ich nun nicht aber bei subitems ginge doch

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
 Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
//if (Item=nil) then Exit;
with Sender.Canvas.Brush do
if Item.SubItems[0] then Color:=clred else
if Item.SubItems[1] then Color:=clgreen else
if Item.SubItems[2] then Color:=clyellow else
if Item.SubItems[3] then Color:=clgray else
end;

oder spricht da etwas gegen ???