Color DBGrid con BD Access

[mquiroga]

Alguien me puede ayudar, no estoy logrando colorear intercalado con BD MSAccess. El proceso que estoy utilizando es el siguiente:

procedure TForm_CuentasPagar.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
HoldColor: TColor;
begin
HoldColor:=DBGrid1.Canvas.Brush.Color;
If (SQLProveedores.DataSet.RecNo mod 2 = 0) then
begin
DBGrid1.Canvas.Brush.Color:=clMoneyGreen;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
DBGrid1.Canvas.Brush.Color:=HoldColor;
end;
end;

El problema con este es que SQLProveedores.DataSet.RecNo = -1
Anticipo las gracias por la ayuda.

MQA

[Neftali [Germán.Estévez]]

Revisa el CursorType que estás utilizando enla consulta/Tabla y en la conexión.
¿Qué tipo es?

Si es ServerSide es posible que por eso te esté devolviendo -1.

[[FGarcia]]

Hola!

Te recomiendo antes que nada que leas la guia de estilo. En la barra de herramientas del mensaje hay un icono que simula el partenon griego sirve para que tu codigo lo envuelvas entre las etiquetas

Código Delphi [-]
 

y se aprecie mejor. Nunca he hecho lo que tu codigo propone pero por relacion con otros comportamientos el -1 es la opcion por defecto cuando NO hay un valor. La mayoria de indices empieza en 0. Asi por ejemplo en un radiogroup el valor -1 significa que ningun boton de radio esta seleccionado, un valor de 0 indica que el boton de radio seleccionado es el primero de la lista. Prueba y si aun hay problemas vuelves a preguntar.