掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BitMapを結合させるには？ (ID：45811)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ワーク用の TBitmap を用意すれば解決すると思います。 procedure CombineBitmap(const Src1, Src2, Dst: TFileName); var bmpSrc1, bmpSrc2, bmpDst: TBitmap; rectSrc1, rectSrc2, rectDst: TRectF; begin bmpSrc1 := TBitmap.Create(0, 0); bmpSrc2 := TBitmap.Create(0, 0); try bmpSrc1.LoadFromFile(Src1); bmpSrc2.LoadFromFile(Src2); rectSrc1 := RectF(0, 0, bmpSrc1.Width, bmpSrc1.Height); rectSrc2 := RectF(0, 0, bmpSrc2.Width, bmpSrc2.Height); rectDst := rectSrc2; OffsetRect(rectDst, bmpSrc1.Width, 0); bmpDst := TBitmap.Create(bmpSrc1.Width + bmpSrc2.Width, bmpSrc1.Height); try bmpDst.Canvas.BeginScene; bmpDst.Canvas.DrawBitmap(bmpSrc1, rectSrc1, rectSrc1, 1); bmpDst.Canvas.DrawBitmap(bmpSrc2, rectSrc2, rectDst , 1); bmpDst.Canvas.EndScene; bmpDst.SaveToFile(Dst); finally bmpDst.Free; end; finally bmpSrc1.Free; bmpSrc2.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.