Adicionar a Meu favorito

Tuesday, 15 de August de 2006

Como já mencionado nos artigos anteriores o FastReport oferece um ambiente para codificação de scripts, ou seja, código este que fica contido no próprio relatório e que interage com o mesmo.

Para demonstrar esse recurso, vamos abrir o exemplo feito no artigo passado e vamos alterar o relatório Relatorio1.fr3 para que quando o salário for menor que 60 mil Reais, o label seja impresso em vermelho. Abra o designer do fastreport e abra o modelo Relatorio1.fr3, conforme explicado nos artigo anteriores.

Clique sobre a banda Master e pressione F11, o object inspector do FastReport vai aparecer. Entre na guia Eventos e dê um clique duplo sobre o evento OnBeforePrint.

Automaticamente o FastReport abre o editor de código. Nesse Editor você pode escolher a linguagem do script, no nosso caso é PascalScript.

Codifique o evento conforme mostrado na Listagem 1.

procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if ( < 60000) then Memo6.Font.Color := clRed else Memo6.Font.Color := clBlack; end;
Listagem 1 – Evento BeforePrint

Salve o relatório e execute a aplicação. O resultado será o visto na Figura 1.


Figura 1. Preview do relatório

Conclusão

Ao utilizar o FastReport conseguimos uma flexibilidade grande na questão de relatórios. Poder escrever código no próprio relatório, independente do executável é ótimo. Fica aqui minha sugestão, espero que esta série introdutória ao FastReport tenha despertado o interesse pelo mesmo. Abraço.


Conheça nosso parceiro:

Outros artigos

Assine o Feed desta categoria

• Simulando os alertas do MSN no Delphi - 25/07/2006
• Código de Barras EAN 13 e EAN 8 - 23/07/2006
• Classe Helpers - 13/07/2006
• Procurando Letras, Palavras em um TMemo. - 26/04/2006
• Ver mais...

Comentários do artigo [Novo comentário]