procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. O objeto de imagem de origem a ser incorporado. O gráfico dentro de Picture é convertido e colocado na página em tamanho natural (derivado de Picture.Width / Picture.Height em pixels, mapeado para unidades de usuário de PDF). |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. O objeto de imagem de origem a ser incorporado. O gráfico é dimensionado para caber no retângulo Width × Height especificado na página. |
AddPicture incorpora o gráfico contido em um objeto TPicture na página PDF atual. Duas sobrecargas são fornecidas: a forma com três coordenadas coloca a imagem em seu tamanho natural, enquanto a forma com cinco coordenadas a dimensiona para um retângulo Width × Height explícito.
TPicture é o contêiner padrão da VCL/LCL para qualquer formato gráfico registrado. Como não é específico de um formato, você pode passar bitmaps, imagens PNG, imagens JPEG ou qualquer outro gráfico que tenha sido carregado em uma instância de TPicture. Para colocar um TBitmap simples diretamente, considere AddImage. Para dados brutos de stream JPEG, use AddJpegImage.
Os parâmetros X e Y definem o canto inferior esquerdo da imagem em unidades de usuário de PDF (origem no canto inferior esquerdo da página, Y aumenta para cima). Quando Width e Height são omitidos, o tamanho do posicionamento é derivado das dimensões em pixels da imagem assumindo 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;