Du kannst z.B. das OnBeforePrint-Ereignis des ReportTitles verwenden um die Linien zu zeichnen.
Beispiel für eine kurze Drittel- und eine längere Mittellinie :
Delphi-Quellcode:
procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
var Line:tFrxLineView;
T,L:Extended;
begin
T := fr1cm * (Page1.TopMargin/10);
L := fr1cm * (Page1.LeftMargin/10);
Line := tFrxLineView.Create(Page1);
Line.Left := -L;
Line.Width := fr1cm*0.5;
Line.Top := -T+(fr1cm*10.4);
Line.Frame.Color := clGray;
Line := tFrxLineView.Create(Page1);
Line.Left := -L;
Line.Width := fr1cm*0.75;
Line.Top := -T+(fr1cm*14.8);
Line.Frame.Color := clGray;
end;
fr1cm dient dabei zur Umrechnung von Pixel in cm (s. Manual).
LLAP
Guido R.