Relatório - Linhas Zebradas

Vamos compartilhar uma dica relativamente simples mais que pode ajudar quem quer deixar seus relatórios um pouco mais bonitos e profissionais ou até mesmo que possui a demanda mais não sabe como fazer, vamos ver neste tópico como tornar as linhas do relatório zebradas, ou seja, uma branca e uma com cor.

Etapa 1

Criar o relatório e personalizar todo seu layout de exibição conforme imagem abaixo:

Etapa 2

Adicione o componente Shape/Poligono dentro do container Detalhe, após defina nas propiedades do componente, sub menu PEN, opções:

Color = clWhite / Style = psClear / Width = 0; 

Removemos assim as bordas do componente.

Etapa 3

Conforme a imagem, defina a LARGURA e a ALTURA DO ANTECESSOR, assim o componente terá o tamanho total da linha, após utilize a opção RECUAR, até que o "Shape1" fique atrás de todos os dados que devem ser impressos no container detalhe.

Etapa 4

Acesse a aba CÁLCULO e selecione com o botão direito o menu EVENTOS.

Etapa 5

Já na opções EVENTOS, encontre e selecione o componente "Shape1".

Nos Eventos para o Shape1, selecione o evento OnPrint(ou seja, quando for exibido), assim vamos inserir o código conforme na imagem e disponibilizado a abaixo dela com a explicação.

Explicação: 

Declarada "tag" do tipo inteiro para usarmos como verificação se a linha é impar ou par, sempre que encontra uma linha 1(impar) pinta o shape de clWhite(branco) e define que a próxima linha será 0(par), do mesmo modo ao encontrar uma linha 0(par) pinta o shape de cl3DLight(Cinza claro) e define que a próxima linha será 1(impar).

var
  tag: integer;
begin
  if Tag = 1 then
  begin
    Shape1.Brush.Color := clWhite;
    Tag := 0;
  end
  else
  begin
    Shape1.Brush.Color := cl3DLight;
    Tag := 1;
  end;
end;

Resultado - Impressão do Relatório

Existem diversas cores que podem ser usadas em todos os componentes, segue abaixo para consulta e otimização de seus relatórios:

Dentre outras.