掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Metafileの部分拡大について (ID:34059)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TMetafileについてはあまり詳しくないのですが、 CopyRectのCanvas指定はTMetafileCanvasではダメなような 感じがするので、一度MetafileをBitmapにStretchDrawで描画して、 そのBitmapからImage1にコピーしたらいいと思いますよ。 var CutRect :TRect; Bitmap :TBitmap; ZoomRect :=Bounds(100, 100, 50, 50); Meta := TMetafile.Create; Meta.LoadFromFile('Map.wmf'); Bitmap :=TBitmap.Create; try //2倍に拡大 Bitmap.Width :=Meta.Width * 2; Bitmap.Height :=Meta.Height * 2; Bitmap.Canvas.StretchDraw(Rect(0, 0, Bitmap.Width, Bitmap.Height), Meta); Image1.Canvas.CopyRect(Rect(0,0,Image1.Width, Image1.Height), Bitmap.Canvas, Rect(ZoomRect.Left * 2, ZoomRect.Top * 2, ZoomRect.Right * 2, ZoomRect.Bottom * 2)); finally Bitmap.Free; end; Meta.Free;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.