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.
![Image](http://img153.imageshack.us/img153/5783/isobusterlogoao7.th.jpg)
Es un logo cuyo fondo es transparente.
¿Se puede?, ¿Cómo?
Gracias
Rolando
![Very Happy :D](./images/smilies/icon_biggrin.gif)
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 146 guests