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

Previous  Top  Next

    
 

 

Следующий пример демонстрирует, динамическое создание компонента TImageList, используемого для рисования прозрачного битмапа.

 

Code:

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;

 

 

 

©Drkb::03763

Взято из http://forum.sources.ru