mudar cor das linhas do dbgrid

Delphi

07/08/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!!!!!


Rogsystem

Rogsystem

Curtidas 0

Respostas

G1b4

G1b4

07/08/2004

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:


GOSTEI 0
POSTAR