procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Запись, описывающая создаваемую аннотацию. Ключевые поля: SubType (тип аннотации, например выделение, текстовая заметка, рукописная), Rect (ограничивающий прямоугольник в координатах пользовательского пространства PDF), Contents (текст аннотации) и Color (цвет аннотации). Заполните все relevantные поля перед передачей записи |
CreateAnnotation добавляет новую аннотацию к текущей странице, используя свойства, переданные в записи TPdfAnnotation. Аннотация добавляется в массив аннотаций страницы и сразу становится доступной через Annotation[AnnotationCount - 1]
Запись TPdfAnnotation содержит тип аннотации (SubType), её положение на странице (Rect, в точках пользовательского пространства PDF с началом координат в левом нижнем углу), видимый текст или подсказку (Contents) и цвет отображения (Color). Перед вызовом этой процедуры задайте все поля, relevantные выбранному подтипу; незаполненные поля остаются со значениями по умолчанию (нулевыми)
После создания аннотаций вызовите 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;