THPDFPage.AddTextWatermark Method

الصفحة الرئيسية المحتويات THPDFPage Methods

الصياغة

procedure AddTextWatermark(
  const Text    : WideString;
  X, Y          : Single;
  Angle         : Extended;
  Opacity       : Single;
  const FontName: AnsiString;
  FontStyle     : TFontStyles;
  FontSize      : Single;
  Color         : TColor);

الوصف

يرسم AddTextWatermark نصًا شفافًا مدورًا على الصفحة الحالية. يسجل ExtGState بقيم alpha مطابقة للملء والحد، ويحفظ graphics state الحالي، ويطبق خط watermark ولون الملء، ويصدر النص، ثم يستعيد graphics state السابق

يُقيَّد Opacity في المدى 0..1 والقيم دون 1 تتطلب دعم شفافية PDF وترفضها بوابات ملفات PDF/A وPDF/X نفسها التي يستخدمها RegisterExtGState. استخدم هذا التابع على الصفحات المولدة أو على الصفحات المحددة بعد LoadFromFile وBeginDocتقيد Opacity إلى النطاق 0..1. القيم الأقل من 1 تتطلب دعم شفافية PDF وترفضها بوابات PDF/A وPDF/X نفسها المستخدمة في RegisterExtGState. استخدم هذا الأسلوب على الصفحات المولدة أو الصفحات المحددة بعد LoadFromFile وBeginDoc

مثال

PDF.LoadFromFile('Input.pdf');
PDF.FileName := 'Watermarked.pdf';
PDF.BeginDoc;
for I := 0 to PDF.PagesCount - 1 do
begin
  PDF.CurrentPageNumber := I;
  PDF.CurrentPage.AddTextWatermark(
    'CONFIDENTIAL', 105, 430, -35, 0.22, 'Arial', [fsBold], 56, clSilver);
end;
PDF.EndDoc;

انظر أيضا