fastreport的水纹

ou can add text in TfrxReport.OnEndDoc event
procedure TForm1.frxReport1EndDoc(Sender: TObject);
var 
    p: TfrxReportPage;
    m: TfrxMemoView;
    i: integer;
begin
    frxReport1.Preview.Lock;
    for i := 0 to frxReport1.PreviewPages.Count - 1 do
        begin
            p:=TfrxReportPage(frxReport1.PreviewPages.Page[i]);
            m:=TfrxMemoView.Create(p);
            m.CreateUniqueName;
            m.SetBounds(0, 0, (p.PaperWidth - p.RightMargin - p.LeftMargin) * fr01cm, (p.PaperHeight - p.TopMargin - p.BottomMargin) * fr01cm);
            m.Text := 'Demo';
            m.Rotation := 45;
            m.Font.Size := 128;
            m.VAlign := vaCenter;
            m.HAlign := haCenter;
            frxReport1.PreviewPages.ModifyPage(i,p);
        end;
    frxReport1.Preview.UnLock;
end;


or in TfrxReport.OnPrintPage event

procedure TForm1.frxReport1PrintPage(Page: TfrxReportPage;CopyNo: Integer);
var 
    m: TfrxMemoView;
begin
    m:=TfrxMemoView.Create(page);
    m.CreateUniqueName;

 

 

 

 

来自于土豪大量。