|
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
|