Xailer & OZ Software

Hola,
No recuerdo como definir un tamaño de botón para los botones de la toolbar.
En mi caso quiero tener botones de 32 de alto por 48 de ancho con imágenes
de 24x24, sin texto.
Saludos y gracias,
José Luis Capel

José Luis,
> No recuerdo como definir un tamaño de botón para los botones de la
> toolbar.
>
> En mi caso quiero tener botones de 32 de alto por 48 de ancho con imágenes
> de 24x24, sin texto.
:nBtnWidth := 48
:nBtnHeight := 32
y añade las imágenes de 24x24 a la(s) imagelist(s)
--
Un saludo,
José F. Giménez
http://www.xailer.com

José,
Gracias por tu respuesta.
En este código:
WITH OBJECT ::oReBar1 := TReBar():New( Self )
:SetBounds( 0, 0, 417, 62 )
:AddItem( )
:Create()
END
WITH OBJECT ::oToolBar1 := TToolBar():New( ::oReBar1 )
:SetBounds( 12, 0, 120, 28 )
:nBtnWidth := 48
:nBtnHeight := 32
WITH OBJECT :oImageList
:nWidth := 24
:nHeight := 24
:Add( "BrushBarra" )
END
:AddSeparator( )
:AddItem( "", 2 )
:Create()
END
No consigo hacer que la toolbar tome el tamaño indicado en nbtnheight (o no
se como hacerlo).
Te adjunto un proyecto (pruebas4.zip). En ese proyecto hay dos toolbars.
La primera está dentro de una Rebar, la segunda va solita.
Por lo que puedo entender, parece ser que la rebar no se ajusta a la altura
de la toolbar. Incluso si cambio el nHeight de la rebar, en ejecución no
parece que me haga mucho caso.
Haciendo pruebas he notado lo siguiente:
a. No veo la creación de la rebarband en el xfm: ¿no es necesaria la
rebarband?
b. Si, en el IDE, añado un segundo control a la rebar, entonces sí toma la
altura indicada en orebar:nHeight pero los botones de la toolbar toman el
tamaño de la imagelist.
Te dejo un segundo proyecto donde se puede apreciar el punto b
(pruebas4b.zip).
Saludos,
José Luis Capel
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=44a3aea3@news.xailer.com...]44a3aea3@news.xailer.com...[/email]
> José Luis,
>
>> No recuerdo como definir un tamaño de botón para los botones de la
>> toolbar.
>>
>> En mi caso quiero tener botones de 32 de alto por 48 de ancho con
>> imágenes
>> de 24x24, sin texto.
>
> :nBtnWidth := 48
> :nBtnHeight := 32
>
> y añade las imágenes de 24x24 a la(s) imagelist(s)
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>
>


Attached files pruebas4.zip (4.7 KB)Â pruebas4b.zip (4.7 KB)Â

José Luis,
> Te adjunto un proyecto (pruebas4.zip). En ese proyecto hay dos toolbars.
> La primera está dentro de una Rebar, la segunda va solita.
>
> Por lo que puedo entender, parece ser que la rebar no se ajusta a la
> altura de la toolbar. Incluso si cambio el nHeight de la rebar, en
> ejecución no parece que me haga mucho caso.
Acabo de probarlo, y por lo que veo, lo que falta es que al cambiar la
altura de los botones se ajuste automáticamente la altura de la toolbar.
Pero si después de asginar nBtnHeight, cambio el valor de nHeight, funciona
bien.
> a. No veo la creación de la rebarband en el xfm: ¿no es necesaria la
> rebarband?
Antes del :Create() de la rebar verás varias líneas :AddItem(). Esas líneas
son las encargadas de preparar las bandas para cuando se añadan los
controles a la rebar. No obstante, la forma en como se hacía antes por
código sigue estando operativa por compatibilidad hacia atrás.
> b. Si, en el IDE, añado un segundo control a la rebar, entonces sí toma la
> altura indicada en orebar:nHeight pero los botones de la toolbar toman el
> tamaño de la imagelist.
En el ejemplo tienes indicado nBtnHeight = 32, y por lo que veo sale
correcto.
--
Un saludo,
José F. Giménez
http://www.xailer.com

José Luis,
> Acabo de probarlo, y por lo que veo, lo que falta es que al cambiar la
> altura de los botones se ajuste automáticamente la altura de la toolbar.
> Pero si después de asginar nBtnHeight, cambio el valor de nHeight,
> funciona bien.
Ya lo he corregido para que al cambiar nBtnHeight se ajuste automáticamente
la altura de la toolbar, pero solamente en modo diseño en el IDE. Si se crea
la toolbar por código hay que especificar ambos valores.
--
Un saludo,
José F. Giménez
http://www.xailer.com