|
THPDFPage.AddTextWatermark Method
Syntax
procedure AddTextWatermark(
const Text : WideString;
X, Y : Single;
Angle : Extended;
Opacity : Single;
const FontName: AnsiString;
FontStyle : TFontStyles;
FontSize : Single;
Color : TColor);
Kuvaus
Metodi AddTextWatermark piirtää kierrettyä läpinäkyvää tekstiä nykyiselle sivulle. Se rekisteröi ExtGState-tilan vastaavalla täyttö- ja viiva-alphalla, tallentaa nykyisen grafiikkatilan, ottaa käyttöön vesileiman fontin ja täyttöväri, tuottaa tekstin ja palauttaa edellisen grafiikkatilan
Läpinäkyvyys Opacity on rajattu alueelle 0..1. Arvot alle 1 vaativat PDF-läpinäkyvyystuen ja ne hylätään samoissa PDF/A- ja PDF/X-profiiliporteissa, joita metodi RegisterExtGState käyttää. Käytä tätä menetelmää luoduilla sivuilla tai sivuilla, jotka on valittu metodien LoadFromFile ja BeginDoc jälkeen
Example
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;
See Also
|