AlphaBlend

[mrbadge]

Использую AlphaBlend, чтобы получить прозрачную "дырку" в битмапе. (RGB каналы умножены в обратном порядке на значение α-канала).

var blend: BLENDFUNCTION;
...
with blend do begin
  BlendOp := AC_SRC_OVER; // one blend op really supported
  BlendFlags := 0;
  AlphaFormat := AC_SRC_ALPHA;
  SourceConstantAlpha := 150;
  end;
  AlphaBlend(fld.Picture.Bitmap.Canvas.Handle, 0, 0, 100, 100,
           bm_smog_tmp.canvas.handle,
          0, 0, 100, 100, blend);
...
fld.Canvas.Draw(0, 0, bm_smog_tmp);

fld (TImage) - нижний слой
bm_smog_tmp (TBitmap) - верхний слой
В результате получается просто черный фон, что в корне не верно)
Заранее благодарен за помощь.

[luckyleo769]

не получится записать альфа канал в простой битмап, ибо там информация RGB и об альфа он понятия не имеет.

можно попробовать то же самое провернуть на битмапе TPNGObject, по-мойму он ABGR

А вообще тебе в помощь GDI+ и не заморачивайся - разобраться легко и быстро