procedure AddPicture(Picture: TPicture; X, Y: Double);
| Picture | TPicture. 박아 넣을 원본 그림 객체입니다. Picture 안의 그래픽을 변환해 자연 크기(Picture.Width / Picture.Height 픽셀을 PDF 사용자 단위로 환산)로 페이지에 배치합니다 |
procedure AddPicture(Picture: TPicture; X, Y, Width, Height: Double);
| Picture | TPicture. 박아 넣을 원본 그림 객체입니다. 그래픽은 페이지에서 지정한 Width × Height 사각형에 맞게 스케일됩니다 |
AddPicture는 TPicture 객체에 담긴 그래픽을 현재 PDF 페이지에 박아 넣습니다. 오버로드는 두 가지입니다. 좌표 세 개짜리는 그림을 자연 크기로 놓고, 좌표 다섯 개짜리는 지정한 Width × Height 사각형에 맞춰 스케일합니다
TPicture는 등록된 그래픽 포맷이라면 무엇이든 담는 VCL/LCL 표준 컨테이너입니다. 포맷에 종속되지 않으므로 비트맵, PNG, JPEG 등 TPicture 인스턴스에 로드할 수 있는 그래픽은 모두 넘길 수 있습니다. 단순한 TBitmap을 곧바로 놓으려면 AddImage 쪽이 낫고, 원본 JPEG 스트림 데이터라면 AddJpegImage를 사용하세요
X와 Y 파라미터는 이미지 왼쪽 아래 모서리를 PDF 사용자 단위로 정의합니다(원점은 페이지 왼쪽 아래, Y는 위로 증가). Width와 Height를 생략하면 그림 픽셀 크기를 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;