アルファつきTBitmap - Delphi 2009

Delphi2009では TBitmapでアルファつきのビットマップを扱えるようになりました。 さっそく試してみます。 まず、下図のフォームを作ります。フォームにButtonとImageコンポーネントを張り付けました。ImageコンポーネントのPictureプロパティを編集して画像を読み込ませます。


今回用いた画像は下図のとおりです。


この画像はアルファチャンネルも持っています。アルファチャンネルは下図のとおりです。


Buttonのイベントハンドラにコードを書きます。コードは下図のとおりです。 (注意：３行目にImage1.refreshを記述したほうが望ましいでしょう。)


実行します。




ボタンをクリックすると下図の実行結果が得られます。アルファチャンネルを使って描画されていることが確認できました。