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

[Zarlu]

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.

e  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

 

[Integral]

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]

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]

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