دخول

menni_ahmed · 16-08-2024, 08:20 AM

السلام عليكم
كيف يمكن اضافة علامة مائية "watermark" في تقرير fastreport
الهدف هو استعمالها في حالة برنامج نسخة تجريبية، وبعد تفعيل البرنامج لا تظهر
وشكرا

seddik_xp · 16-08-2024, 10:33 AM

إستعمل الكود في المثال المرفق عند الحدث 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;

menni_ahmed · 16-08-2024, 09:31 PM

شكرا جزيل لك اخي seddik_xp
تم التجربة وهو المطلوب تماما

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة