Buscar

Função para fazer uma dbgrid zebrada

Código

procedure PintarGrade(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if not (gdSelected in State) then
    begin
      if not DataCol mod 2 = 0 then
        (Sender as TDBGrid).Canvas.Brush.Color:= clWhite
      else
        (Sender as TDBGrid).Canvas.Brush.Color:= $00FFF0D2;
      (Sender as TDBGrid).DefaultDrawDataCell(Rect, Column.Field, State);
    end;
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 18/10/09
Por: Ricardo Silva Pereira
Visualizada: 5854 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009