Листинг 6.12.
Альфа-смешивание средней области
//в средней области постоянная альфа = 100 %, а исходная равна 0
for y := 0 to ulBitmapHeight – 1 do
for x := 0 to ulBitmapWidth – 1 do
if (x > Integer(ulBitmapWidth div 5)) and
(x < (ulBitmapWidth – ulBitmapWidth div 5)) and
(y > Integer(ulBitmapHeight div 5)) and
(y < (ulBitmapHeight – ulBitmapHeight div 5)) then
//в середине точечного рисунка альфа равна нулю,
//это означает, что каждый цветной компонент умножается на 0.
//Таким образом, после альфа-смешивания мы получим 0 * r,
//0x00 * g, 0x00 * b ($00000000)
//установим сейчас цвет пикселов в красный
PULONG(Integer(pvBits) +
(x + y * ulBitmapWidth) * eof(ULONG))^ := $00ff0000
else
//остальную часть точечного рисунка сделаем синей
PULONG(Integer(pvBits) +
(x + y * ulBitmapWidth) * sizeof(ULONG))^ := $000000ff;
bf.BlendOp := AC_SRC_OVER;
bf.BlendFlags := 0;
bf.AlphaFormat := AC_SRC_ALPHA; //используем исходную альфа
bf.SourceConstantAlpha := $ff; //непрозрачный
if not Windows.AlphaBlend(hdcwnd, ulWindowWidth div 5,
ulWindowHeight div 5 + ulWindowHeight, ulBitmapWidth,
ulBitmapHeight,
hCurDC, 0, 0, ulBitmapWidth, ulBitmapHeight, bf) then
begin
DeleteObject(hbmp);
DeleteDC(hCurDC);
Exit;
end;
В последней части происходит градиентное альфа-смешивание. Соответствующий код приведен в листинге 6.13.