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 ページに埋め込みます。2 つのオーバーロードが用意されており、3 引数の形式はピクチャを自然サイズで配置し、5 引数の形式は明示的な 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;