Прошу помощи с Bitmap

[Fedia74]

Здравствуйте.

Прошу помочь разобраться с наложением картинки на некоторый фон с тем условием что бы пиксели накладываемой картинки с чёрным цветом (0 0 0) не закрашивали фон.

Много ковырялся в инете но так и не смог найти рабочей код.

мой вариант такой

a:=TBitmap.Create;
a.assign(ManP[1,1].Bitmap); // Картинку с массива картинок перекидываю в BitMap a для простоты восприятия
//a.Transparent:=true; Пробовал как вариант
//a.TransparentMode:=tmAuto;

a.Transparent := true;
a.TransparentMode := tmFixed;
a.TransparentColor:= clBlack; // $0;

Scr1.Canvas.Draw(x,y,a);

Но к сожалению картинка накладывается полностью без зоны прозрачности ((((( , хотя на картинке очень много чёрного цвета .

Что не так подскажите.

[Pavia]

Значит пиксели фона не строго чёрные.

[Pavia]

Через scanline рассчитываешь альфа-канал как разность между черным цветом и текущим.
Color4.A:=(abs(color4.b-color.b)+abs(color4.g-color.g)+abs(color4.r-color.r)) div 3;

Через pixels[x,y] -не получится он альфу искажает.
А после того как рассчитала используете AlphaBlend

[Fedia74]

Сообщение от Pavia

Значит пиксели фона не строго чёрные.

А почему пиксели ФОНА ???? Наверно картинки которую на фон кладу ????

В корел фото паинт рисовал картинку там градусник показывал что чёрный 0 0 0.

[Fedia74]

Сообщение от Pavia

Через scanline рассчитываешь альфа-канал как разность между черным цветом и текущим.
Color4.A:=(abs(color4.b-color.b)+abs(color4.g-color.g)+abs(color4.r-color.r)) div 3;

Через pixels[x,y] -не получится он альфу искажает.
А после того как рассчитала используете AlphaBlend

Огромное спасибо за подсказку , но я в этом новичёк и для меня это тёмный лес , можно пример какой нибудь , что бы изучить его ?

[Fedia74]

В старом добром Турбо паскале была процедурка такая PutImage(x,y,TypePut) где TypePut это тип наложения картинки NormalPut, XorPut и прочее , в Лазарусе есть такое же ?

[Fedia74]

Всё получилось !!!!

Действительно в картинке черные были не чисто черными пикселями , это произошло поскольку JPG уродует , подчистил всё и сохранил в BMP и всё стало, как в проге выше , работать.

Спасибо за помощь !!!!