Fórum Como faço para zebrar um dbgrid #463720

11/12/2013

0

Delphi

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

Thiago

Responder

Posts

11/12/2013

Járabe Emanuel

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.
Responder

Gostei + 0

11/12/2013

Thiago

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.
Responder

Gostei + 0

11/12/2013

Thiago

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.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar