Color DBGrid con BD Access
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
|