THPDFPage.AddTextWatermark Méthode

Syntaxe

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

Description

AddTextWatermark trace du texte transparent en rotation sur la page courante. Il enregistre un ExtGState avec des alpha de remplissage et de tracé identiques, sauvegarde l'état graphique courant, applique la police du filigrane et la couleur de remplissage, émet le texte, puis restaure l'état graphique précédent

Opacity est borné à l'intervalle 0..1 les valeurs inférieures à 1 nécessitent la prise en charge de la transparence PDF et sont rejetées par les mêmes contrôles de profil PDF/A et PDF/X utilisés par RegisterExtGState ; Utilisez cette méthode sur des pages générées ou sur des pages sélectionnées après LoadFromFile et BeginDoc

Exemple

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;

Voir aussi

Méthodes THPDFPage