掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
垂直方向180度反転かつ画像を180度回転させる (ID:29279)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
画像の 上下反転・左右反転・180度回転は CopyRect でもできるんだよ？ //180度回転 procedure TForm1.Button1Click(Sender: TObject); begin with Image1.Picture.Bitmap do begin Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0,0,Width,Height),Image1.Picture.Bitmap.Canvas,Rect(Width-1,Height-1,-1,-1)); end; end; //上下反転 procedure TForm1.Button2Click(Sender: TObject); begin with Image1.Picture.Bitmap do begin Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0,0,Width,Height),Image1.Picture.Bitmap.Canvas,Rect(0,Height-1,Width,-1)); end; end; //左右反転 procedure TForm1.Button3Click(Sender: TObject); begin with Image1.Picture.Bitmap do begin Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0,0,Width,Height),Image1.Picture.Bitmap.Canvas,Rect(Width-1,0,-1,Height)); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.