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
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 43 guests