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


0