Как сделать картинки в TImageList прозрачными




procedure TForm1.Button1Click(Sender: TObject);
var
   bm : TBitmap;
   il : TImageList;
begin
   bm := TBitmap.Create;
   bm.LoadFromFile('C:\DownLoad\TEST.BMP');
   il := TImageList.CreateSize(bm.Width,bm.Height);
   il.DrawingStyle := dsTransparent;
   il.Masked := true;
   il.AddMasked(bm, clRed);
   il.Draw(Form1.Canvas, 0, 0, 0);
   bm.Free;
   il.Free;
end;


Далее: Очистить TImage »»