DbGrid Zebrado
Código
Procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if table1.RecNo mod 2 = 0 then
begin
dbgrid1.Canvas.Brush.Color:= clSilver;
dbgrid1.Canvas.FillRect(Rect);
dbgrid1.DefaultDrawDataCell(Rect,Field,State);
end;
end;
Publicidade
Vote na dica
Quantidade de votos: 0 votos
Aceitação: 0%
Detalhes da dica
Categoria: Banco de dados
Adicionada dia: 17/10/08
Por: Osvaldo
Visualizada: 5526 vezes
Adicionada dia: 17/10/08
Por: Osvaldo
Visualizada: 5526 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009