ListView en el modo vsReport para colorear elementos y filas
Quiero colorear una fila en gris y la otra en blanco.
Tengo el siguiente código, pero hay un espacio en blanco de líneas verticales de columnas en Windows 7.
¿Cómo coloreo todas las filas?
procedure TForm2.Update_ListBoxCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Index mod 2=0
then
begin
Sender.Canvas.Font.Color:=clBlack;
Sender.Canvas.Brush.Color:=$F6F6F6;
end
else
begin
Sender.Canvas.Font.Color:=clBlack;
Sender.Canvas.Brush.Color:=clWhite;
end;
end;