掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TPaintBoxで図形を拡大／縮小表示するには (ID:29628)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Mr.XRAYさん。 解決済みにしたにもかかわらず、教えていただきありがとうございます。 確かに、解決済み時のこーどではギザギザになってしまいました。 Mr.XRAYさんのコードで実行するとなめらかに拡大／縮小ができました。 また、メタファイルを保存しそれを再表示するのは、 procedure TForm1.Button4Click(Sender: TObject); var AMetaFile : TMetafile; begin AMetaFile:=TMetafile.Create; try AMetaFile.LoadFromFile('TestMeta.emf'); Image1.Picture.Assign(AMetaFile); finally AMetaFile.Free; end; end; で出来ました。 あと１つ質問させていただきますと、拡張／縮小したImage1のある矩形領域 を別のImage2にそのままコピーすることはできるでしょうか。 Image2を配置し procedure TForm1.Button3Click(Sender: TObject); var rc: TRect; begin rc.Left := 10; rc.Top := 10; rc.Right := rc.Left + Image2.Width; rc.Bottom := rc.Top + Image2.Height; with Image2.Canvas do begin CopyRect(ClipRect, Image1.Canvas, rc) end; end; を実行すると 'ビットマップを持っているときのみイメージの変更が可能です' というデバッガのエラーが出ます。 厚かましい質問ですみませんが、よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.