Прозрачность картинки

[Don Leno]

К примеру есть картинка (цветная) и вторая черно-белая (альфа маска). Вопрос в том, как преобразовать картинку по альфа маске(черные участки - прозрачность)?
Гуглил, яндексил , но не могу найти вроде простой пример. Однажды видел описание на сайте gcup, но сейчас там статьи этой в помине нет.

[Хакер]

Да здесь на форуме миллион раз это обсуждалось. И с GDI+, и с FoxCBmp.dll, и куча ручных реализаций. В поиск!

[Mikle]

как преобразовать картинку по альфа маске

Что значит "преобразовать"? Добавить в картинку альфаканал, который взять из RGB другой картинки?

[Don Leno]

да именно! я об этом)))

[Хакер]

Картинка где есть? В файле? Надо файл изменить? Файл какого формата?

[Mikle]

да именно! я об этом

На SR2D это шесть строк:

Код: Выделить всё

  Dim Spr1 As New SR2D_Sprite
  Dim Spr2 As New SR2D_Sprite

  Spr1.LoadFromFile "Color.jpg"
  Spr2.LoadFromFile "Alpha.jpg"
  Spr1.MoveByte Spr2, 0, 0, ChRed, ChAlpha
  Spr1.SaveToFile "Result.png", FF_ARGB_PNG


Предполагается, что "Color.jpg" - это картинка, "Alpha.jpg" - ЧБ картинка с альфаканалом, формат может быть не JPG, а любым, доступным через GDI+.

[The trick]

Тебе нужны полупрозрачные участки?
Если маска монохромная то для вывода можешь воспользоваться MaskBlt.
Если нужно смикшировать непосредственно в битмапе, то можно многими способами сделать (вручную, используя ColorMatrix из GDI+).

[Don Leno]

Mikle, The trick спасибо за ответы, вот та Апишка которую искал MaskBlt!!! Кстати Mikle спс, я знаю об этом движке, но хочется всего достичь своим умом, так сказать для понимания))))

У кого нить есть пример объявления этой Апи?

[Mikle]

У кого нить есть пример объявления этой Апи?

В комплекте с VB6 ставится так же "Microsoft Visual Basic 6.0 Tools", там находится "API Text Viewer", там есть декларации API функций, а так же типов и констант, принятых в WinAPI.
Оттуда:

Код: Выделить всё

Public Declare Function MaskBlt Lib "gdi32" Alias "MaskBlt" (ByVal hdcDest As Long, ByVal nXDest As Long, ByVal nYDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long, ByVal dwRop As Long) As Long

[Don Leno]

еще раз огромное спасибо Mikle!