เมธอด THPDFPage.AddTextWatermark

ไวยากรณ์

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

คำอธิบาย

AddTextWatermark วาดข้อความโปร่งใสที่หมุนแล้วบน page ปัจจุบัน โดยลงทะเบียน ExtGState ที่มี fill และ stroke alpha ตรงกัน, save graphics state ปัจจุบัน, ใช้ watermark font และ fill color, emit ข้อความ แล้ว restore graphics state ก่อนหน้า

Opacity ถูก clamp อยู่ในช่วง 0..1 ค่า below 1 ต้องใช้ PDF transparency support และถูกปฏิเสธโดย gates ของ PDF/A และ PDF/X profile เดียวกับที่ RegisterExtGState ใช้ ใช้ method นี้กับ pages ที่สร้างขึ้นหรือ pages ที่เลือกหลัง 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;

ดูเพิ่มเติม

• เมธอด THPDFPage
• RegisterLineGraphicsState
• การเลื่อนตำแหน่ง / การปรับขนาด / การหมุน