Como darle color a un TListColumn?

[iuqrul]

Hola, create un formulario pon en él un ListView, el ListView.ViewStyle a vsReport y el ShowColumnHeaders a True y enganchale estos eventos, lo que he marcado en verde sería para pintar las columnas de forma independiente, si tienes más de dos columnas las siguientes te las dejará con el color de la 2.

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
with Sender.Canvas do begin
if subItem mod 2 = 0 then
Brush.Color := clyellow
else
Brush.Color := clRed;
{ case subitem of
1: Brush.Color := clyellow;
2: Brush.Color := clRed;
end}
end;
end;

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color := clWhite;
Sender.Canvas.FillRect(ARect);
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with Sender.Canvas do begin
Brush.Color := clBlue;
end
end;


Un saludo.

[abracadabra]

Muchas gracias IUGRUL, la solución me la enviaste con rapidez, acabo de probar el código que me enviaste y da resultados. Estoy muy agradecido.
Tengo otra inquietud, quizas me puedas ayudar. Quisiera saber como cambiar el color de las cabeceras de las columnas del ListView, me refiero no al color de toda la columna, sino solo del título de la columna.
Una vez mas gracias.

[iuqrul]

En principio para hacer eso debes definir pintar el componente completamente o implementar el tuyo propio, mira aquí, yo nunca he hecho algo así, pero si he tenido ese mismo problema y no lo he abordado.

Un saludo.

[abracadabra]

Una vez mas: Gracias IUGRUL