Como exibo um DBGrid "zebrado"

[hencker]

Olha eu de novo aki galera...

Eu peguei essa dica no site CapaBlanca que é de um dos nossos colegas de profissão e participante aki do fórum...

Como exibo um DBGrid "zebrado"?

1. Selecione seu objeto DBGrid1;

2. Na guia events do Object Inspector, dê um duplo-clique no evento OnDrawColumnCell;

3. Insira as linhas que estão em negrito:


{ ---------- Início do Código ---------- }
procedure TFormPadrao1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  
  if not odd(ADOQuery1.RecNo) then
  begin
    DBGrid1.Canvas.Brush.Color:= clMoneyGreen;
    DBGrid1.Canvas.FillRect(Rect);
    DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);

    if gdFocused in State then
    begin
      DBGrid1.Canvas.Brush.Color:= clBlack;
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
    end;
  end;
  	
end;
{ ---------- Fim do Código ---------- }

Obs.: no meu exemplo utilizei um objeto dataset ADOQuery1. Basta você alterar para o objeto dataset do seu projeto.

Até a próxima!