procedure CreateAnnotation(const Annotation: TPdfAnnotation);
| Annotation | TPdfAnnotation. Oluşturulacak ek açıklamayı tanımlayan kayıt. Başlıca alanlar şunlardır: SubType (ek açıklama türü; örn. vurgu, metin notu, mürekkep), Rect (PDF kullanıcı alanı koordinatlarında sınırlayıcı dikdörtgen), Contents (ek açıklama metni) ve Color (ek açıklama rengi). Kaydı geçirmeden önce ilgili tüm alanları doldurun. |
CreateAnnotation, TPdfAnnotation kaydında sağlanan özellikleri kullanarak geçerli sayfaya yeni bir ek açıklama ekler. Ek açıklama, sayfanın ek açıklama dizisine eklenir ve Annotation[AnnotationCount - 1] yoluyla hemen erişilebilir olur.
TPdfAnnotation kaydı; ek açıklama türünü (SubType), sayfadaki konumunu (Rect; kökeni sol altta olan PDF kullanıcı alanı noktaları cinsinden), görünür metni veya araç ipucunu (Contents) ve görünen rengi (Color) tutar. Bu yordamı çağırmadan önce seçilen alt türle ilgili her alanı ayarlayın; ayarlanmayan alanlar sıfır değerlerinde kalır.
Ek açıklamalar oluşturduktan sonra değişiklikleri diske kaydetmek için SaveAs çağırın. Bir ek açıklamayı kaldırmak için uygun 0 tabanlı dizinle DeleteAnnotation kullanın.
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;