Delphi/C++ Builder の TImageList へビットマップの左下を透過色に指定しつつ追加

Delphi/C++ Builder の TImageList へビットマップの左下のピクセル色を透過色に指定しつつ追加

TImageList の AddMasked メソッドを使用する際、第二引数に透過色を指定すればよいが、Canvas プロパティの Pixels を利用すると簡単に可能

左下

1. ImageList.AddMasked(Bitmap, Bitmap.Canvas.Pixels[0, Bitmap.Height -1]);  

ImageList.AddMasked(Bitmap, Bitmap.Canvas.Pixels[0, Bitmap.Height -1]);

右下なら

1. ImageList.AddMasked(Bitmap, Bitmap.Canvas.Pixels[Bitmap.Width -1, Bitmap.Height -1]);  

ImageList.AddMasked(Bitmap, Bitmap.Canvas.Pixels[Bitmap.Width -1, Bitmap.Height -1]);

左上なら

1. ImageList.AddMasked(Bitmap, Bitmap.Canvas.Pixels[0, 0]);  

ImageList.AddMasked(Bitmap, Bitmap.Canvas.Pixels[0, 0]);