watermark text on each page

mrnice

Hello, sorry if it's already asked but i don't find on forum, i found only http://www.fast-report.com/en/forum/index....mp;hl=watermark

i want at runtime add a overlay with a text at bottom of each page, i can found how add it runtime but not what and settings.

is someone havealready make it and can help me?

Thanks.

mrnice

no i have buy the pro version, i think i found.

i must at runtime take size of page and set overlay to, then set my text in overlay, right?

gpi

You 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;
         m.SetBounds(0, 0, (page.PaperWidth  - page.RightMargin - page.LeftMargin) * fr01cm, (page.PaperHeight - page.TopMargin - page.BottomMargin) * fr01cm);
         m.Text := 'Demo';
         m.Rotation := 45;
         m.Font.Size := 128;
         m.VAlign := vaCenter;
         m.HAlign := haCenter;
end;