Listview ganze Spalte färben

[KodeZwerg]

Zitat von Amenovis:

ID | Name | Nachname |

ID keine Farbe
Name Grün
Nachname Gelb ???

So bekommst Du Grün und Gelb hin, im OnCustomDrawSubItem Event.

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
 if (Item=nil) then
   Exit;
 with Sender.Canvas do
   begin
      case SubItem of
        0: Font.Color := clGreen;
        1: Font.Color := clYellow;
      end;
   end;
end;