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();