Relatório Zebrado no FastReport

Delphi

28/05/2008

Boa noite pessoal, gostaria que alguém me ajudasse a fazer um relatório zebrado no FastReport, ou seja que os registros fiquem com uma linha destacada (de outra cor) e uma em branco e assim sucessivamente, valeu pessoal, abraços.


Onhide86

Onhide86

Curtidas 0

Respostas

Marcosrocha

Marcosrocha

28/05/2008

Eu tenho a licença do Fast, aprendi a programar com ele, mas hoje em dia não o utilizo mais, faz tempo que eu não mexo no Fast.
Mas faça o seguinte:
Crie uma variável (pode ser inteiro mesmo) passando um valor (0 por exemplo) para ela no Before da Página Principal, Header, Cabeçalho Mestre, enfim...
Coloque um Memo atrás de todos os outros componentes na sua banda Detalhe (Detail) e no BeforePrint dele segue o código
if (nCor = 0) then
begin
  Memo1.Color := $00FF0000;
  nCor := 1;
end
else
begin
  Memo1.Color := $00FFFFFF;
  nCor := 0;
end;

Espero ter ajudado. Se o código não estiver a risca correto, você terá uma idéia de como fazer, mais ou menos.


GOSTEI 0
Onhide86

Onhide86

28/05/2008

Blz, testei e era isso ai mesmo que eu queria fazer, muito obrigado mesmo McBlade, um abraço.


GOSTEI 0
Paula

Paula

28/05/2008

Aqui ha um exemplo simples de como fazer:
http://anaprogramadorajunior.blogspot.com.br/2018/02/relatorio-zebrado-no-fastreport.html

GOSTEI 0
POSTAR