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

Материал из DRKB

Как сделать картинки в 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;


Source: http://delphiworld.narod.ru/
ID: 01259