procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. L’objet image source à intégrer. Le graphique dans Picture est converti et placé sur la page à taille naturelle (dérivée de Picture.Width / Picture.Height en pixels, mappés aux unités utilisateur PDF) |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. L’objet image source à intégrer. Le graphique est mis à l’échelle pour tenir dans le rectangle Width × Height spécifié sur la page |
AddPicture intègre le graphique contenu dans un objet TPicture sur la page PDF courante. Deux surcharges sont fournies : la forme à trois coordonnées place l’image à sa taille naturelle, tandis que la forme à cinq coordonnées la met à l’échelle selon un rectangle Width × Height
TPicture est le conteneur VCL/LCL standard pour tout format graphique enregistré. Comme il n’est pas spécifique à un format, vous pouvez transmettre des bitmaps, des images PNG, des images JPEG ou tout autre graphique chargé dans une instance de TPicture. Pour placer un TBitmap simple directement, préférez AddImage. Pour des données de flux JPEG brutes, utilisez AddJpegImage
Les paramètres X et Y définissent le coin inférieur gauche de l’image en unités utilisateur PDF (origine en bas à gauche de la page, Y croît vers le haut). Lorsque Width et Height sont omises, la taille de placement est déduite des dimensions en pixels de l’image en supposant 72 DPI
var
Pic: TPicture;
begin
Pic := TPicture.Create;
try
Pic.LoadFromFile('C:\Images\chart.png');
// Place at natural size, lower-left at (72, 500)
Pdf1.AddPicture(Pic, 72, 500);
// Or scale to an explicit 300 x 200 pt rectangle
Pdf1.AddPicture(Pic, 72, 200, 300, 200);
finally
Pic.Free;
end;
end;