Estou tentando usar um bmp-alpha em minha tela principal só que está aparecendo o fundo do bmp. Veja:
Aqui está os links para baixar os bmp´s:
http://br.geocities.com/qiinformatica2000/brick.bmp
http://br.geocities.com/qiinformatica2000/lixeira.bmp
E aqui o fonte para teste:
- Code: Select all Expand view
#include "FiveWin.ch"
*************
function MAIN
*************
local oBrush, oWnd, oBmp
define brush oBrush filename "brick.bmp"
define window oWnd title "Teste de Alpha Chanels" BRUSH oBrush
SET MESSAGE OF oWnd to "" NOINSET DATE CLOCK KEYBOARD 2007
define bitmap oBmp of oWnd filename "lixeira.bmp"
oWnd:bPainted := { | hDC | ABPaint( hDC, ( oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ), ( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) + 50, oBmp:hBitmap, 220 ) }
activate window oWnd MAXIMIZED
oBmp:end()
return NIL