Delphi dicas

Relatório zebrado no qreport

{Veja como fazer um relatório zebrado pelo Qreport bem simples. 1º declare na Unit uma variável pública como:}



public

{Public declaration}

contador:integer;



{depois selecione o QRBand(detail) onde estão os QRDBText, click no evento BeforePrint da band e coloque o seguinte}



procedure TForm1.QRBand1BeforePrint(Sender:TQRCustomBand; var PrintBand:Boolean);

begin

        if odd(contador) then

        QRBand1.color:=clWhite

        else

        QRBand1.color:=clBtnFace;

        contador:=contador+1;

end;



{Agora não esqueça de selecionar os QRDBText e  no object inspector torná-los transparentes. No button que colocou para imprimir digite:}



procedureTForm1.Button1Click(Sender:TObject);

begin

        contador:=0;

        QuickRep1.Preview;

end;



{execute F9(RUN) e pronto, seu relatório zebrado está pronto para funcionar. Se o nome de sua QRBand ou Button tiver diferentes é só subustituí-los no código.}

por : Samuel Kleber Da Silva Lima