السلام عليكم
كيف يمكن اضافة علامة مائية "watermark" في تقرير fastreport
الهدف هو استعمالها في حالة برنامج نسخة تجريبية، وبعد تفعيل البرنامج لا تظهر
وشكرا
إستعمل الكود في المثال المرفق عند الحدث frxReport1EndDoc.
كود :
procedure TForm1.frxReport1EndDoc(Sender: TObject);
var
page: TfrxReportPage;
watermark: TfrxMemoView;
i: integer;
begin
frxReport1.Preview.Lock;
for i := 0 to frxReport1.PreviewPages.Count - 1 do
begin
page:=TfrxReportPage(frxReport1.PreviewPages.Page[i]);
watermark:=TfrxMemoView.Create(page);
watermark.CreateUniqueName;
watermark.SetBounds(0, 0, (page.PaperWidth - page.RightMargin - page.LeftMargin) * fr01cm, (page.PaperHeight - page.TopMargin - page.BottomMargin) * fr01cm);
watermark.Text := 'نسخة تجريبية';
watermark.Rotation := 45;
watermark.Font.Size := 100;
watermark.Font.Color := clSilver;
watermark.VAlign := vaCenter;
watermark.HAlign := haCenter;
frxReport1.PreviewPages.ModifyPage(i,page);
end;
frxReport1.Preview.UnLock;
end;
شكرا جزيل لك اخي seddik_xp
تم التجربة وهو المطلوب تماما