掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FireMonkeyでビットマップの背景を透過させるには？ (ID:43618)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは。 何が "できなくて" 何が "解らない" のかがよく判りませんが、 アルファ付の Bitmap 或いは PNG を用意して、 procedure TForm1.Button1Click(Sender: TObject); const SRC_FILE = 'C:\TEST1.BMP'; DST_FILE = 'C:\TEST2.BMP'; var Bitmap: TBitmap; SrcRect, DstRect: TRectF; begin Image1.Bitmap.LoadFromFile(SRC_FILE); Image1.Bitmap.Canvas.BeginScene; Bitmap := TBitmap.Create(0, 0); try Bitmap.LoadFromFile(DST_FILE); SrcRect := RectF(0, 0, Bitmap.Width, Bitmap.Height); DstRect := RectF(0, 0, Image1.Bitmap.Width, Image1.Bitmap.Height); Image1.Bitmap.Canvas.DrawBitmap(Bitmap, SrcRect, DstRect, 1); finally Bitmap.Free; end; Image1.Bitmap.Canvas.EndScene; end; こんな感じでイケると思います。 # TPaintBox やフォーム等の Canvas に描画する場合には # OnPaint イベントハンドラ内に記述して下さい。 それとも、 [要注意コンポーネント (2)] http://ht-deko.minim.ne.jp/ft1301.html#130105 こういう話なのでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.