registro seleciondado de um DbGrid zebrado em outra cor ??

Delphi

10/10/2003

Estou usando esse código no DrawColumnCell, ele funciona, mas não me exibe o registro selecionado como num Dbgrid padrão.

If GrdPesq.DataSource.DataSet.RecNo mod 2 = 0 then
GrdPesq.Canvas.Brush.Color:= $00F8F5ED
else
GrdPesq.Canvas.Brush.Color:= $00FDFDF7;

GrdPesq.Canvas.FillRect(Rect);
GrdPesq.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Existe algo que eu tenha esquecido ?
Agradeço qualquer ajuda.


Marco Tomaz

Marco Tomaz

Curtidas 0
POSTAR