Прозрачность TImage's, наложение...

[pic service]

Доброго времени суток, уважаемые мастера Делфи и ещё более многоуважаемые подмастерья)

Собственно очередной вопрос от осваивающего FMX)

Положил 2 Timage на форму.

У верхнего меняю альфа-канал, программно, по пикселям.

Но почему-то вместо обычной прозрачности, относительно подложки - возникает эффект Screen из фш по типу And смешивания изображений.

Не пойму в связи с чем это может быть связано?

Глюк FMX или мой кривой код?

Альфу меняю попиксельно так: 

TAlphaColorRec(CurrentPixelColor).A := ...; 
SetPixel(x,y,CurrentPixelColor);

 

[mmover]

Не совсем понятно что именно нужно. Если просто установить прозрачность для TImage, то у него есть свойство
Opacity. Если необходимо работать именно с Bitmap, то можно попробовать так:
  ...
  M.SetPixel(x, y, PremultiplyAlpha(CurrentPixelColor));

 

[pic service]

Да, спасибо - то что нужно!)