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 із відповідним індексом, що починається з 0.
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;