Botones en TOOLBAR

[Pablo Herranz]

Hola, con el codigo siguiente,la toolbar no me muestra los botones completos
(son todos de 48x48), me da la impresion de que la toolbar es mas pequeña
que los botones. ¿Qu hago mal?
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:Create()
:lList:=.t.
:lAutoSize := .t.
:nBtnWidth := 48
:nBtnHeight := 48
:AddButton( "", "parcelas",,, "Secciones", {|| ::MatSec() } )
:AddButton( "", "Cuotai",,, "Proveeedores", {|| ::MatF1() } )
:AddButton( "", "Puerta",,, "Salida", {|| ::Close() } )
:Adjust()
END
WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
:oControl := ::oToolBar
:Create()
END
Saludos
Pablo Herranz

[ignacio]

Pablo,
Haz las siguientes pruebas por favor:
- quita la asignación de las propiedades nBtnWidth y nBtnHeight para que lo
calcule automaticamente
- O aumenta dichos valores para ver si el problema se resuelve
Manda un pequeño proyecto para que le echemos un vistazo.
Gracias.
--
Ignacio Ortiz
www.xailer.com
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:[email=42088d8e@ozsrv2.ozlan.local...]42088d8e@ozsrv2.ozlan.local...[/email]
> Hola, con el codigo siguiente,la toolbar no me muestra los botones
> completos (son todos de 48x48), me da la impresion de que la toolbar es
> mas pequeña que los botones. ¿Qu hago mal?
>
> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
> :Create()
> :lList:=.t.
> :lAutoSize := .t.
> :nBtnWidth := 48
> :nBtnHeight := 48
>
> :AddButton( "", "parcelas",,, "Secciones", {|| ::MatSec() } )
> :AddButton( "", "Cuotai",,, "Proveeedores", {|| ::MatF1() } )
> :AddButton( "", "Puerta",,, "Salida", {|| ::Close() } )
> :Adjust()
> END
> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
> :oControl := ::oToolBar
> :Create()
> END
>
> Saludos
> Pablo Herranz
>
>
>

[jfgimenez]

Pablo,
> Hola, con el codigo siguiente,la toolbar no me muestra los botones
> completos (son todos de 48x48), me da la impresion de que la toolbar es
> mas pequeña que los botones. ¿Qu hago mal?
Pon la llamada a Create() después de asignar las propiedades del objeto.
Así:
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:lList:=.t.
:lAutoSize := .t.
:nBtnWidth := 48
:nBtnHeight := 48
:Create()
...
--
Un saludo,
José F. Giménez

[Pablo Herranz]

Resuelto con la indicacion de Jose
Gracias
Pablo
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=420892c9@ozsrv2.ozlan.local...]420892c9@ozsrv2.ozlan.local...[/email]
> Pablo,
>
>> Hola, con el codigo siguiente,la toolbar no me muestra los botones
>> completos (son todos de 48x48), me da la impresion de que la toolbar es
>> mas pequeña que los botones. ¿Qu hago mal?
>
> Pon la llamada a Create() después de asignar las propiedades del objeto.
> Así:
>
> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
> :lList:=.t.
> :lAutoSize := .t.
> :nBtnWidth := 48
> :nBtnHeight := 48
> :Create()
> ...
>
>
> --
> Un saludo,
>
> José F. Giménez
>

[ignacio]

Pablo,
No me di cuenta de ese detalle, lo siento.
Creo que es importante resaltar que la instanciación en Xailer se hace en
dos fases casi siempre, y que la asignación de propiedades debe hacerse
normalmente entre las dos operaciones es decir:
// Instanaciación inicial
Control:New( ... )
// Asignación de propiedades
Control:cData := ...
// Instanaciación definitiva
Control:Create( ... )
Un saludo,
--
Ignacio Ortiz
www.xailer.com
"Pablo Herranz" <pablo@ibertabaco.com> escribió en el mensaje
news:42089bf7$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Resuelto con la indicacion de Jose
>
> Gracias
> Pablo
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:[email=420892c9@ozsrv2.ozlan.local...]420892c9@ozsrv2.ozlan.local...[/email]
>> Pablo,
>>
>>> Hola, con el codigo siguiente,la toolbar no me muestra los botones
>>> completos (son todos de 48x48), me da la impresion de que la toolbar es
>>> mas pequeña que los botones. ¿Qu hago mal?
>>
>> Pon la llamada a Create() después de asignar las propiedades del objeto.
>> Así:
>>
>> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
>> :lList:=.t.
>> :lAutoSize := .t.
>> :nBtnWidth := 48
>> :nBtnHeight := 48
>> :Create()
>> ...
>>
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>>
>
>