掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BitMapを結合させるには？ (ID：45807)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
要は「B.Width := B.Width+B2.Width;」の時点で幅が変わってるからではないかな 今時の書き方知らないんでちょっと変えたけど var B,B2: TBitmap; OriginalWidth:integer; begin B := TBitmap.Create; B2 := TBitmap.Create; try B.LoadFromFile(SRC_FILE); B2.LoadFromFile(SRC2_FILE); OriginalWidth:=B.Width; B.Width := B.Width+B2.Width; B.Canvas.CopyRect(Rect(OriginalWidth, 0,OriginalWidth+B2.Width, B.Height),B2.Canvas,Rect(0, 0, B2.Width, B2.Height)); finally B.SaveToFile('e:\1\a.bmp'); B.Free; B2.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.