![]() |
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 |
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. |
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 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. |
| La franja horaria es GMT +2. Ahora son las 04:51:02. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi