掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像の回転後のサイズを制限するには？ (ID：29855)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ビットマップを回転描画する例は、いくつか紹介されていますが、例えば、 http://wblue.web.infoseek.co.jp/lec/one/04/o004a.htm procedure RotateImage(Bitmap: TBitmap; const Angle: Extended); ・・・の「画像の自由角度回転」を使わせていただいて、 下のように呼ぶと、ちゃんと回転して表示してくれるのですが、 この回転を繰り返すと、回転後の画像がどんどん大きくなります。 最大（制限値）を決めて置くのかな・・・とも思いましたが、 おそらく何か良い方法があるのでしょうね？ そんな方法を教えていただきたくて質問します。 よろしくお願いします。（Delphi6Pro+winXP） procedure TForm1.Button2Click(Sender: TObject); var agl: Extended; begin agl:=30; //回転角 RotateImage(Bitmap,agl); Image1.Picture.Bitmap := Bitmap; Button2.Enabled:=True; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.