Creating fastreport event via code Delphi

Edilson

//no codigo Delphi [in Delphi Code]
frxReport.LoadFromFile('reportfolder\test.fr3');
with frxReport do begin
frxreport.ScriptText.Clear; //limpo o texto do script [clear script text]
frxreport.ScriptText.Add('procedure MasterDataOnBeforePrint(Sender: TfrxComponent);');
frxreport.ScriptText.Add('Begin');
frxreport.ScriptText.Add('Memotest.Color := $00FF0000;');
frxreport.ScriptText.Add('end;');
frxreport.ScriptText.Add('Begin');
frxreport.ScriptText.Add('end.');
frxreport.ScriptText.Add('masterData.OnbeforePrint :='+''''+'MasterDataOnBeforePrint'+''''+';');
frxReport.ShowReport;
end;

gordk

you are posting in the wrong forum please post in the forum of the product you are using.
and what is your question.

gpi

Try

frxReport.LoadFromFile('reportfolder\test.fr3');
with frxReport do begin
frxreport.ScriptText.Clear; //limpo o texto do script [clear script text]
frxreport.ScriptText.Add('procedure MasterDataOnBeforePrint(Sender: TfrxComponent);');
frxreport.ScriptText.Add('Begin');
frxreport.ScriptText.Add('Memotest.Color := $00FF0000;');
frxreport.ScriptText.Add('end;');
frxreport.ScriptText.Add('Begin');
frxreport.ScriptText.Add('masterData.OnbeforePrint :='+''''+'MasterDataOnBeforePrint'+''''+';');
frxreport.ScriptText.Add('end.');
frxReport.ShowReport;
end;