Toolbar y Balloon

[jose.luis]

Hola,
En el inspector de objetos del IDE no veo la propiedad cBalloon de un botón
de la toolbar.
¿Habría alguna posibilidad de tener accesible esa propiedad en el inspector
de objetos?
Saludos y gracias,
José Luis Capel

[jfgimenez]

José Luis,
> En el inspector de objetos del IDE no veo la propiedad cBalloon de un
> botón de la toolbar.
>
> ¿Habría alguna posibilidad de tener accesible esa propiedad en el
> inspector de objetos?
Me temo que no; la toolbar mantiene su propio tooltip, y siempre es de tipo
tooltip, no balloon. De todos modos, en una ocasión te envié una línea de
código que cambiaba el tooltip por un balloon en la toolbar. Si no lo
encuentras dímelo y lo busco yo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[jfgimenez]

José Luis,
rectifico... Tal y como acabamos de hablar, ya hay una propiedad lBalloons
en TToolbar que cambia el estilo de los tooltip a balloons. En los botones,
hay que seguir usando la misma propiedad cTooltip para indicar el texto.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[jrcpoli-quitar]

José Luis Capel - Aicom escribió:
> Hola,
>
> En el inspector de objetos del IDE no veo la propiedad cBalloon de un botón
> de la toolbar.
>
> ¿Habrí­a alguna posibilidad de tener accesible esa propiedad en el inspector
> de objetos?
>
> Saludos y gracias,
> José Luis Capel
>
>
José Luis:
Tienes que poner lBalloons a TRUE en la ToolBar y lo que escribas en en
el cToolTip de botón lo pondrá estilo Balloons, al igual que si la
instancias manualmente lo que pongas en AddButton.
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:lList := .t.
:lAutoSize := .t.
:lBalloons := .T. //Estilo Balloons
:Create()
::oTagBtn := :AddButton( "", "BMP_SORT",,, "Orden Selecc. :" ,
{|| ::nTag++ }, oSortMenu )
::nTag := 1 // Selecciona el indice 1 del Tag de Zonas
:AddSeparator()
:AddButton( "", "BMP_FIRST",,, "Primer Registro", {||
::oDBZonas:GoTop() } )
:AddButton( "", "BMP_PREVIOUS",,, "Anterior Registro", {||
::oDBZonas:GoUp() } )
:AddButton( "", "BMP_NEXT",,, "Siguiente Registro", {||
::oDBZonas:GoDown() } )
:AddButton( "", "BMP_LAST",,, "Ultimo Registro", {||
::oDBZonas:GoBottom() } )
:AddSeparator()
:AddButton( "", "BMP_APPEND",,, "Añadir", {|| ::AddNew() } )
:AddButton( "", "BMP_EDIT",,, "Editar", {|| ::Edit() } )
:AddButton( "", "BMP_DELETE",,, "Borrar", {|| ::Delete() })
:AddSeparator()
:AddButton( "", "MS_PRINTER",,, "Imprimir", {|| ::Report() } )
:AddButton( "", "MS_SALIR",,, "Salir", {|| ::Close() } )
END
José Ramón Castro