procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Rekord opisujący adnotację do utworzenia. Kluczowe pola to SubType (typ adnotacji, np. wyróżnienie, notatka tekstowa, odręczna), Rect (prostokąt ograniczający we współrzędnych przestrzeni użytkownika PDF), Contents (tekst adnotacji) oraz Color (kolor adnotacji). Wypełnij wszystkie istotne pola przed przekazaniem rekordu. |
CreateAnnotation dodaje nową adnotację do bieżącej strony, korzystając z właściwości podanych w rekordzie TPdfAnnotation. Adnotacja jest dołączana do tablicy adnotacji strony i staje się natychmiast dostępna przez Annotation[AnnotationCount - 1].
Rekord TPdfAnnotation przechwytuje typ adnotacji (SubType), jej położenie na stronie (Rect, w punktach przestrzeni użytkownika PDF z początkiem układu w lewym dolnym rogu), widoczny tekst lub podpowiedź (Contents) oraz kolor wyświetlania (Color). Ustaw każde pole istotne dla wybranego podtypu przed wywołaniem tej procedury; nieustawione pola pozostają z wartościami zerowymi.
Po utworzeniu adnotacji wywołaj SaveAs, aby utrwalić zmiany na dysku. Aby usunąć adnotację, użyj DeleteAnnotation z odpowiednim indeksem liczonym od zera.
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;