|
THPDFPage.AddTextWatermark Method
Syntaks
procedure AddTextWatermark(
const Text : WideString;
X, Y : Single;
Angle : Extended;
Opacity : Single;
const FontName: AnsiString;
FontStyle : TFontStyles;
FontSize : Single;
Color : TColor);
Beskrivelse
AddTextWatermark tegner rotert, gjennomsiktig tekst på
gjeldende side. Den registrerer en ExtGState med samsvarende fyll- og
strek-alfa, lagrer gjeldende grafikktilstand, bruker vannmerkeskriften
og fyllfargen, skriver teksten og gjenoppretter den forrige
grafikktilstanden
Opacity begrenses til området 0..1
Verdier under 1 krever støtte for PDF-gjennomsiktighet og
avvises av de samme PDF/A- og PDF/X-profilkontrollene som brukes av
RegisterExtGState. Bruk denne metoden på genererte sider
eller på sider som er valgt etter LoadFromFile og
BeginDoc
Eksempel
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;
Se også
|