Criação de objetos no script
É possível adicionar objetos novos a um relatório usando um script. Vamos demonstrar como isso é feito através de um exemplo simples. Crie um relatório em branco e insira este código no procedimento principal do script:
PascalScript:
var
Band: TfrxReportTitle;
Memo: TfrxMemoView;
begin
Band := TfrxReportTitle.Create(Page1);
Band.Height := 20;
Memo := TfrxMemoView.Create(Band);
Memo.SetBounds(10, 0, 100, 20);
Memo.Text := 'Este memorando foi criado por código';
end.
C++ Script:
TfrxReportTitle Band;
TfrxMemoView Memo;
{
Band = TfrxReportTitle.Create(Page1);
Band.Height = 20;
Memo = TfrxMemoView.Create(Band);
Memo.SetBounds(10, 0, 100, 20);
Memo.Text = "Este memorando foi criado por código";
}
Visualize o relatório:
Observe que não destruímos os objetos FastReport que criamos neste exemplo. Isso não é necessário, já que objetos do FastReport são destruídos automaticamente pelo aplicativo Delphi após concluir o relatório. Também observe que quando criamos objetos Delphi padrão em um script (como TStringLists
), também precisamos destruí-los no script, já que isso não é feito automaticamente pelo aplicativo.