掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像の回転後のサイズを制限するには？ (ID：29861)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
考えているうちに・・・皆さんコメントありがとうございます。 「手トリス足とりす」さんには、お手本を示していただきまして大変ありがとうございます。 時間が掛かりますが、理解し消化して使わせていただきます。 自分成りに改良案を考えていました。ボツになりますが・・・ 回転用のボタンの隣に角度入力用のEdit1を置き、作業用のTmpBmpを用意 procedure TForm1.Button2Click(Sender: TObject); var agl,agl2: Extended; begin begin If {最初の回転}then //考え中 begin agl:=StrToFloat(Edit1.Text); //回転角 agl2:=agl; end else {２回目以降の回転} agl:=StrToFloat(Edit1.Text)+agl2; //追加回転角 end; Bitmap.Assign(TmpBmp); RotateImage(Bitmap,agl); Image1.Picture.Bitmap := Bitmap; ShowMessage(FloatToStr(agl)); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.