掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像の回転後のサイズを制限するには？ (ID:29860)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var bmp: TBitmap; Angle: Extended; procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin Button1.Enabled := False; for i:=1 to 300 do begin Image1.Picture.Bitmap.Assign(bmp); Angle := Angle + Pi / 3; // π/３単位で回転 RotateImage(Image1.Picture.Bitmap, Angle); Image1.Width := Image1.Picture.Bitmap.Width; Image1.Height := Image1.Picture.Bitmap.Height; Application.ProcessMessages; Sleep(200); if GetKeyState(VK_ESCAPE) < 0 then break;; end; Button1.Enabled := True; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.DoubleBuffered := True; bmp := TBitmap.Create; bmp.LoadFromFile('C:\My Documents\My Pictures\822p1_393x400.bmp'); Image1.Picture.Bitmap.Assign(bmp); Image1.Width := Image1.Picture.Bitmap.Width; Image1.Height := Image1.Picture.Bitmap.Height; end; procedure TForm1.FormDestroy(Sender: TObject); begin bmp.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.