FireMonkeyでビットマップの背景を透過させるには？ (ID:43624)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

動作的には意図するものができましたが、正しい方法か
どうかは要調査です。。。

背景が黒のbitmapfileの背景を透過しました。
Image1の背面に配置したImageがImage1の背景越しに表示
されているように見えます。

BM := TBitmap.Create(0,0);
BM.LoadFromFile(bitmapfile);

for Y := 0 to BM.Height - 1 do
  begin
  ScanArray :=  PAlphaColorArray(BM.ScanLine[Y]);
  for X := 0 to BM.Width - 1 do
  begin
    PixelColor := BM .Pixels[X,Y];
    if PixelColor = claBlack then
     begin
       ScanArray[X] := 0;
     end;
  end;
end;

Image1.Bitmap.Canvas.BeginScene;
 
Image1.Bitmap.Canvas.DrawBitmap(BM ,
                                RectF(0,
                                      0,
                                      BM.Width,
                                      BM.Height),
                                RectF(0,
                                      0,
                                      Image1.Bitmap.Width,
                                      Image1.Bitmap.Height),
                                 1);
BM .Free;

Image1.Bitmap.Canvas.EndScene;

Mr.XRAY様のＨＰ参考にさせていただきました。

>PNG は透過しますが、Bitmap は確かに透過しませんね。
アルファ付のPNGの準備を次の課題として、透過処理を行うことにしました。

解決みとして調査を続けます。
回答ありがとうございました。

←解決時は質問者本人がここをチェックしてください。

戻る