Quick Report - Relat�rio Zebrado

Question

Boa noite...J� fiz uma pesquisa no forum e nenhuma dica fez o que eu desejo. Assim eu tenho um relat�rio que tr�z v�rios registros, portanto eu gostaria que cada linha do meu relat�rio viesse com uma ...

Daniel_mc · Answer

Ai eu precisaria saber se o que vai aparecer em branco/cinza se e algum QRShape. O que vc pode fazer e colocar um QRShape em forma de retangulo em volta dos campos da tabela. Criar um contador que iniciara com 1 no onCreate do Form do relatorio e no evento BeforePrint da Detail mandar mudar a cor do QRShape para quando cont for impar e incrementa o cont.

no qr o que vale � a criatividade.

o modelo que o colega daniel falou � v�lido, mas, ao inves de criar contador, no breforeprint, basta fazer:

qrshape1.enabled := not qrchape1.enabled

:wink:

Otto · Answer

[quote:b9ad228403=�daniel_mc�]Ai eu precisaria saber se o que vai aparecer em branco/cinza se e algum QRShape.O que vc pode fazer e colocar um QRShape em forma de retangulo em volta dos campos da tabela. Criar um contador que iniciara com 1 no onCreate do Form do relatorio e no evento BeforePrint da Detail mandar mudar a cor do QRShape para quando cont for impar e incrementa o cont.[/quote:b9ad228403]no qr o que vale � a criatividade. o modelo que o colega daniel falou � v�lido, mas, ao inves de criar contador, no breforeprint, basta fazer:[code:1:b9ad228403]qrshape1.enabled := not qrchape1.enabled[/code:1:b9ad228403] :wink:...

Facc · Answer

[quote:ae5b7347c8=�daniel_mc�]Ai eu precisaria saber se o que vai aparecer em branco/cinza se e algum QRShape.O que vc pode fazer e colocar um QRShape em forma de retangulo em volta dos campos da tabela. Criar um contador que iniciara com 1 no onCreate do Form do relatorio e no evento BeforePrint da Detail mandar mudar a cor do QRShape para quando cont for impar e incrementa o cont.[/quote:ae5b7347c8]Valeu pela dica, como fa�o pra saber se o numero � par ou impar?...

Adriano Santos · Answer

Se n�o me engano � ODD a fun��o:[code:1:5e9de58e82]   if Odd(Numero) then     //fa�a algo.[/code:1:5e9de58e82]...

Macario · Answer

Ol�, eu fa�o assim no evento onBeforePrint


      if QrDetalhe.Color = clWindow then
        QrDetalhe.Color := cl3DLight
      else
        QrDetalhe.Color := clWindow;

Voce poderia testar se o RecNo do DataSet for impar ou par

(acho que +/- isso)


      if Odd(Tabela1.RecNo) then
        QrDetalhe.Color := cl3DLight
      else
        QrDetalhe.Color := clWindow;

Espero que ajude. :roll:

Facc · Answer

valeu pela ajuda galeraeu usei a dica do [b:51909cb9f1]Macario not found[/b:51909cb9f1], mas testei todas as outras, e funcionaram do mesmo jeito...muito obrigado...

F�rum Quick Report - Relat�rio Zebrado #298402