URRRRRRGENTEEEEEEEEEEEE.......
Publicado por eladio (29 intervenciones) el 09/07/2002 01:16:48
AMIGOS:TENGO EL SIGUIENTE PROBLEMA CON MI PROGRAMA
Antes de crear el ejecutable el programa funciona a las mil maravillas, pero después de crear el ejecutale e instalar el programa, no me aparece la imagen de fondo, ni el menu (MI menu.mpr), aparece el menu de vfp y por supuesto no tiene imagen de fondo, en mi programa principal le puse el sgte. Codigo:
LPARAMETERS tcCaption, tcTexto
oPresenta = CREATEOBJECT("Presenta",tcCaption,tcTexto)
oPresenta.SHOW
_SCREEN.VISIBLE = .f.
****************************************
DOEVENTS
DOEVENTS
DOEVENTS
****************************************
=INKEY(4)
****************************************
oPresenta.RELEASE
_SCREEN.VISIBLE = .t.
***************************************
_screen.caption ="Sistema Consulta Medica V1.0"
_Screen.Picture ="C:\vfp\sistema\paisaje.bmp"
set date dmy
set sysmenu to
do mimenu.mpr
do form fmenu
read events
set sysmenu to
set sysmenu to defaul
modify windows screen
****************************************
RETURN
****************************************
DEFINE CLASS presenta AS FORM
HEIGHT = 150
WIDTH = 380
SHOWWINDOW = 2
DOCREATE = .T.
AUTOCENTER = .T.
BORDERSTYLE = 2
CAPTION = "Sistema Consulta Medica ver. 1.0"
CONTROLBOX = .F.
CLOSABLE = .F.
MAXBUTTON = .F.
MINBUTTON = .F.
MOVABLE = .F.
NAME = "Presenta"
ADD OBJECT lblPresenta AS LABEL WITH ;
AUTOSIZE = .T., ;%0
Antes de crear el ejecutable el programa funciona a las mil maravillas, pero después de crear el ejecutale e instalar el programa, no me aparece la imagen de fondo, ni el menu (MI menu.mpr), aparece el menu de vfp y por supuesto no tiene imagen de fondo, en mi programa principal le puse el sgte. Codigo:
LPARAMETERS tcCaption, tcTexto
oPresenta = CREATEOBJECT("Presenta",tcCaption,tcTexto)
oPresenta.SHOW
_SCREEN.VISIBLE = .f.
****************************************
DOEVENTS
DOEVENTS
DOEVENTS
****************************************
=INKEY(4)
****************************************
oPresenta.RELEASE
_SCREEN.VISIBLE = .t.
***************************************
_screen.caption ="Sistema Consulta Medica V1.0"
_Screen.Picture ="C:\vfp\sistema\paisaje.bmp"
set date dmy
set sysmenu to
do mimenu.mpr
do form fmenu
read events
set sysmenu to
set sysmenu to defaul
modify windows screen
****************************************
RETURN
****************************************
DEFINE CLASS presenta AS FORM
HEIGHT = 150
WIDTH = 380
SHOWWINDOW = 2
DOCREATE = .T.
AUTOCENTER = .T.
BORDERSTYLE = 2
CAPTION = "Sistema Consulta Medica ver. 1.0"
CONTROLBOX = .F.
CLOSABLE = .F.
MAXBUTTON = .F.
MINBUTTON = .F.
MOVABLE = .F.
NAME = "Presenta"
ADD OBJECT lblPresenta AS LABEL WITH ;
AUTOSIZE = .T., ;%0
Valora esta pregunta
0