|
余計な部分の描画を抑えたいということであれば・・・
CreateRectRgnで１ページ分の矩形範囲のリージョンを作成
SelectClipRgnで、キャンバスにクリッピングリージョンを設定する。
メタファイルの描画を行い
再度SelectClipRgnで、クリッピングリージョンを削除し
DeleteObjectで、リージョンを廃棄する。
コードで書けばこんな感じ
var
hrgn:Thandle;
bgein
hrgn := CreateRectRgn(20,20,200,250);
SelectClipRgn(Image1.Canvas.Handle, hrgn);
//ここでImage1.Canvasにメタファイル描画
SelectClipRgn(Image1.Canvas.Handle, 0);
DeleteObject(hrgn);
end;
試していないので、できるかわかりませんけど。
|