FoxPro/Visual FoxPro - Barra de tareas

 
Vista:

Barra de tareas

Publicado por Luis Alberto (46 intervenciones) el 28/12/2006 00:41:42
Que tal, estoy deseando generar un splash (lo consegui), pero quisiera que al momento de salir no aparezca en la barra de tareas (junto al menu inicio).
Gracias de antemano a la persona que me diga cual caracteristica debo deshabilitar para hacer eso
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

RE:Barra de tareas

Publicado por Gregory (187 intervenciones) el 28/12/2006 20:20:53
lo puedes conseguir haciendo invisible el screen del fox
ejm.

_screen.visible = .f.

luego de mostrar tu splash lo vuelves visible

pero su form de splash debe ser de nivel superior, para que cuando este invisible el screen aun se pueda ver el form

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

RE:Barra de tareas

Publicado por Luis Alberto (46 intervenciones) el 29/12/2006 00:58:28
Gracias Gregory, lo voy a probar

cualquier cosa te avisare,

Saludos
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

RE:Barra de tareas

Publicado por Luis Alberto (46 intervenciones) el 30/12/2006 01:23:29
Que tal Gregory, mira el codigo de mi splash es el siguiente, en donde debo colocar la instruccion que tu me indicaste

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 respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar