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;