procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Tietue, joka kuvaa luotavan huomautuksen. Keskeisiä kenttiä ovat SubType (huomautustyyppi, esim. korostus, tekstihuomautus, muste), Rect (rajausnelikulmio PDF:n käyttäjäavaruuden koordinaateissa), Contents (huomautuksen teksti) ja Color (huomautuksen väri). Täytä kaikki asiaankuuluvat kentät ennen tietueen välittämistä |
CreateAnnotation lisää uuden huomautuksen nykyiselle sivulle käyttäen TPdfAnnotation-tietueessa annettuja ominaisuuksia. Huomautus lisätään sivun huomautusryhmään ja tulee välittömästi saataville Annotation[AnnotationCount - 1]-kautta
TPdfAnnotation-tietue sisältää huomautustyypin (SubType), sen sijainnin sivulla (Rect, PDF-käyttäjäavaruuden pisteissä origon ollessa vasemmassa alakulmassa), näkyvän tekstin tai työkaluvihjeen (Contents) ja näyttövärin (Color). Aseta jokainen kenttä, joka on oleellinen valitulle alatyyppille ennen tämän proseduurin kutsumista; asettamattomat kentät jätetään nolla-arvoihinsa
Huomautusten luomisen jälkeen kutsu SaveAs tallentaaksesi muutokset levylle. Poistaaksesi huomautuksen käytä DeleteAnnotation-komentoa sopivalla 0-pohjaisella indeksillä
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;