Add page with text programmatically
Hello,
I'm a newbe and want create a report totally programmatically.
I did the following:
var
FRX : TfrxReport;
Blz : TfrxReportPage;
frMemo : TfrxMemoView;
begin
FRX := TfrxReport.Create(nil);
Blz := TfrxReportPage.Create(FRX);
Blz.CreateUniqueName;
Blz.SetDefaults;
Blz.Orientation := poPortrait;
frMemo := TfrxMemoView.Create(nil);
frMemo.Memo.Add('test');
FRX.Pages[0].Objects.Add(frMemo);
FRX.PrepareReport;
FRX.ShowPreparedReport;
end;
It crashes and asks for frxClass.pas.
Whatever I try, it does not work...
Help is needed
Regards
I'm a newbe and want create a report totally programmatically.
I did the following:
var
FRX : TfrxReport;
Blz : TfrxReportPage;
frMemo : TfrxMemoView;
begin
FRX := TfrxReport.Create(nil);
Blz := TfrxReportPage.Create(FRX);
Blz.CreateUniqueName;
Blz.SetDefaults;
Blz.Orientation := poPortrait;
frMemo := TfrxMemoView.Create(nil);
frMemo.Memo.Add('test');
FRX.Pages[0].Objects.Add(frMemo);
FRX.PrepareReport;
FRX.ShowPreparedReport;
end;
It crashes and asks for frxClass.pas.
Whatever I try, it does not work...
Help is needed
Regards
Comments