Relatorio zebrado no quickreport

Question

Alguem pode me ajudar a fazer um relatorio zebrado no delphi....Orbison...

Phsm · Answer

Utilize o evento beforeprint da banda de detalhes e manipule as cores da banda.......

Edukobra · Answer

crie uma vari�vel faixa : boolean na se��o var do form

var
form1: tform1;
faixa : boolean

No evento before print da banda detalhe coloque
if faixa then
bandadetalhe.color := cor que vc quer
else
bandadetalhe.color := outra cor que vc quer (branco de preferencia)

no evento beforeprint do quick vc coloca

faixa := true

Leonardo Padrin · Answer

existe um pequeno detalhe que deve ser observado. a vari�vel faixa deve receber valores contr�rios a cada impress�o, ou seja no before do print da banda detalhe deve atribuir novos valores para vari�vel   faixa := not faixa...

Leonardo Padrin · Answer

existe um pequeno detalhe que deve ser observado. a vari�vel faixa deve receber valores contr�rios a cada impress�o, ou seja no before do print da banda detalhe deve atribuir novos valores para vari�vel   faixa := not faixa...

Thiago Santana · Answer

V� se isso pode te ajudar!Declare uma vari�vel global do tipo Boolean na se��o Private do Form:typeTForm1 = class(Form)privategZebrado: Boolean;end;No evento BeforePrint do DetailBand implemente:procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);beginif ( gZebrado ) thenSender.Color:= $00EEEEEEelseSender.Color:= $00FFFFFF;gZebrado:= not gZebrado;end;...

F�rum Relatorio zebrado no quickreport #224753