Карта сайтаСсылкиКонтакты

Прозрачный Bitmap

PDF Печать
Статьи

Есть простой способ, чтобы сделать прозрачный точечный рисунок.

Будем использовать BitBlt.


MaskBitmap := TBitmap.Create;
MaskBitmap.Assign(SrcBitmap);
MaskBitmap.Mask(FColor); {transparent color}
BitBlt(DestBitmap.Canvas.Handle, x, y,
SrcBitmap.Width, SrcBitmap.Height,
MaskBitmap.Canvas.Handle, 0, 0, SRCAND);
BitBlt(DestBitmap.Canvas.Handle, x, y,
SrcBitmap.Width, SrcBitmap.Height,
SrcBitmap.Canvas.Handle, 0, 0, SRCINVERT);
MaskBitmap.Free;

По материалам http://delphi3000.com


 

Добавить комментарий


Защитный код
Обновить