Как использовать 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://forum.sources.ru
ID: 03763