THPDFPage.AddTextWatermark Method

Söz dizimi

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

Açıklama

AddTextWatermark geçerli sayfaya döndürülmüş saydam metin çizer. Eşleşen dolgu ve çizgi alfalarıyla bir ExtGState kaydeder, geçerli grafik durumunu kaydeder, filigran fontunu ve dolgu rengini uygular, metni üretir ve önceki grafik durumunu geri yükler

Opacity 0..1 aralığına sınırlandırılır 1 altındaki değerler PDF saydamlık desteği gerektirir ve RegisterExtGState tarafından kullanılan aynı PDF/A ve PDF/X profil kapıları tarafından reddedilir. Bu yöntemi oluşturulan sayfalarda veya LoadFromFile ve BeginDoc sonrasında seçilen sayfalarda kullanın

Örnek

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;

Ayrıca bkz.