Codificando no FastReport
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.
Listagem 1 – Evento BeforePrint
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if ( < 60000) then
Memo6.Font.Color := clRed
else
Memo6.Font.Color := clBlack;
end;
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.
