FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Logo con fondo transparente NO FUNCIONA EN W7
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Logo con fondo transparente NO FUNCIONA EN W7
Posted: Wed Apr 09, 2008 10:16 PM
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 :-)
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Logo con fondo transparente NO FUNCIONA EN W7
Posted: Thu Apr 10, 2008 08:48 AM

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".

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Logo con fondo transparente NO FUNCIONA EN W7
Posted: Thu Apr 10, 2008 09:01 AM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 73
Joined: Thu Dec 06, 2007 04:51 PM
Logo con fondo transparente NO FUNCIONA EN W7
Posted: Thu Apr 10, 2008 03:35 PM

ROLANDO;

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

SALUDOS, JOSE MARQUEZ

JUAN DIAZ COVARRUBIAS,VERACRUZ ,MEXICO
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Logo con fondo transparente NO FUNCIONA EN W7
Posted: Thu Apr 10, 2008 11:16 PM

Muchas gracias a todos.

Ya hice andar los ejemplos.

Ahora voy a tratar de implementarlos.

Rolando :D :D

Posts: 593
Joined: Sat May 12, 2007 11:47 AM
Re: Logo con fondo transparente
Posted: Sun Jul 15, 2012 05:44 PM
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 (fw): Select all Collapse
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 :-)

Continue the discussion