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;