PDA

Ver la Versión Completa : DBGrid Colorido


diegofhernando
29-05-2003, 03:07:27
Que tal foro...

Lo que pretendo es poder intercalar el color de las filas de un dbgrid, pero toda una fila es decir la primera a color A y la sengunda a color B, de esta forma la tercera a color A y la cuarta a color B... jejeje:p

Espero haberme explicado... lo cierto es que estoy saliendo y me estan esperando gracias por su colaboracion.

salu2 :cool:

FRANKER
29-05-2003, 09:57:58
Prueba a poner este código en el onDrawColumnCell del DBGrid:


procedure TFmRecaudacion.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin

//***** Dibuja una linea de cada color *****//
if Column.Field.DataSet.RecNo mod 2 = 0 then
dbgrid1.canvas.brush.color := clAqua
else
dbgrid1.canvas.brush.color := clMenu;


dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;

Lo que hace el Código es preguntar al dataset si el registro es par, y si es le asigna un color (clAqua) sino Pues le pone el Otro.

Saludos y Suerte!!.