procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. O înregistrare care descrie adnotarea de creat. Câmpurile cheie includ SubType (tipul adnotării, de ex. evidențiere, notă text, cerneală), Rect (dreptunghiul de încadrare în coordonate ale spațiului utilizator PDF), Contents (textul adnotării) și Color (culoarea adnotării). Completați toate câmpurile relevante înainte de a pasa înregistrarea. |
CreateAnnotation adaugă o adnotare nouă la pagina curentă folosind proprietățile furnizate în înregistrarea TPdfAnnotation. Adnotarea este adăugată la tabloul de adnotări al paginii și devine imediat accesibilă prin Annotation[AnnotationCount - 1].
Înregistrarea TPdfAnnotation captează tipul adnotării (SubType), poziția sa pe pagină (Rect, în puncte ale spațiului utilizator PDF cu originea în stânga-jos), textul vizibil sau sugestia (Contents) și culoarea de afișare (Color). Setați fiecare câmp relevant pentru subtipul ales înainte de a apela această procedură; câmpurile nesetate rămân la valorile lor zero.
După crearea adnotărilor, apelați SaveAs pentru a persista modificările pe disc. Pentru a elimina o adnotare folosiți DeleteAnnotation cu indexul bazat pe zero corespunzător.
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;