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