+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : وضع علامة مائية في تقرير fastreport (/showthread.php?tid=12711)
وضع علامة مائية في تقرير fastreport - menni_ahmed - 16-08-2024
السلام عليكم
كيف يمكن اضافة علامة مائية "watermark" في تقرير fastreport
الهدف هو استعمالها في حالة برنامج نسخة تجريبية، وبعد تفعيل البرنامج لا تظهر
وشكرا
RE: وضع علامة مائية في تقرير fastreport - seddik_xp - 16-08-2024
إستعمل الكود في المثال المرفق عند الحدث 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;RE: وضع علامة مائية في تقرير fastreport - menni_ahmed - 16-08-2024
شكرا جزيل لك اخي seddik_xp
تم التجربة وهو المطلوب تماما