Altura TTolBar

[jasm.nospam]

¿Como puedo cambiar la altura de la TTolBar?
Ahora establezco en el IDE la propiedad nHeight a 50, pero siempre la
pone al mismo tamaño.
Saludos
Jose A. Suarez

[jfgimenez]

José Alfonso,
> ¿Como puedo cambiar la altura de la TTolBar?
> Ahora establezco en el IDE la propiedad nHeight a 50, pero siempre la pone
> al mismo tamaño.
Por ahora su altura depende directamente del tamaño de los botones. Cuando
la rehagamos (espero que dentro de muy poco) no sé si eso cambiará.
--
Un saludo,
José F. Giménez

[jasm.nospam]

Jose,
¿Del tamaño de los botones o de la imágen?
Saludos
Jose A. Suarez
Jose F. Gimenez escribió:
> José Alfonso,
>
>
>>¿Como puedo cambiar la altura de la TTolBar?
>>Ahora establezco en el IDE la propiedad nHeight a 50, pero siempre la pone
>>al mismo tamaño.
>
>
> Por ahora su altura depende directamente del tamaño de los botones. Cuando
> la rehagamos (espero que dentro de muy poco) no sé si eso cambiará.
>
>

[jfgimenez]

José Alfonso,
> ¿Del tamaño de los botones o de la imágen?
El tamaño de los botones también depende del tamaño de la imagen
--
Un saludo,
José F. Giménez

[jasm.nospam]

Jose,
Mejor será que me expliques como asignar el tamaño a los botones de la
TToolBar.
Un saludo,
Jose A. Suarez
Jose F. Gimenez escribió:
> José Alfonso,
>
>
>>¿Del tamaño de los botones o de la imágen?
>
>
> El tamaño de los botones también depende del tamaño de la imagen
>

[jfgimenez]

José Alfonso,
> Mejor será que me expliques como asignar el tamaño a los botones de la
> TToolBar.
Ahora mismo, las propiedades nBtnWidth y nBtnHeight indican en realidad el
tamaño de las imágenes, no de los botones. El tamaño de cada botón se
calcula automáticamente en función del tamaño de la imagen y de otros
factores. Lo que debes hacer es asignar esas dos propiedades antes de crear
los botones y listo:
WITH OBJECT ::oToolBar1 := TToolBar():New( ::oRebar1 )
:nBtnHeight := 24
:nBtnWidth := 24
:Create()
:AddButton( "", "Abrir", "Abrir1", "Abrir", "Abrir empresa...", {||
EmpAbrir() } )
:AddButton( "", "Cerrar", "Cerrar1", "Cerrar0", "Cerrar empresa", {||
EmpCerrar() } )
:AddSeparator()
...
END
--
Un saludo,
José F. Giménez

[jasm.nospam]

Jose,
Perfecto.
Muchas gracias.
Saludos
Jose A. Suarez
Jose F. Gimenez escribió:
> José Alfonso,
>
>
>>Mejor será que me expliques como asignar el tamaño a los botones de la
>>TToolBar.
>
>
> Ahora mismo, las propiedades nBtnWidth y nBtnHeight indican en realidad el
> tamaño de las imágenes, no de los botones. El tamaño de cada botón se
> calcula automáticamente en función del tamaño de la imagen y de otros
> factores. Lo que debes hacer es asignar esas dos propiedades antes de crear
> los botones y listo:
>
> WITH OBJECT ::oToolBar1 := TToolBar():New( ::oRebar1 )
> :nBtnHeight := 24
> :nBtnWidth := 24
> :Create()
> :AddButton( "", "Abrir", "Abrir1", "Abrir", "Abrir empresa...", {||
> EmpAbrir() } )
> :AddButton( "", "Cerrar", "Cerrar1", "Cerrar0", "Cerrar empresa", {||
> EmpCerrar() } )
> :AddSeparator()
> ...
> END
>