procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. A record describing the annotation to create. Key fields include SubType (annotation type, e.g. highlight, text note, ink), Rect (bounding rectangle in PDF user-space coordinates), Contents (the annotation text), and Color (the annotation color). Fill all relevant fields before passing the record. |
CreateAnnotation lägger till en ny annotering på den aktuella sidan med egenskaperna som anges i TPdfAnnotation-posten. Annoteringen läggs till i sidans annoteringsarray och blir omedelbart åtkomlig via Annotation[AnnotationCount - 1].
TPdfAnnotation-posten fångar annoteringstypen (SubType), dess position på sidan (Rect, i PDF-användarytespunkter med origo längst ner till vänster), den synliga texten eller verktygstipset (Contents) och visningsfärgen (Color). Ange varje fält som är relevant för den valda undertypen innan denna procedur anropas; osatta fält lämnas på sina nollvärden.
After creating annotations, call SaveAs to persist the changes to disk. To remove an annotation use DeleteAnnotation with the appropriate 0-based index.
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;