Logo con fondo transparente NO FUNCIONA EN W7
Posted: Wed Apr 09, 2008 10:16 pm
www.FiveTechSoft.com
https://fivetechsupport.com/forums/
https://fivetechsupport.com/forums/viewtopic.php?f=6&t=10665
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