Phương thức THPDFPage.AddTextWatermark

Cú pháp

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

Mô tả

AddTextWatermark vẽ văn bản trong suốt đã xoay trên trang hiện tại. Phương thức này đăng ký một ExtGState với alpha tô và nét khớp nhau, lưu trạng thái đồ họa hiện tại, áp dụng phông và màu tô của watermark, phát ra văn bản rồi khôi phục trạng thái đồ họa trước đó

Opacity được kẹp trong phạm vi 0..1. Các giá trị nhỏ hơn 1 cần hỗ trợ độ trong suốt PDF và sẽ bị từ chối bởi cùng các rào kiểm hồ sơ PDF/A và PDF/X mà RegisterExtGState dùng. Dùng phương thức này trên các trang được tạo ra hoặc trên các trang được chọn sau LoadFromFile và BeginDoc

Ví dụ

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;

Xem thêm

• Các phương thức THPDFPage
• RegisterLineGraphicsState
• Translate / Scale / Rotate