quitar tools de vfp

Bueno amigo :
Si la verson del VFP es el español aqui te muestro una rutina que
corrije el problema.

Public Array Barra(11,3)
Barra(1,1)="Estándar"
Barra(2,1)="Diseñador de Formularios"
Barra(3,1)="Diseñador de Informes"
Barra(4,1)="Controles de Formularios"
Barra(5,1)="Diseñador de Base de Datos"
Barra(6,1)="Controles de Informes"
Barra(7,1)="Diseñador de Consultas"
Barra(8,1)="Diseño"
Barra(9,1)="Vista Preliminar"
Barra(10,1)="Paleta de Colores"
Barra(11,1)="Diseñador de Vistas"
For I = 1 To ALEN(Barra,1)
Barra(I,2) = wVisible(Barra(I,1))
If Barra(I,2)
Barra(I,3) = "S"
Hide Window(Barra(I,1))
Endif
Endfor


Saludos


GABRIEL
(Lima-Perú)

PD : SI ES LA VERSION EN INGLES ME AVISAS Y TE LA ENVIO DESPUES...

Amado Garcia Lara ha escrito:

hola.. he terminado mi proyecto, funciona de maravilla, al hacerlo ejecutable
seleccione un prg con el nombre de inicio.prg como arranque, todo funciona
bien, pero me siguen apareciendo las herramientas de vfp, que rutina tengo
que agregar en prg para deshabilitar las herramientas quiero que solo
aparezca la barra de menu creada por mi, espero me ayuden... 1000 gracias

hola amigo...
lamentablemente la version que tengo es en ingles.. es la version 6.0, te
agradezco bastante me dijeras la rutina para esta version... 1000 gracias.


"integral" escribió:

Bueno amigo :
Si la verson del VFP es el español aqui te muestro una rutina que
corrije el problema.

Public Array Barra(11,3)
Barra(1,1)="Estándar"
Barra(2,1)="Diseñador de Formularios"
Barra(3,1)="Diseñador de Informes"
Barra(4,1)="Controles de Formularios"
Barra(5,1)="Diseñador de Base de Datos"
Barra(6,1)="Controles de Informes"
Barra(7,1)="Diseñador de Consultas"
Barra(8,1)="Diseño"
Barra(9,1)="Vista Preliminar"
Barra(10,1)="Paleta de Colores"
Barra(11,1)="Diseñador de Vistas"
For I = 1 To ALEN(Barra,1)
Barra(I,2) = wVisible(Barra(I,1))
If Barra(I,2)
Barra(I,3) = "S"
Hide Window(Barra(I,1))
Endif
Endfor


Saludos


GABRIEL
(Lima-Perú)

PD : SI ES LA VERSION EN INGLES ME AVISAS Y TE LA ENVIO DESPUES...

Amado Garcia Lara ha escrito:

> hola.. he terminado mi proyecto, funciona de maravilla, al hacerlo ejecutable
> seleccione un prg con el nombre de inicio.prg como arranque, todo funciona
> bien, pero me siguen apareciendo las herramientas de vfp, que rutina tengo
> que agregar en prg para deshabilitar las herramientas quiero que solo
> aparezca la barra de menu creada por mi, espero me ayuden... 1000 gracias.

Yo utilizo la version 6 y mis programas salen del menu.prg, en el defino
simplemente
y solo salen mis menues...

set sysmenu to
SET SYSMENU AUTOMATIC

DEFINE PAD Turnos OF _MSYSMENU PROMPT "\<Turnos" COLOR SCHEME 3 ;
KEY ALT+T, "ALT+T"
DEFINE PAD Listados OF _MSYSMENU PROMPT "\<Listados" COLOR SCHEME 3 ;
KEY ALT+L, "ALT+L"

etc...

Dario David Puccio
El Cyber_Gaucho
Rosario - Santa Fe - Cuna del Gaucho
www.chispazodetradicion.com.ar

On Wed, 23 Aug 2006 11:04:02 -0700, Amado Garcia Lara
wrote:

hola.. he terminado mi proyecto, funciona de maravilla, al hacerlo ejecutable
seleccione un prg con el nombre de inicio.prg como arranque, todo funciona
bien, pero me siguen apareciendo las herramientas de vfp, que rutina tengo
que agregar en prg para deshabilitar las herramientas quiero que solo
aparezca la barra de menu creada por mi, espero me ayuden... 1000 gracias

Ver:
http://fox.wikis.com/wc.dll?Wiki~ToolBar



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP

Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://alexfeldstein.blogspot.com
Website: http://www.feldstein.net

Hola... a todos.. creo que con el ejemplo que me mando Gabriel pude quitar
las hterramientas de vfp.. lo que pasa es ke me lo mando para VFP en Español
y era solo de poner las herramientas en ingles aqui les anexo el ejemplo
para aquellos que quieran quitar las tools de vfp Ver 6 ingles... sale... y
de antemano 1000 gracias Gabriel y todos mis amigos...

Public Array Barra(11,3)
Barra(1,1)="Standard"
Barra(2,1)="Form Designer"
Barra(3,1)="Report Designer"
Barra(4,1)="Form Controls"
Barra(5,1)="Database Designer"
Barra(6,1)="Report Controls"
Barra(7,1)="Query Designer"
Barra(8,1)="Layout"
Barra(9,1)="Print Preview"
Barra(10,1)="Colors Palette"
Barra(11,1)="View designer"
For I = 1 To ALEN(Barra,1)
Barra(I,2) = wVisible(Barra(I,1))
If Barra(I,2)
Barra(I,3) = "S"
Hide Window(Barra(I,1))
Endif
Endfor

ublic Array Barra(11,3)
Barra(1,1)="Standard"
Barra(2,1)="Form Designer"
Barra(3,1)="Report Designer"
Barra(4,1)="Form Controls"
Barra(5,1)="Database Designer"
Barra(6,1)="Report Controls"
Barra(7,1)="Query Designer"
Barra(8,1)="Layout"
Barra(9,1)="Print Preview"
Barra(10,1)="Colors Palette"
Barra(11,1)="View designer"
For I = 1 To ALEN(Barra,1)
Barra(I,2) = wVisible(Barra(I,1))
If Barra(I,2)
Barra(I,3) = "S"
Hide Window(Barra(I,1))
Endif
Endfor




"Dario David Puccio" escribió:

Yo utilizo la version 6 y mis programas salen del menu.prg, en el defino
simplemente
y solo salen mis menues...

set sysmenu to
SET SYSMENU AUTOMATIC

DEFINE PAD Turnos OF _MSYSMENU PROMPT "\<Turnos" COLOR SCHEME 3 ;
KEY ALT+T, "ALT+T"
DEFINE PAD Listados OF _MSYSMENU PROMPT "\<Listados" COLOR SCHEME 3 ;
KEY ALT+L, "ALT+L"

etc...

Dario David Puccio
El Cyber_Gaucho
Rosario - Santa Fe - Cuna del Gaucho
www.chispazodetradicion.com.ar