procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. رکوردی که حاشیهنویسیِ موردِ ایجاد را توصیف میکند. فیلدهای کلیدی شامل SubType (نوع حاشیهنویسی، مانند برجستهسازی، یادداشت متنی، جوهر)، Rect (مستطیل محاطی در مختصات فضای کاربر PDF)، Contents (متن حاشیهنویسی) و Color (رنگ حاشیهنویسی) هستند. پیش از ارسال رکورد همهٔ فیلدهای مرتبط را پر کنید |
CreateAnnotation یک حاشیهنویسی جدید با استفاده از ویژگیهای ارائهشده در رکورد TPdfAnnotation به صفحهٔ فعلی اضافه میکند. حاشیهنویسی به آرایهٔ حاشیهنویسیهای صفحه افزوده شده و بلافاصله از طریق Annotation[AnnotationCount - 1] قابل دسترس میشود
رکورد TPdfAnnotation نوع حاشیهنویسی (SubType)، موقعیت آن بر صفحه (Rect بر حسب نقاط فضای کاربر PDF با مبدأ در گوشهٔ پایینچپ)، متن مرئی یا راهنمای ابزار (Contents) و رنگ نمایش (Color) را در بر میگیرد. پیش از فراخوانی این رویه هر فیلدی که برای زیرنوع انتخابشده مرتبط است را تنظیم کنید؛ فیلدهای تنظیمنشده در مقدار صفر خود باقی میمانند
پس از ایجاد حاشیهنویسیها، برای پایدار کردن تغییرات روی دیسک SaveAs را فراخوانی کنید. برای حذف یک حاشیهنویسی از DeleteAnnotation با نمایهٔ مبتنی بر ۰ مناسب استفاده کنید
var
Ann: TPdfAnnotation;
begin
Pdf1.PageIndex := 0;
FillChar(Ann, SizeOf(Ann), 0);
Ann.SubType := asHighlight;
Ann.Rect.Left := 72.0;
Ann.Rect.Bottom := 680.0;
Ann.Rect.Right := 300.0;
Ann.Rect.Top := 695.0;
Ann.Contents := 'Key figure — review before sign-off';
Ann.Color := clYellow;
Pdf1.CreateAnnotation(Ann);
Pdf1.SaveAs('output_annotated.pdf');
end;