Buenas tardes,
Retomo este tema porque esto, que funcionaba de maravilla en XP, en W7 no funciona y sólo muestra el logo con fondo negro.
Destaco que los bitmaps que uso son uno con parte que deseo transparentar en negro y el otro es igual pero con parte a transparentar en blanco.
Lo uso con este código:
- Code: Select all Expand view
Function LogoInicial(nLoop)
Define brush oBrushi style null
Define dilog oWnd title "Transparente" size 800,550 brush oBrushi style WS_POPUP
Activate dialog oWnd centered ;
on paint (ShowBmp( oWnder, "elesounds1", "elesounds2" ) ,;
Espero(nLoop) , oWnder:end() , oBrushi:end()) ;
valid .t.
Return nil
Function ShowBmp( oDlg, cBmp1, cBmp2 ) // para el agregado de logo al iniciar
local hDC := oDlg:hDC
local oBmp1, oBmp2
Define bitmap oBmp1 resource cBmp1 // para bitmaps desde recursos
Define bitmap oBmp2 resource cBmp2 // para bitmaps desde recursos
DrawBitmap( hDC, oBmp2:hBitmap, 160, 180, 0, 0, SRCPAINT )
DrawBitmap( hDC, oBmp1:hBitmap, 160, 180, 0, 0, SRCAND )
oBmp1:End()
oBmp2:End()
Return nil
Function espero(nLoop)
For f = 1 to nLoop
for g = 1 to 400000
next g
Next // f
Return nil
¿Se puede lograr esto en W7?
Gracias.
Rolando
Posted: Wed Apr 09, 2008 10:16 pm
