FastReport - Create von Objekten auf Seiten

[Union]

Hi,

hier ein Beispiel für das Linienzeichen. Beim Erstellen des Reports erscheinen die Linien auf jeder erzeugten Seite:

Delphi-Quellcode:

ColumnHeader := TfrxColumnHeader(ReportPage.FindObject('ColumnHeader'));


with ColumnHeader do
begin
   Clear;
   Font.Size := iFontSize;
   Height := Font.Size*2+2;
end;

with TFrxLineView.Create(ColumnHeader) do
begin
   top   := 0;
   Align := baWidth;
end;

with TFrxLineView.Create(ColumnHeader) do
begin
   top := ColumnHeader.Height;
   Align := baWidth;
end;

Die Anzahl der Seiten ausserhalb des Reports ermittelst Du so:

Delphi-Quellcode:

frxListe.EngineOptions.Doublepass := true;
frxListe.PrepareReport();
ShowMessage(Format('Anzahl Seiten: %d', [frxListe.Engine.PreviewPages.Count]));
frxListe.ShowReport();