|
THPDFPage.AddTextWatermark Method
نحو
procedure AddTextWatermark(
const Text : WideString;
X, Y : Single;
Angle : Extended;
Opacity : Single;
const FontName: AnsiString;
FontStyle : TFontStyles;
FontSize : Single;
Color : TColor);
توضیح
AddTextWatermark متن چرخان و شفاف را روی صفحه جاری رسم میکند. این متد یک ExtGState با alpha یکسان برای fill و stroke ثبت میکند، وضعیت گرافیکی جاری را ذخیره میکند، فونت و رنگ fill واترمارک را اعمال میکند، متن را emit میکند و وضعیت گرافیکی قبلی را بازمیگرداند
Opacity به بازه 0..1 محدود میشود
مقدارهای کمتر از 1 به پشتیبانی شفافیت PDF نیاز دارند و توسط همان دروازههای profile مربوط به PDF/A و PDF/X که RegisterExtGState استفاده میکند رد میشوند. از این متد روی صفحات تولیدشده یا روی صفحاتی که بعد از LoadFromFile و
BeginDoc انتخاب شدهاند استفاده کنید
مثال
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;
همچنین ببینید
|