¿Cómo puedo quitar las barras de herramientas de Visual Fox al ejecutar?
fannnyc
15 de Marzo del 2006
Hola chicos: alguien me puede ayudar?
No puedo quitar un ventana que sale de visual fox pro con las barras de herramientas inactivas, cuando ejecuto un proyecto. Ya le puse la instruccion de SET SYSMENU OFF pero aun asi no la quita. Alguien sabe como?
No puedo quitar un ventana que sale de visual fox pro con las barras de herramientas inactivas, cuando ejecuto un proyecto. Ya le puse la instruccion de SET SYSMENU OFF pero aun asi no la quita. Alguien sabe como?
foxfeliz
15 de Marzo del 2006
LOCAL lnContador
IF VERSION(3) = '00' && Ingles
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Form Controls'
This.aBarras[2,1] = 'Report Controls'
This.aBarras[3,1] = 'Layout'
This.aBarras[4,1] = 'Standard'
This.aBarras[5,1] = 'Database Designer'
This.aBarras[6,1] = 'Query Designer'
This.aBarras[7,1] = 'Form Designer'
This.aBarras[8,1] = 'Report Designer'
This.aBarras[9,1] = 'View Designer'
This.aBarras[10,1] = 'Color Palette'
This.aBarras[11,1] = 'Print Preview'
ENDIF
IF VERSION(3) = '34' && Español
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Controles de formularios'
This.aBarras[2,1] = 'Controles de informes'
This.aBarras[3,1] = 'Distribución'
This.aBarras[4,1] = 'Estándar'
This.aBarras[5,1] = 'Diseñador de base de datos'
This.aBarras[6,1] = 'Diseñador de consultas'
This.aBarras[7,1] = 'Diseñador de formularios'
This.aBarras[8,1] = 'Diseñador de informes'
This.aBarras[9,1] = 'Diseñador de vistas'
This.aBarras[10,1] = 'Paleta de colores'
This.aBarras[11,1] = 'Vista preliminar'
ENDIF
FOR lnContador = 1 TO ALEN(This.aBarras,1)
This.aBarras[lnContador,2] = WVISIBLE(This.aBarras[lnContador,1])
IF This.aBarras[lnContador,2]
HIDE WINDOW (This.aBarras[lnContador,1])
ENDIF
ENDFOR
IF VERSION(3) = '00' && Ingles
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Form Controls'
This.aBarras[2,1] = 'Report Controls'
This.aBarras[3,1] = 'Layout'
This.aBarras[4,1] = 'Standard'
This.aBarras[5,1] = 'Database Designer'
This.aBarras[6,1] = 'Query Designer'
This.aBarras[7,1] = 'Form Designer'
This.aBarras[8,1] = 'Report Designer'
This.aBarras[9,1] = 'View Designer'
This.aBarras[10,1] = 'Color Palette'
This.aBarras[11,1] = 'Print Preview'
ENDIF
IF VERSION(3) = '34' && Español
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Controles de formularios'
This.aBarras[2,1] = 'Controles de informes'
This.aBarras[3,1] = 'Distribución'
This.aBarras[4,1] = 'Estándar'
This.aBarras[5,1] = 'Diseñador de base de datos'
This.aBarras[6,1] = 'Diseñador de consultas'
This.aBarras[7,1] = 'Diseñador de formularios'
This.aBarras[8,1] = 'Diseñador de informes'
This.aBarras[9,1] = 'Diseñador de vistas'
This.aBarras[10,1] = 'Paleta de colores'
This.aBarras[11,1] = 'Vista preliminar'
ENDIF
FOR lnContador = 1 TO ALEN(This.aBarras,1)
This.aBarras[lnContador,2] = WVISIBLE(This.aBarras[lnContador,1])
IF This.aBarras[lnContador,2]
HIDE WINDOW (This.aBarras[lnContador,1])
ENDIF
ENDFOR
foxfeliz
15 de Marzo del 2006
LOCAL lnContador
IF VERSION(3) = '00' && Ingles
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Form Controls'
This.aBarras[2,1] = 'Report Controls'
This.aBarras[3,1] = 'Layout'
This.aBarras[4,1] = 'Standard'
This.aBarras[5,1] = 'Database Designer'
This.aBarras[6,1] = 'Query Designer'
This.aBarras[7,1] = 'Form Designer'
This.aBarras[8,1] = 'Report Designer'
This.aBarras[9,1] = 'View Designer'
This.aBarras[10,1] = 'Color Palette'
This.aBarras[11,1] = 'Print Preview'
ENDIF
IF VERSION(3) = '34' && Español
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Controles de formularios'
This.aBarras[2,1] = 'Controles de informes'
This.aBarras[3,1] = 'Distribución'
This.aBarras[4,1] = 'Estándar'
This.aBarras[5,1] = 'Diseñador de base de datos'
This.aBarras[6,1] = 'Diseñador de consultas'
This.aBarras[7,1] = 'Diseñador de formularios'
This.aBarras[8,1] = 'Diseñador de informes'
This.aBarras[9,1] = 'Diseñador de vistas'
This.aBarras[10,1] = 'Paleta de colores'
This.aBarras[11,1] = 'Vista preliminar'
ENDIF
FOR lnContador = 1 TO ALEN(This.aBarras,1)
This.aBarras[lnContador,2] = WVISIBLE(This.aBarras[lnContador,1])
IF This.aBarras[lnContador,2]
HIDE WINDOW (This.aBarras[lnContador,1])
ENDIF
ENDFOR
IF VERSION(3) = '00' && Ingles
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Form Controls'
This.aBarras[2,1] = 'Report Controls'
This.aBarras[3,1] = 'Layout'
This.aBarras[4,1] = 'Standard'
This.aBarras[5,1] = 'Database Designer'
This.aBarras[6,1] = 'Query Designer'
This.aBarras[7,1] = 'Form Designer'
This.aBarras[8,1] = 'Report Designer'
This.aBarras[9,1] = 'View Designer'
This.aBarras[10,1] = 'Color Palette'
This.aBarras[11,1] = 'Print Preview'
ENDIF
IF VERSION(3) = '34' && Español
DIMENSION This.aBarras[11,2]
This.aBarras[1,1] = 'Controles de formularios'
This.aBarras[2,1] = 'Controles de informes'
This.aBarras[3,1] = 'Distribución'
This.aBarras[4,1] = 'Estándar'
This.aBarras[5,1] = 'Diseñador de base de datos'
This.aBarras[6,1] = 'Diseñador de consultas'
This.aBarras[7,1] = 'Diseñador de formularios'
This.aBarras[8,1] = 'Diseñador de informes'
This.aBarras[9,1] = 'Diseñador de vistas'
This.aBarras[10,1] = 'Paleta de colores'
This.aBarras[11,1] = 'Vista preliminar'
ENDIF
FOR lnContador = 1 TO ALEN(This.aBarras,1)
This.aBarras[lnContador,2] = WVISIBLE(This.aBarras[lnContador,1])
IF This.aBarras[lnContador,2]
HIDE WINDOW (This.aBarras[lnContador,1])
ENDIF
ENDFOR