、マスクされたビットマップをキャンバスに描画する方法は？

Question

私はビットマップとマスクを持っています（ビットマップもあります）。私はFireMonkeyのとデルファイでこれを行うにはどのように

（下図のように）マスクにビットマップを描画したいと思いますか？

Answer 1

使用TBitmap.CreateFromBitmapAndMask()

constructor CreateFromBitmapAndMask(const Bitmap, Mask: TBitmap); 

ドキュメントは言う：

作成TBitmapのマスクにおける赤チャンネルの値に等しい各色 ピクセルのアルファチャンネルの値を有します。

、さらに：

ヒント：より良い結果のために、マスク用のグレースケール画像を使用しています。これは、緑、赤、青の同量の です。

ヒント：マスクとベースビットマップの寸法は同じでなければなりません。 は、そうでなければ新しいTBitmapのはのような簡単なテストでは0

に等しい寸法を持つことになります。

procedure TForm19.Button1Click(Sender: TObject); 
var 
    bmp, msk: TBitmap; 
begin 
    bmp := nil; 
    msk := nil; 
    try 
    bmp := TBitmap.Create; 
    msk := TBitmap.Create; 
    bmp.LoadFromFile('C:\tmp\Imgs\4.bmp'); 
    msk.LoadFromFile('C:\tmp\Imgs\TestImage04.bmp'); 
    Image1.Bitmap := bmp; 
    Image2.Bitmap := msk; 
    Image3.Bitmap.CreateFromBitmapAndMask(bmp, msk); 
    finally 
    bmp.Free; 
    msk.Free; 
    end; 
end; 

結果は次のようになります。トム、仕事