Clase para crear barras de herramientas fácilmente en FoxPro, sin tener que usar la clase toolbar.

[Carlos Alloatti]

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.

http://www.ctl32.com.ar/tbz/tbz.html

[ZeRoberto]

Carlos Allloatti a los tiempos que lo leo, gracias por compartir su codigo voy a revisarlo, dime es compatible con la anterior clase ctl32?

--
btnMyVideo.Click()

[ZeRoberto]

Estuve probando el Menu Emergente, pero no me muestra las imagenes bmp, lo puedes corregir.

--
btnMyVideo.Click()

[Carlos Alloatti]

Si, se puede usar sin problemas con cualquier otra clase. En cuanto a los bmp en el menú emergente, debería funcionar, siempre y cuando la función filetostr pueda encontrar el archivo en la ruta de búsqueda. El único detalle es que el menú no te va a hacer transparente el fondo del bmp. Puedo añadirle que haga transparente el color del pixel superior izquierdo como hace el botón, pero queda mucho mas agradable en general usar imágenes en formato png, ya que los bmp no tienen canal alfa, o sea información de transparencia, y un pixel solo puede ser 100% opaco o 100% transparente, con lo que se pierden las sombras y píxeles semi transparentes.

[arglys1 .]

buenas noches disculpen la molestia como ago para dejar de recibir informacion sobre este foro en mi gmail

[Luis Maria Guayan]

Gracias Carlos por compartir.

Un fenómeno Carlitos ;-)

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Saúl Piña]

Voy a probar haber que tal.  gracias !!

[ZeRoberto]

Carlos y si haces como el VFP reemplaza todo color blanco por transparencia. Sin necesidad de basarte en el primer pixel, porque eso puede variar.

Saludos

--
btnMyVideo.Click()

[Esteban]

Gracias Carlos.

 

Saludos.

 

Esteban.

[ZeRoberto]

Carlos los controles no permiten poner o mostrar teclas de atajo \<

​

--
btnMyVideo.Click()

[ZeRoberto]

Ademas veo varios prgs que referencian a funciones API pero en el Ctl32 ya tengo esa funcions, debo incorporar todos esos prgs a mi proyecto? o los toma del CTL32

Saludos

--
btnMyVideo.Click()

[Carlos Alloatti]

Gracias por los comentarios.

El tema teclas de atajo, no, no tienen, y no creo que les ponga. Supongo que esa funcionalidad deberia estar en tu menu estandard, o sino hay menu, deberás implementarla dentro del keypress del form. Salvo que me das alguna otra idea y vemos.

En cuanto a los prg _api*, si, hay que añadirlos, pero te quedan abajo de todo y no molestan. Tener un archivo prg por cada función API es la unica forma 100% segura de que otras clases/programas no te manden un clear dlls o te redeclaren la funcion API sin alias y chau tu definición. De esta forma estás 100% protegido contra desprolijidades de terceros. Si ya se que tener decenas de prgs añadidos al proyecto molesta, pero quedan abajo al comenzar con _

Lo del color transparente, voy a agregar una propiedad tbColorKey, con valor default -1. Si se deja en default, toma pixel superior izquierdo, se tiene un valor definido, toma ese valor. Le pones rgb(255,255,255) y listo. 

Con respecto a los archivos de imagenes usados en el menu, deberias incluir un comando EXTERNAL FILE 'XXXX.BMP' para cada archivo que uses, asi te los incluye en el ejecutable

Creo que no me faltó nada.

[Hugo C.]

Excelente trabajo Carlos, Gracias por compartir.

Saludos.

[ZeRoberto]

Carlos otra cosa que estoy notando es que en los menus emergentes un bmp de 17x17 lo reduce a 14x14 y como es bmp se distorsiona un poco

--
btnMyVideo.Click()

[ZeRoberto]

Carlos no era mejor meter en un solo archivo _api.prg todas las funciones api?

--
btnMyVideo.Click()

[Luis Maria Guayan]

?????

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[ZeRoberto]

Es que por cada funcion api es un prg, y entonces tenemos como 20 prgs

Saludos

--
btnMyVideo.Click()

[Juan fernando claro]

Yo hice un solo prg con todas las funciones correspondiente a cada archivo y funciona sin problemas

[ZeRoberto]

Lo puedes postear?

El 26 de mayo de 2014, 8:49, Juan fernando claro <jfcla...@gmail.com> escribió:

Yo hice un solo prg con todas las funciones correspondiente a cada archivo y funciona sin problemas

--
btnMyVideo.Click()

[Edgar Acevedo]

Gracias por tu generosa aportación.  Está sencillamente genial.

Saludos,

Edgar Acevedo.

[Carlos Alloatti]

Ahi actualizae la descarga, se puede especificar el tamaño de la imagen del menu.

[Carlos Alloatti]

No, no es mejor, por varias razones, pero la mas importante es que esos prgs con las declaraciones de funciones API de Windows las usan todas mis clases y programas, asi, esta todo en un solo lugar y no tengo que estar repitiendo codigo. Ademas un prg con 50-100 funciones se hace inmanejable. (en mi carpeta WINAPI tengo 560 funciones declaradas)

[Carlos Alloatti]

Creas un prg, y copias pegas cada prg individual, añadiendo una linea la principio y otra al final:

PROCEDURE XXXX

.

.

.

ENDPROC

Donde XXXX es el nombre del prg, sin la extension. Te puedes hacer una rutina que lo haga automaticamente.

[Jose Antonio Blasco]

Carlos, cuando intento ejecutarlo desde el proyecto, me pide un "prg"  llamado "_api" que figura en el proyecto pero no en el zip.

Por lo demás parece funcionar bien.

Debo quitarlo o si que falta ?

Como todo lo que compartes, muy buen trabajo.

Gracias y un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[ZeRoberto]

Jose Antonio dale omitir y borra ese prg, y funcionara normal

Saludos

--
btnMyVideo.Click()

[Jose Antonio Blasco]

Gracias y un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[ZeRoberto]

Carlos una pregunta porque no integraste este control a CTL32.VCX, puedo usar los apis de ese control en este otro.

Saludos

--
btnMyVideo.Click()

[Angel Ferreira]

Está fantastico este trabajo!!!! Excelente!!!!

Sólo observo un detalle:  Al usarla en un formulario MDI y llamar a otros forms hijos,  los mismos pueden sobreponerse encima del toolbar. Anexo imagen de muestra.
 
Existe alguna forma de que VFP asuma algún top para evitar este comportamiento?  Es decir,  que no permita que otros formularios suban y se coloquen encima de los controles?  Igualmente pasa cuando se maximiza una ventana hija.

Algunas ideas para controlar este comportamiento y que siempre se encuentre visible el toolbar ?  Siempre me he preguntado cómo se puede crear un control en VFP que impida que otros controles se sobrepongan al mismo.

Saludos y mil gracias por el aporte!!!!!

[Rafael Morales]

hola, se ve muy buena esa herramienta, buen trabajo carlos. 

¿El link de descarga es: http://www.ctl32.com.ar/tbz/tbz.html ?, me sale un aviso de que no esta disponible la página.

--
Rafael Morales

[Angel Ferreira]

Rafael,

Yo la descargué desde acá:

http://www.ctl32.com

Saludos.

[Rafael Morales]

Gracias Angel, desde ese link si se pudo descargar. 

--
Rafael Morales

[Ivan Aguirre]

Estimados.    Estaba viendo de mejorar una interface donde uso y he abusado de la vieja clase toolbar  que todos conocemos.  ¿Hay algo más nuevo que podamos usar?

Encontré este viejo post, pero el sitio web indicado ya no existe.

Fue incorporado en sedna o en algún otro proyecto?  Funcionaba bien?

Agradeceré cualquier pista.


http://www.ctl32.com.ar/tbz/tbz.html

[ZeRoberto]

Ya no existe la pagina de Carlos Alloati

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

[Víctor Hugo Espínola Domínguez]

http://yousfi.over-blog.com/2016/01/a-scrollable-menu-with-vfpscrollbar-class.html

Date un paseo por este blog, encontrarás verdaderas maravillas de efectos visuales puro VFP.

Saludos,

Víctor.

Lambaré - Paraguay.

[Ivan Aguirre]

Muchas gracias, ya las estoy viendo.    :)

Un tema,  me puse a ver, FOXRIBBON  de Guillermo Carrero,   alguien las ha usado?   Parecen muy interesante, y ha logrado cosas que casi me parecian inviables...

[Francisco]

Has visto FoxyRb es sencilla y puedes hacer grandes cosas.

https://foxydb.wordpress.com/2016/07/20/actualizacion-foxyrb-0-91-beta/