掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像を切り取るには (ID：8147)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TJpegImage にロードする 同サイズの TBitmap に転写 ほしいサイズの TBitmap にほしい部分を転写 （Canvas.CopyRect) TJegImage に戻して表示するなりセーブする 例 高さを半分にする uses Jpeg; procedure TForm1.Button1Click(Sender: TObject); var jpg:TJpegImage; bmp1,bmp2:TBitmap; srcRect,dstRect:TRect; begin jpg := TJpegImage.Create; bmp1 := TBitmap.Create; bmp2 := TBitmap.Create; try jpg.LoadFromFile('C:\Documents and Settings\My Pictures\サンプル.jpg'); bmp1.Assign(jpg); bmp2.Width := bmp1.Width; bmp2.Height := bmp1.Height div 2; srcRect := Rect(0,0,bmp2.Width,bmp2.Height); dstRect := srcRect; bmp2.Canvas.CopyRect(dstRect,bmp1.Canvas,srcRect); jpg.Assign(bmp2); Image1.Picture.Assign(jpg); // 確認表示 finally jpg.free; bmp1.free; bmp2.free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.