名前
題名
▼ おかぽんさん > 余計な部分の描画を抑えたいということであれば・・・ > > 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; > > 試していないので、できるかわかりませんけど。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link