THPDFPage.AddTextWatermark Method

Sintaks

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

Deskripsi

AddTextWatermark menggambar teks transparan yang diputar pada halaman saat ini. Metode ini mendaftarkan ExtGState dengan alpha fill dan stroke yang cocok, menyimpan state grafis saat ini, menerapkan font watermark dan warna fill, menuliskan teks, lalu memulihkan state grafis sebelumnya

Opacity dibatasi ke rentang 0..1 Nilai di bawah 1 memerlukan dukungan transparansi PDF dan ditolak oleh gerbang profil PDF/A dan PDF/X yang sama seperti yang dipakai RegisterExtGState. Gunakan metode ini pada halaman yang dibuat atau pada halaman yang dipilih setelah LoadFromFile dan BeginDoc

Contoh

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;

Lihat juga