Barras de herramientas en VFP

772 views
Skip to first unread message

Analyzer

unread,
May 15, 2014, 12:37:05 PM5/15/14
to vfpl...@googlegroups.com
Estimados,

Una cosa que no he usado con VFP son las barras de herramientas.

Al parecer no son bien vistas porque se vuelven complicadas en su manejo.

¿Vale la pena aprender a usarlas?

En caso de que no, ¿qué usar como sustituto?

Gracias de antemano!


Alfonso Ramirez Diaz

unread,
May 15, 2014, 12:40:37 PM5/15/14
to vfpl...@googlegroups.com
Yo personalmente hice mi propia barra de herramientas con iconos mas grandes que cargo en un formulario desde una tabla libre que tiene los comandos y las imagenes a usar.

Las barras de herramientas normales de VFP no me gustaron mucho.

Envio pantalla de como quedan, hay una barra superior y una inferior.


Imágenes integradas 1




--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.



--




Alfonso Ramirez Diaz
Gestpyme - Informática y Gestión
Fono: 055-833233
Móvil: 09-82239821

Analyzer

unread,
May 15, 2014, 12:43:56 PM5/15/14
to vfpl...@googlegroups.com
Gracias Alfonso, se ve de lujo!

Me han dado malas referencias de las barras. Que complican mucho y eso.. ¿Qué opinas?


Saludos!

Alfonso Ramirez Diaz

unread,
May 15, 2014, 12:47:17 PM5/15/14
to vfpl...@googlegroups.com
Si a mi me complicaron y visualmente no me gustaron.


Analyzer

unread,
May 15, 2014, 12:49:03 PM5/15/14
to vfpl...@googlegroups.com
Y qué sugieren como sustituto para ellas? Un container con botones? o Solo botones o qué podría usarse?


Saludos!

Carlos Miguel FARIAS

unread,
May 15, 2014, 2:12:03 PM5/15/14
to vfpl...@googlegroups.com
Las referencias de si son buenas o malas, de quien vienen, de los usuarios o de los programadores.
Si los usuarios dicen que son malas, no las uses, y averigua que les resulta práctico (cada caso puede ameritar diferentes enfoques y controles).
Si los que dicen que son malas son los programadores, trata que la opinión venga de programadores experimentados, que se sepa que son buenos programadores y no de principiantes, que no tuvieron buena instrucción, o que los apuraron para que dieran soluciones y no tuvieron tiempo de aprender a utilizar.
En realidad las barras de herramientas, son atajos de ratón, o sea que en lugar de tener que "revolver" los menúes para acceder a opciones de uso habitual, se ponen controles (habitualmente botones) para que el usuario puede activarlas más rápido.
Para usuarios que usan habitualmente el teclado (generalmente los que cargan muchos datos a mano) los atajos de teclado pueden suplir las barras de herramientas, y posiblemente, sean mejor solución.
Saludos: Miguel, La Pampa (RA)

Analyzer

unread,
May 15, 2014, 2:17:55 PM5/15/14
to vfpl...@googlegroups.com
>Las referencias de si son buenas o malas, de quien vienen, de los usuarios o de los programadores.

De los programadores, de nivel intermedio a experto.

Saludos!

Carlos Miguel FARIAS

unread,
May 15, 2014, 2:30:35 PM5/15/14
to vfpl...@googlegroups.com
Tienes los links por ahi, me gustaría ver que dicen.
O indícame como lo rastreaste, no he leído sobre eso.
Saludos: Miguel

Analyzer

unread,
May 15, 2014, 2:31:17 PM5/15/14
to vfpl...@googlegroups.com
No. Fue privado por chat de gmail..


Saludos!

Edwin Nicolas

unread,
May 15, 2014, 2:32:34 PM5/15/14
to vfpl...@googlegroups.com
yo las uso desde hace años sin problema, pero es bueno que expongan cuales esos inconvenientes.

Yo los trabajo así:

1) En cada formulario creo métodos Como GUARDAR, BORRAR, SALIR, ETC
2) En cada Botón del ToolBar en mi caso lo llamo   "BAR" Coloco
*****************************************************************
If _Screen.FormCount > 1
If Type("_Screen.ActiveForm") = "O" && Si es un Objeto
If Pemstatus(_Screen.ActiveForm,"Abrir",5) && 5 Si existe el Método
_Screen.ActiveForm.Abrir
Else
* Messagebox("metodo no existe",0+64,"AVISO")
Endif
Else
Messagebox("Debe seleccionar una ventana para realizar esta acción",0+64,"AVISO")
Endif
Else
* Messagebox("Debe seleccionar una ventana para realizar esta acción",0+64,"AVISO")
Thisform.desactivartodo
Endif
*****************************************************************
En el Toolbar tengo un método llamado "desactivartodo" con el código mas abajo esto lo utilizo para desactivar los botones si no hay formularios..


**********************************************************************************
This.mAbrir.Enabled = .F.
This.mBuscar.Enabled = .F.
This.mEliminar.Enabled = .F.
This.mGUARDAR.Enabled = .F.
This.mImprimir.Enabled = .F.
This.mSalir.Enabled = .F.
Nota:.mAbrir, .mGUARDAR son los nombre de los botones en el toolbar

On Key Label Esc _Screen.MiToolbar.mSalir.Click    && Revertir Cambios en Registro o Salir del formulario actual
On Key Label Ctrl+N  _Screen.MiToolbar.mAbrir.Click    && Nuevo Registro
On Key Label Ctrl+F  _Screen.MiToolbar.mBuscar.Click   &&consultar
On Key Label Ctrl+S  _Screen.MiToolbar.mGUARDAR.Click  && Guardar Registro
On Key Label Ctrl+P  _Screen.MiToolbar.mImprimir.Click && Vista Preliminar o Imprimir
On Key Label F5      _Screen.MiToolbar.mEliminar.Click && Eliminar Registro
******************************************************************************************************
En el Método AfterDock Coloco this.dock(0,0,0)
En el Método DblClick   Coloco nodefault
En el Método Ini            Coloco this.dock(0,0,0)

En mi prg prinsipal despues de logearme

If !Pemstatus(_Screen, "MiToolbar", 5)
_Screen.AddProperty("MiToolbar")
Endif
_Screen.MiToolbar= Newobject("Bar","miclase")
_Screen.MiToolbar.Container1.TEXT1.Value=_userNombre &&coloco el nombre del usuario activo
_Screen.MiToolbar.Show


En mi Formulario clase en el GOTFOCUS coloco

If This.mitoolba = .T. && Es una propiedad creada en el formulario 
*Compara las propiedades de los botones del toolbar con las creadas en el formuario

_Screen.mitoolbar.mAbrir.Enabled =     This.mitoolmAbrir
_Screen.mitoolbar.mBuscar.Enabled = This.mitoolmBuscar
_Screen.mitoolbar.mGuardar.Enabled =This.mitoolmGuardar
_Screen.mitoolbar.mImprimir.Enabled =This.mitoolmImprimir
_Screen.mitoolbar.mEliminar.Enabled =This.mitoolmEliminar
_Screen.mitoolbar.mSalir.Enabled      =This.mitoolmSalir

*Teclas configuradas de acceso rapido 
If This.mitoolmSalir = .T.
On Key Label Esc     _Screen.mitoolbar.mSalir.Click    && Revertir Cambios en Registro o Salir del formulario actual
Else
On Key Label Esc do cancelar_On_Key_Label
Endif
If This.mitoolmAbrir = .T.
On Key Label Ctrl+N  _Screen.mitoolbar.mAbrir.Click    && Nuevo Registro
Else
On Key Label Ctrl+N do cancelar_On_Key_Label
Endif
If This.mitoolmBuscar = .T.
On Key Label Ctrl+F  _Screen.mitoolbar.mBuscar.Click   &&consultar
Else
On Key Label Ctrl+F do cancelar_On_Key_Label
Endif
If This.mitoolmGuardar = .T.
On Key Label Ctrl+S  _Screen.mitoolbar.mGuardar.Click  && Guardar Registro
Else
On Key Label Ctrl+S do cancelar_On_Key_Label
Endif
If This.mitoolmImprimir = .T.
On Key Label Ctrl+P  _Screen.mitoolbar.mImprimir.Click && Vista Preliminar o Imprimir
Else
On Key Label Ctrl+P do cancelar_On_Key_Label
Endif
If This.mitoolmEliminar =.T.
On Key Label F5      _Screen.mitoolbar.mEliminar.Click && Eliminar Registro
Else
On Key Label F5 do cancelar_On_Key_Label
Endif
*Else
* Messagebox("El nombre del Toolbar en la propiedad del formulario mitoolbarname no esta definida","Aviso")

Endif



Mas abajo coloco imagen del menú, esto me funciona e incluso teniendo varios formularios abiertos

Espero que se sirva

Imágenes integradas 1
Edwin Duran
Republica Dominicana

Carlos Miguel FARIAS

unread,
May 15, 2014, 2:43:14 PM5/15/14
to vfpl...@googlegroups.com
Una opinión que no se pueda respaldar fehacientemente, no me convence.
Al menos sería necesario que se transcribieran las razones para ver si son razonables.
No dudo de lo que dice Analizer sobre lo que le dijeron, si no que dudo en que se basan los que dijeron.
Si son expertos en VFP, deberían ser conocidos, podes tirar algún nombre?

Analyzer

unread,
May 15, 2014, 3:19:43 PM5/15/14
to vfpl...@googlegroups.com
Lo privado, privado se queda..

Pero en general me dicen que da problemas porque se vuelve muy engorroso su manejo, a pesar de que hacen todo vía clases. Lástima que nunca guardo historial de chats..




Saludos!

Jairo Miranda

unread,
May 15, 2014, 3:39:02 PM5/15/14
to vfpl...@googlegroups.com

Me llevó tiempo estudiar el código interno de la barra de herramientas  nativa de fox , y la compare con la programada en Fox 6.0 y a mi parecer esta barra soluciona mucho de los problemas de crear, modificar, buscar, eliminar registros de la tabla activa, solo hay que ver un poco mas y se adapta a lo que necesitas.

Puedes crear código según tu necesidad y si requieres del encapsulado usa la función dodefault(),  que correra el código interno de la clase.

 

JM

 

De: vfpl...@googlegroups.com [mailto:vfpl...@googlegroups.com] En nombre de Carlos Miguel FARIAS
Enviado el: jueves, 15 de mayo de 2014 1:12
Para: vfpl...@googlegroups.com
Asunto: Re: [VFP Latino] Barras de herramientas en VFP

 

Las referencias de si son buenas o malas, de quien vienen, de los usuarios o de los programadores.

Si los usuarios dicen que son malas, no las uses, y averigua que les resulta práctico (cada caso puede ameritar diferentes enfoques y controles).

Si los que dicen que son malas son los programadores, trata que la opinión venga de programadores experimentados, que se sepa que son buenos programadores y no de principiantes, que no tuvieron buena instrucción, o que los apuraron para que dieran soluciones y no tuvieron tiempo de aprender a utilizar.

En realidad las barras de herramientas, son atajos de ratón, o sea que en lugar de tener que "revolver" los menúes para acceder a opciones de uso habitual, se ponen controles (habitualmente botones) para que el usuario puede activarlas más rápido.

Para usuarios que usan habitualmente el teclado (generalmente los que cargan muchos datos a mano) los atajos de teclado pueden suplir las barras de herramientas, y posiblemente, sean mejor solución.

Saludos: Miguel, La Pampa (RA)

El 15 de mayo de 2014, 13:49, Analyzer <thenewin...@gmail.com> escribió:

Y qué sugieren como sustituto para ellas? Un container con botones? o Solo botones o qué podría usarse?


 

Saludos!

 

El 15 de mayo de 2014, 11:47, Alfonso Ramirez Diaz <aerd...@gmail.com> escribió:

 

Si a mi me complicaron y visualmente no me gustaron.

 

 

El 15 de mayo de 2014, 12:43, Analyzer <thenewin...@gmail.com> escribió:

 

Gracias Alfonso, se ve de lujo!

 

Me han dado malas referencias de las barras. Que complican mucho y eso.. ¿Qué opinas?


 

Saludos!

 

El 15 de mayo de 2014, 11:40, Alfonso Ramirez Diaz <aerd...@gmail.com> escribió:

Yo personalmente hice mi propia barra de herramientas con iconos mas grandes que cargo en un formulario desde una tabla libre que tiene los comandos y las imagenes a usar.

 

Las barras de herramientas normales de VFP no me gustaron mucho.

 

Envio pantalla de como quedan, hay una barra superior y una inferior.

 

 

Descripción: Imágenes integradas 1

 

 

 

El 15 de mayo de 2014, 12:37, Analyzer <thenewin...@gmail.com> escribió:

Estimados,

 

Una cosa que no he usado con VFP son las barras de herramientas.

 

Al parecer no son bien vistas porque se vuelven complicadas en su manejo.

 

¿Vale la pena aprender a usarlas?

 

En caso de que no, ¿qué usar como sustituto?

 

Gracias de antemano!

 

 

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.



 

--

 

Descripción: Imagen quitada por el remitente.

 

 

Alfonso Ramirez Diaz

Gestpyme - Informática y Gestión

Fono: 055-833233

Móvil: 09-82239821

 

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.



 

--

 

Descripción: Imagen quitada por el remitente.

 

 

Alfonso Ramirez Diaz

Gestpyme - Informática y Gestión

Fono: 055-833233

Móvil: 09-82239821

 

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.

 

--

~WRD000.jpg
image003.png

Analyzer

unread,
May 16, 2014, 9:49:37 AM5/16/14
to vfpl...@googlegroups.com
Gracias por el ejemplo Edwin!


Saludos!

Analyzer

unread,
May 16, 2014, 9:51:47 AM5/16/14
to vfpl...@googlegroups.com
Interesante Jairo, te agradezco las sugerencias!


Saludos!

Analyzer

unread,
May 16, 2014, 9:58:57 AM5/16/14
to vfpl...@googlegroups.com
Entonces, no habría sustituto para las barras de herramientas?..

Al menos, personalmente he leído que a veces se congelan y hay que aplicar un fix.


PD. El fix ya no parece estar disponible al hacer click en el enlace..



Saludos!


El 15 de mayo de 2014, 13:43, Carlos Miguel FARIAS <carlosmig...@gmail.com> escribió:

Carlos Miguel FARIAS

unread,
May 16, 2014, 10:16:15 AM5/16/14
to vfpl...@googlegroups.com
Tu idea de contenedor con controles, es apropiada, si no quieres usar barras de herramientas.
En realidad la barra de herramientas es una ventana especial, que tiene facilidades de "anclarse" o acoplarse a un borde del formulario padre o flotar por el libremente.
Después, puedes hacer un bindevent de los controles de "tu barra" a donde quieras y funcionaría (S.E.U.E)
Saludos: Miguel, La Pampa (RA)

Analyzer

unread,
May 16, 2014, 10:21:34 AM5/16/14
to vfpl...@googlegroups.com
>Tu idea de contenedor con controles, es apropiada, si no quieres usar barras de herramientas.

Perfecto. Lo probaré en un momento libre por acá..


>En realidad la barra de herramientas es una ventana especial, que tiene facilidades de "anclarse" o acoplarse a un borde del formulario padre o flotar por el libremente.

Prefiero no darle tanta libertad al usuario, porque luego andan escondiendo o moviendo cosas y luego segurito que es llamada con costo gratuito al soporte técnico (triste desarrollador ;-)

Saludos!

Jairo Miranda

unread,
May 16, 2014, 10:53:08 AM5/16/14
to vfpl...@googlegroups.com

La verdad es que ¿Para que reeinventar la rueda? . con esto quiero decir que ya Nuestro Fox tiene todas esas herramientas definidas en Clases. Solo date una vuelta por:

 

SET DEFAULT TO "c:\program files\microsoft visual foxpro 9\samples\solution"

DO solution.app

 

Y después por http://www.portalfox.com

 

JM

 

De: vfpl...@googlegroups.com [mailto:vfpl...@googlegroups.com] En nombre de Analyzer
Enviado el: viernes, 16 de mayo de 2014 9:22
Para: vfpl...@googlegroups.com
Asunto: Re: [VFP Latino] Barras de herramientas en VFP

 

>Tu idea de contenedor con controles, es apropiada, si no quieres usar barras de herramientas.


 

Saludos!

 

Descripción: Imágenes integradas 1

 

El 15 de mayo de 2014, 12:49, Analyzer <thenewin...@gmail.com> escribió:

 

Y qué sugieren como sustituto para ellas? Un container con botones? o Solo botones o qué podría usarse?


 

Saludos!

 

El 15 de mayo de 2014, 11:47, Alfonso Ramirez Diaz <aerd...@gmail.com> escribió:

 

Si a mi me complicaron y visualmente no me gustaron.

 

 

El 15 de mayo de 2014, 12:43, Analyzer <thenewin...@gmail.com> escribió:

 

Gracias Alfonso, se ve de lujo!

 

Me han dado malas referencias de las barras. Que complican mucho y eso.. ¿Qué opinas?


 

Saludos!

 

El 15 de mayo de 2014, 11:40, Alfonso Ramirez Diaz <aerd...@gmail.com> escribió:

Yo personalmente hice mi propia barra de herramientas con iconos mas grandes que cargo en un formulario desde una tabla libre que tiene los comandos y las imagenes a usar.

 

Las barras de herramientas normales de VFP no me gustaron mucho.

 

Envio pantalla de como quedan, hay una barra superior y una inferior.

 

 

Descripción: Imágenes integradas 1

 

 

 

El 15 de mayo de 2014, 12:37, Analyzer <thenewin...@gmail.com> escribió:

Estimados,

 

Una cosa que no he usado con VFP son las barras de herramientas.

 

Al parecer no son bien vistas porque se vuelven complicadas en su manejo.

 

¿Vale la pena aprender a usarlas?

 

En caso de que no, ¿qué usar como sustituto?

 

Gracias de antemano!

 

 

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.



 

--

 

Descripción: Imagen quitada por el remitente.

 

 

Alfonso Ramirez Diaz

Gestpyme - Informática y Gestión

Fono: 055-833233

Móvil: 09-82239821

 

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.

--
Has recibido este mensaje porque estás suscrito al grupo "Visual Foxpro Latinoamérica" de Grupos de Google.
Visita este grupo en http://groups.google.com/group/vfplatino.



 

--

 

Descripción: Imagen quitada por el remitente.

 

 

Alfonso Ramirez Diaz

 

--

~WRD000.jpg
image001.png
image002.png

Carlos Miguel FARIAS

unread,
May 16, 2014, 11:03:17 AM5/16/14
to vfpl...@googlegroups.com
Sigo sin poder acceder a portalfox

Analyzer

unread,
May 16, 2014, 11:19:56 AM5/16/14
to vfpl...@googlegroups.com
>Solo date una vuelta por:

 

SET DEFAULT TO "c:\program files\microsoft visual foxpro 9\samples\solution"

DO solution.app


Muy buenos ejemplos Jairo!

Sin embargo, no veo lo que busco salvo un command group.

Voy a revisar si es mejor usar un command group o botones individuales unidos a un container.

Gracias a todos por el apoyo brindado!!

Saludos!

Jairo Miranda

unread,
May 16, 2014, 12:06:22 PM5/16/14
to vfpl...@googlegroups.com

Hay metodos y propiedades en estas clases que puedes programar, por ejemplo el método Refresh, en mi caso valido un campo de variable lógica en .f. o .t. si no puede o si puede dar click, clik derecho , etc  en ese botón, solo pregunto:

 

If  Password.Scxcp = .t.

    This.enabled = .t.  && active el Botón

Else

   This.Enabled = .f. && desactivo el Botón

Endif .

image001.png
image002.png
image003.jpg

Analyzer

unread,
May 16, 2014, 12:34:29 PM5/16/14
to vfpl...@googlegroups.com
Gracias por las ideas..


Saludos!

Carlos Alloatti

unread,
May 23, 2014, 7:41:56 AM5/23/14
to vfpl...@googlegroups.com
Les dejo esta clase de uso libre, para poder crear en forma fácil y rapida una toolbar en cualquier formulario sin tener que estar lidiando con la clase nativa toolbar.

La característica principal de los botones de la clase es que no toman foco, además de ser totalmente configurables. 

La imagen a usar en el botón puede ser de cualquier tamaño y formato, el botón se encarga de todo automáticamente.

Analyzer

unread,
May 23, 2014, 9:51:46 AM5/23/14
to vfpl...@googlegroups.com
Carlos Alloati,

Gracias por compartir esta clase por acá. Un gusto saludarle también..


Saludos!


--
Reply all
Reply to author
Forward
0 new messages