|
AddTextWatermark disegna testo trasparente ruotato sulla pagina corrente. Registra un ExtGState con alpha fill e stroke corrispondenti, salva lo stato grafico corrente, applica font e colore fill del watermark, emette il testo e ripristina lo stato grafico precedente
Syntax
procedure AddTextWatermark(
const Text : WideString;
X, Y : Single;
Angle : Extended;
Opacity : Single;
const FontName: AnsiString;
FontStyle : TFontStyles;
FontSize : Single;
Color : TColor);
Descrizione
AddTextWatermark disegna testo trasparente ruotato sulla pagina corrente. Registra un ExtGState con alpha di riempimento e tratto corrispondenti, salva lo stato grafico corrente, applica il font e il colore di riempimento della filigrana, emette il testo e ripristina lo stato grafico precedente
Opacity viene limitato all'intervallo 0..1. I valori inferiori a 1 richiedono il supporto della trasparenza PDF e vengono rifiutati dagli stessi gate dei profili PDF/A e PDF/X usati da RegisterExtGState. Usare questo metodo su pagine generate o su pagine selezionate dopo LoadFromFile e BeginDoc
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;
Vedi anche
|