Como faço para zebrar um dbgrid

Delphi

11/12/2013

Como faço para zebrar um dbgrid? Ah tem que ser de cor azul claro.
Thiago

Thiago

Curtidas 0

Respostas

Járabe Emanuel

Járabe Emanuel

11/12/2013

Na propriedade OnDrawColumnCell do dbgrid coloque

  if odd(ClientDataSet1.RecNo) then
    DBGrid1.Canvas.Brush.Color:= claqua
  else
  DBGrid1.Canvas.Brush.Color:= clwhite;
    TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);


Espero ter ajudado.
GOSTEI 0
Thiago

Thiago

11/12/2013

Blz Járabe,
Vlw pela ajuda. Vou testar e depois te falo. Abs.,

Att.,

Na propriedade OnDrawColumnCell do dbgrid coloque

  if odd(ClientDataSet1.RecNo) then
    DBGrid1.Canvas.Brush.Color:= claqua
  else
  DBGrid1.Canvas.Brush.Color:= clwhite;
    TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);


Espero ter ajudado.
GOSTEI 0
Thiago

Thiago

11/12/2013

Funcionou vlw kra!

Blz Járabe,
Vlw pela ajuda. Vou testar e depois te falo. Abs.,

Att.,

Na propriedade OnDrawColumnCell do dbgrid coloque

  if odd(ClientDataSet1.RecNo) then
    DBGrid1.Canvas.Brush.Color:= claqua
  else
  DBGrid1.Canvas.Brush.Color:= clwhite;
    TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);


Espero ter ajudado.
GOSTEI 0
POSTAR