FoxPro/Visual FoxPro - Splash

 
Vista:

Splash

Publicado por Luis Alberto (46 intervenciones) el 04/01/2007 14:18:51
Que tal, miren tengo generado un splash con la ayuda de este buen foro, pero el único inconveniente es que al momento que sale este splash en la barra de tareas (junto al boton inicio, parte inferior del escritorio) me sale un recuadro mas, como si fuera una tarea fuera de mi sistema. ¿COMO HAGO PARA QUE NO SE MUESTRE EN LA BARRA DE TAREAS?
Les paso el código que gracias a un forista logre hacerlo, este codigo se coloca en un *.prg y se lo corrre, gracias de antemano.


LOCAL loPresenta
loPresenta = NEWOBJECT("FormPresenta")
loPresenta.SHOW()
** Presentation screen
DO voz
FOR ln = 1 TO 5
INKEY(.1)
ENDFOR
RELEASE loPresenta
loPresenta = NULL
**********************
* Formulario Presenta
**********************
DEFINE CLASS FormPresenta AS FORM
ALWAYSONTOP = .T.
AUTOCENTER = .T.
WIDTH = 440&&700 &&468
HEIGHT = 280&&500 &&319
NAME = "Cerrando"
SHOWWINDOW = 2
DESKTOP = .T.
TITLEBAR = 0
BORDERSTYLE = 1
MOUSEPOINTER = 11
PICTURE = "C:\JOBSYS\iconos\SPLASH.gif"
TOP = 0
LEFT = 0

ADD OBJECT Iniciar as LABEL
Iniciar.WIDTH = 450
Iniciar.HEIGHT = 25
Iniciar.FONTSIZE = 12
Iniciar.FontBold = 1
Iniciar.Curvature = 99
Iniciar.BackColor = RGB(255,0,0)
Iniciar.Alignment = 2
Iniciar.ColorSource = 4
Iniciar.TOP = 0
Iniciar.LEFT = 0
Iniciar.caption="Cerrando . . ."
*************
PROCEDURE INIT
SET CURSOR OFF
THIS.SETALL("MOUSEPOINTER", THIS.MOUSEPOINTER)
ENDPROC
*****************
PROCEDURE DESTROY
SET CURSOR ON
ENDPROC
ENDDEFINE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Splash

Publicado por Ernesto Hernandez (4623 intervenciones) el 04/01/2007 17:20:30
Te refieres a la ventana que aparece en la barra de tarea con la leyenda wait..... ???

Eso es normal compañero

Ese splash lo necesitas acomodar dentro de el programa principal de tu aplicacion para que al termino del mismo lanze tu aplicacion

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar