FoxPro/Visual FoxPro - barra de fox

   
Vista:

barra de fox

Publicado por eduardo (139 intervenciones) el 24/03/2011 15:50:14
hola :

tengo este codigo en el prog principal de un proyecto:


CLOSE DATA ALL

_Screen.WindowState = 2

*- DEFINICION DE SETEOS
Set Status Bar Off
Set Status Off
Set Exact Off
Set Talk Off
Set Deleted On
Set Date Dmy
Set Bell Off
Set Echo Off
Set Escape Off
Set Scoreboard Off
Set Century On
Set Sysmenu Off
Set Safe Off
Set Exclusive Off
Set Reprocess To Automatic
Set Lock On
Set Fdow To
Set Headings Off &&& NO PONE ENCABEZADO EN TYPE
Set Notify Off
Set Confirm On
ON SHUTDOWN do salir
SET MULTILOCKS ON &&para trabajar con buffering
ON ERROR do form fr_errores with ERROR(),MESSAGE(),PROGRAM(),LINENO()
SET PROCEDURE to funciones ADDITIVE
SET CLASSLIB TO progress_bar ADDITIVE
SET CLASSLIB TO reloj_digital additive


colle=SYS(5)+CURDIR()
SET PATH TO &colle,&colle+'\tables\'
OPEN DATABASE admtaxis
PUBLIC entra,meshoy
meshoy=""
PUBLIC ARRAY diasem[7,1]
diasem[1,1]="Domingo"
diasem[2,1]="Lunes"
diasem[3,1]="Martes"
diasem[4,1]="Miercoles"
diasem[5,1]="Jueves"
diasem[6,1]="Viernes"
diasem[7,1]="Sábado"
USE admtaxis!mes
LOCATE FOR nromes=PADL(ALLTRIM(STR(month(DATE()))),2,"0")
IF FOUND()
meshoy=mes.nombre
endif
USE &&cierro tabla mes
entra=0

ZOOM WINDOWS SCREEN MAX
USE admtaxis!parametros
SELECT parametros
_screen.Caption="ADMINISTRACION DE TAXIS"

_screen.visible=.T.
_screen.autocenter=.T.
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.


DO FORM fpassword WITH entra

IF (entra=1)

SELECT parametros
ZOOM WINDOWS SCREEN MAX
_screen.visible=.T.
_screen.autocenter=.T.
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.
_screen.caption="ADMINISTRACION DE TAXIS Hoy es: "+diasem[DOW(DATE())]+" "+PADL (ALLTRIM(STR(DAY(DATE()))),2,"0")+;
" de "+meshoy+" de "+STR(YEAR(DATE()),4)
_screen.addobject("oReloj", "reloj_digital")
_screen.oReloj.top=_screen.Height*0.80
_screen.oReloj.Left=_screen.Width*0.80
_screen.oRELOJ.Visible=.T.

do MENUTAXI.MPR
READ EVENTS
endif

pese a los seteos del principio ,no puedo lograr ocultar la barra de herramientas de v fox .necesitaria por favor me ayuden .desde ya gracias
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

barra de fox

Publicado por FredyMora (1 intervención) el 24/03/2011 22:48:50
Hola Eduardo:

Tu problema a mi parecer se presenta en el MENUTAXI.mpr por el uso del comando SET SYSMENU con sus variantes

ON Activa la barra de menús principal de Visual FoxPro durante la ejecución del programa cuando Visual FoxPro espera la introducción de datos a través del teclado durante comandos como BROWSE, READ y MODIFY COMMAND.
OFF Desactiva la barra de menús principal de Visual FoxPro durante la ejecución del programa.
AUTOMATIC Hace que la barra de menús principal de Visual FoxPro esté visible durante la ejecución del programa. La barra de menús queda accesible, y los elementos de menú se activan y se desactivan según convenga desde el comando actual.

AUTOMATIC es la configuración predeterminada.
*------------------------------------------------------------------------------------------------------------------*
Yo Utilizo en mis aplicaciones en el prg de Menús al comienzo
*------------------------------------------------------------------------------------------------------------------*
if !Version(2)=02 && (2=Proyecto/0=Ejecutable)
SET SYSMENU TO && [para Cuando es Ejecutable]
ENDIF
SET SYSMENU AUTOMATIC
*------------------------------------------------------------------------------------------------------------------*

Al ejecutar SET SYSMENU TO sin ningún argumento adicional se desactiva la barra de menús principal de Visual FoxPro.

Ojalá te sirvan estos comentarios..
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