Barra de herramientas en formulario de nivel superior (toolbar). No en _screen

793 views
Skip to first unread message

Zarlu

unread,
Jun 8, 2015, 11:21:10 AM6/8/15
to mundovis...@googlegroups.com
Buenos días!
 
Es la primera vez que estoy incluyendo en mis proyectos una barra de herramientas,
pero como me dió mucho trabajo implementarla y conseguir información, les comparto mi experiencia:
 
Barra de herramientas en formulario de nivel superior. Anclada y fija
Vfp 9, sp1
 
En lo que batalle bastante es en que aparecierá en el formulario, este es el código a colocar en el init del formulario:
(la clase de la barra la habríamos creado previamente)
 
SET CLASSLIB TO barratools ADDITIVE
This.Visible=.T.
This.AddProperty('oToolbar',.Null.)
This.oToolbar=Createobject('barratools')
This.oToolbar.Dock(0) && esto también se puede incuir en el init de la barra "This.Dock(0)"
This.oToolbar.Show()

 

En la clase de la barra (para que la barra no pueda ser movida ni cambiar de tamaño)
movable=.f.
sizable=.f.
 incluir un timer con interval 1 y con el siguiente código:
If Thisform.Dockposition<>0
Thisform.Dock(0)
EndIf

Espero les sea de utilidad

Saludos

zarlu

Chetumal, Quintana Roo, México

 


formmed.png

Integral

unread,
Jun 8, 2015, 1:31:03 PM6/8/15
to mundovis...@googlegroups.com

Gracias por Compartirlo...

Hace tiempo encontre un buen ejemplo completo donde utilizaban una barra de herramientas y sus formularios anexos creo que trataba sobre el manejo de la documetacion dentro de una biblioteca...

En aquella época me pareció muy complicado su uso y por ello preferi hacerlo del modo tradicional...

Dicho ejemplo no recuerdo de donde lo encontre...

atte.,

INTEGRAL  

Ruben Antunes

unread,
Jun 8, 2015, 7:31:05 PM6/8/15
to mundovis...@googlegroups.com

Me podrías enviar la librería que utilizas o indicar de donde la puedo bajar. Gracias

RUBEN ANTUNES

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

Zarlu

unread,
Jun 8, 2015, 9:10:23 PM6/8/15
to mundovis...@googlegroups.com
Ruben buenas noches!
 
"barratools" es una clase creada por mi.
Esto es cada quien puede crear la suya y la nombra como desea.
 
En el administrador de proyectos vas a clases y la creas basada en toolbar, le pones los botones, imagenes, código que quieras.
 
Suerte
Reply all
Reply to author
Forward
0 new messages