Ir para conteúdo
Fórum Script Brasil
  • 0

Como exibo um DBGrid "zebrado"


hencker

Pergunta

Olha eu de novo aki galera...smile.gif

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! ph34r.gif

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...