Array
(
)

mudar cor das linhas do dbgrid

Rogsystem
   - 07 ago 2004

Bom Dia
Alguém sabe como faço para mudar cor das linhas do dbgrid
ex: quero deixar uma linha azul e outra branca alternando.


obrigado!!!!!


G1b4
   - 07 ago 2004

#Código


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If odd(Table1.RecNo) then
DBGrid1.Canvas.Brush.Color:= clWhite
else
DBGrid1.Canvas.Brush.Color:= clBlue;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;


:wink: