RE:Como colocar formulario pantalla completa
ESTO TE PUEDE SERVIR PARA VER COMO SE PUEDE HACER
*----------------------------------------------------------
* PRESENTA.PRG (Nombre del archivo)
*----------------------------------------------------------
* Este programa muestra una ventana de presentación mientras
* se ejecutan todos los seteos para mi aplicación.
*----------------------------------------------------------
* USO: DO Presenta WITH "Mi Aplicación","Mi Empresa S.A."
* PARAMETROS:
* tcCaption = Título de la ventana
* tcTexto = Leyenda principal de la ventana
*----------------------------------------------------------
LPARAMETERS tcCaption, tcTexto
oPresenta = CREATEOBJECT("Presenta",tcCaption,tcTexto)
oPresenta.SHOW
_SCREEN.VISIBLE = .F.
*--- Retardo para que se muestre el form completo
DOEVENTS
DOEVENTS
DOEVENTS
****************************************
*--- Aquí hago todos los seteos
*--- o tareas mientras se muestra
*--- la presentación
*--- Para prueba espero 3"
=INKEY(3) && Sacar esta línea
****************************************
oPresenta.RELEASE
_SCREEN.VISIBLE = .T.
****************************************
*--- Aquí ya llamo al menú
*--- o formulario principal
*--- de mi aplicación:
*--- DO MiMenu.MPR
*--- ó
*--- DO FORM MiForm
****************************************
RETURN
*----------------------------------
*--- Definición de la clase
*----------------------------------
DEFINE CLASS presenta AS FORM
HEIGHT = 150
WIDTH = 380
SHOWWINDOW = 2
DOCREATE = .T.
AUTOCENTER = .T.
BORDERSTYLE = 2
CAPTION = "Andy Soft Design"
CONTROLBOX = .F.
CLOSABLE = .F.
MAXBUTTON = .F.
MINBUTTON = .F.
MOVABLE = .F.
NAME = "PRESENTA"
ADD OBJECT lblPresenta AS LABEL WITH ;
AUTOSIZE = .T., ;
FONTBOLD = .T., ;
FONTSIZE = 24, ;
BACKSTYLE = 0, ;
CAPTION = "Gestión 6.2", ;
HEIGHT = 40, ;
LEFT = 40, ;
TOP = 25, ;
WIDTH = 250, ;
TABINDEX = 1, ;
FORECOLOR = RGB(255,0,0), ;
NAME = "lblPresenta"
ADD OBJECT lblespera AS LABEL WITH ;
AUTOSIZE = .T., ;
FONTBOLD = .T., ;
FONTNAME = "Arial", ;
FONTSIZE = 10, ;
BACKSTYLE = 0, ;
CAPTION = "Espere un momento por favor...", ;
HEIGHT = 20, ;
LEFT = 70, ;
MOUSEPOINTER = 11, ;
TOP = 120, ;
WIDTH = 200, ;
TABINDEX = 2, ;
NAME = "lblEspera"
PROCEDURE UNLOAD
*--- Muestro cursor
SYS(2002,1)
ENDPROC
PROCEDURE LOAD
*--- Oculto cursor
SYS(2002)
ENDPROC
PROCEDURE INIT
LPARAMETERS tcTitulo, tcPresenta
IF NOT EMPTY(tcTitulo)
THIS.CAPTION = tcTitulo
ENDIF
IF NOT EMPTY(tcPresenta)
THIS.lblPresenta.CAPTION = tcPresenta
ENDIF
THIS.REFRESH
ENDPROC
ENDDEFINE
*----------------------------------
*--- Final de la definición de la clase
*----------------------------------
*----------------------------------
*--- Final del archivo PRESENTA.PRG
*----------------------------------