No Mostrar la Barra Estandar

Ramiroquai
29 de Septiembre del 2003
Como se desactiva la Barra de controles Estandar desde un PRG, o cualquier otra barra de controles de forma de comandoes
Gracias?

rsoto
29 de Septiembre del 2003
FUNCTION iniciar
Public array o(11,3)
o(1,1)='Estándar'
o(2,1)='Diseñador de Formularios'
o(3,1)='Diseñador de Informes'
o(4,1)='Controles de Formularios'
o(5,1)='Diseñador de Bases de Datos'
o(6,1)='Controles de Informes'
o(7,1)='Diseñador de Consultas'
o(8,1)='Diseño'
o(9,1)='Vista Preliminar'
o(10,1)='Paleta de colores'
o(11,1)='Diseñador de Vistas'
FOR i = 1 to ALEN(o,1)
o(i,2)=wvisible(o(i,1))
IF o(i,2)
o(i,3)='s'
hide WINDOW (o(i,1))
ENDIF
ENDFOR

Public array o(11,3)
o(1,1)='standard'
o(2,1)='Form Designer'
o(3,1)='Report Designer'
o(4,1)='Form Controls'
o(5,1)='Diseñador de Bases de Datos'
o(6,1)='Report Controls'
o(7,1)='Querry Designer'
o(8,1)='Layout'
o(9,1)='Vista Preliminar'
o(10,1)='Paleta de colores'
o(11,1)='View Designer'
FOR i = 1 to ALEN(o,1)
o(i,2)=wvisible(o(i,1))
IF o(i,2)
o(i,3)='s'
hide WINDOW (o(i,1))
ENDIF
ENDFOR


Proba con esta funcion dentro de un prg.

me avisas como te va.