Logo con fondo transparente NO FUNCIONA EN W7

[rolando]

Buenas tardes,

Necesitaría que al iniciar mi aplicación y, antes que esta comience, se viera en pantalla el logo como se ve el del ejemplo del isobuster.



Es un logo cuyo fondo es transparente.

¿Se puede?, ¿Cómo?

Gracias

Rolando

[Antonio Linares]

Rolando,

Revisa fwh\samples\NewHelp.prg

En ese ejemplo puedes ver como mostrar un bitmap en la pantalla, sin que se vea el diálogo en donde está situado.

Te sale una caja de diálogo, pulsa en el boton "help" y luego pulsa en cualquier control de la caja de diálogo para ver la ayuda "flotante".

[Antonio Linares]

Tambien puedes revisar:
http://fivetechsoft.com/forums/viewtopic.php?t=10204

[JOSEMAR]

ROLANDO;

msglogo("c:\HARBOUR\bitmaps\imagen.bmp",1)
ANTES DE DEFIDIR LA VENTANA
DONDE 1 ES TIEMPO QUE QUIERAS QU APARESCA

[rolando]

Muchas gracias a todos.

Ya hice andar los ejemplos.

Ahora voy a tratar de implementarlos.

Rolando

[rolando]

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