掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BitMapを結合させるには？ (ID：45806)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Windows8,DelphiXE5(Update2）,FireMonkeyでテストしています。 ２つのBitMapを結合してひとつにしようと以下を実行させましたが、 できたものは、BitMapになっていないようで、ペイントでみたら 真っ黒です。２つのBitMapは同じサイズです。 procedure TForm1.Button3Click(Sender: TObject); const SRC_FILE = '1.bmp'; SRC2_FILE = '2.bmp'; var B,B2: TBitmap; SrcRect, DstRect: TRectF; begin B := TBitmap.Create(0, 0); B2 := TBitmap.Create(0, 0); B.LoadFromFile(SRC_FILE); B2.LoadFromFile(SRC2_FILE); B.Canvas.BeginScene; try B.Width := B.Width+B2.Width; SrcRect := RectF(0, 0, B2.Width, B2.Height); DstRect := RectF(B.Width, 0,B.Width+B2.Width, B.Height); B.Canvas.DrawBitmap(B2, SrcRect, DstRect, 1); finally B.Canvas.EndScene; B.SaveToFile('Nbit.bmp'); B.Free; B2.Free; end; end; DrawBitmapの使い方が誤っているのでしょうか？ ご存じの方お教え願いませんでしょうか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.