[Resolved] Blit this foo! (Transparency Stuff)

[The Hobo]

I tried writing a TransBlt function, but it doesn't really work...

Private Sub TransBlt(hPicture As Long, iFromX As Integer, iFromY As Integer, _
  hMask As Long, iFromMaskX As Integer, iFromMaskY As Integer, hTo As Long, _
  x As Integer, y As Integer, iWidth As Integer, iHeight As Integer)
  
  BitBlt hTo, x, y, iWidth, iHeight, hPicture, iFromX, iFromY, vbSrcPaint
  BitBlt hTo, x, y, iWidth, iHeight, hMask, iFromX, iFromY, vbSrcAnd
End Sub

Where am I going wrong?

[The Hobo]

Nevermind. I found the problem already. I was blitting the picture before the mask.

[cyborg]

hey! i tried that code (fixed it first) but something was wrong...
were it was supposed to be transparent, it changed the color of the BG....why?

[cyborg]

oh! nevermin this too...
i just changed the bg color of the pic to black, and it worked...

[jmiller]

theres a api function called transparantblt too

[The Hobo]

Originally posted by jmiller
theres a api function called transparantblt too

However, it caused bad memory leaks on most operating systems and is only available in OS > 95.