Можно ли добавить текст (например, водяной знак) в уже сформированные страницы?

Question

Accepted Answer

Можно добавить текст как в превью в событии TfrxReport.OnEndDoc

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; //так и перед непосредственной печатью страницы в событии TfrxReport.OnPrintPage 
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;