Texto en botones de la TToolBar

[jasm.nospam]

Parto de este código:
WITH OBJECT ::oToolBar1 := TToolBar():New( ::oRebar1 )
:lList := .F.
:lAutoSize := .T.
:nBtnHeight := 50
:nBtnWidth := 50
:Create()
:AddButton( "Familias",,,, "Familias", {|| NIL } )
:AddButton( "Artí­culos",,,, "Artí­culos", {|| NIL } )
:AddButton( "Agenda",,,, "Agenda", {|| NIL } )
:AddSeparator()
:AddButton( "Táctil",,,, "Táctil", {|| NIL } )
:AddButton( "Informe de Caja", "",,, "Informe Caja", {|| NIL } )
:AddSeparator()
:AddButton( "Salir",,,, "Salir", {|| ::Close() } )
END
En todos los botones sale en texto "Familias"
Saludos
Jose A. Suarez

[jasm.nospam]

Si asigno el texto a cada boton funciona:
:aButtons[ 1 ]:cText := "Familias"
:aButtons[ 2 ]:cText := "Artí­culos"
Saludos
Jose A. Suarez
Jose Alfonso Suárez Moreno escribió:
> Parto de este código:
>
> WITH OBJECT ::oToolBar1 := TToolBar():New( ::oRebar1 )
> :lList := .F.
> :lAutoSize := .T.
> :nBtnHeight := 50
> :nBtnWidth := 50
> :Create()
> :AddButton( "Familias",,,, "Familias", {|| NIL } )
> :AddButton( "Artí­culos",,,, "Artí­culos", {|| NIL } )
> :AddButton( "Agenda",,,, "Agenda", {|| NIL } )
> :AddSeparator()
> :AddButton( "Táctil",,,, "Táctil", {|| NIL } )
> :AddButton( "Informe de Caja", "",,, "Informe Caja", {|| NIL } )
> :AddSeparator()
> :AddButton( "Salir",,,, "Salir", {|| ::Close() } )
> END
>
> En todos los botones sale en texto "Familias"
>
> Saludos
>
> Jose A. Suarez

[jasm.nospam]

¿El texto de los botones puede ser multilinea?
Saludos
Jose A. Suarez

[jfgimenez]

José Alfonso,
tienes razón; es un bug tonto. Aquí lo tienes corregido.
Por cierto, perdonad todos que las rebar y toolbar estén en las condiciones
que están. La razón es que hace ya casi 4 años que las hice para FWH, y
cuando empecé con Xailer las adapté con muy pocos cambios, y por eso están
hechas a la FW.
Tenemos que rehacerlas para que encajen con la forma de trabajar de Xailer y
ampliar sus posibilidades. Si no lo hemos hecho hasta ahora ha sido por
falta de tiempo y porque al estar funcionando teníamos otras prioridades más
urgentes.
--
Un saludo,
José F. Giménez


Attached files ToolBar.zip (4.1 KB)Â

[jfgimenez]

José Alfonso,
perdona, aquí lo tienes de nuevo. En el anterior se me ha colado un
logdebug()
--
Un saludo,
José F. Giménez


Attached files ToolBar.zip (4 KB)Â

[jasm.nospam]

Jose,
Gracias.
Pasa otra cosa más:
Si no existen las imágenes de los botones previos, salen descolocadas.
Saludos
Jose A. Suarez

[jfgimenez]

José Alfonso,
> Pasa otra cosa más:
>
> Si no existen las imágenes de los botones previos, salen descolocadas.
Si, es cierto. Las imágenes se van colocando botón a botón. Me temo que esa
es otra de las rémoras del pasado. Tendrás que esperar un poco a que
rehagamos el control.
--
Un saludo,
José F. Giménez

[jasm.nospam]

Jose,
> Si, es cierto. Las imágenes se van colocando botón a botón. Me temo que esa
> es otra de las rémoras del pasado. Tendrás que esperar un poco a que
> rehagamos el control.
Lo tendre en cuenta a fin de evitar sorpresas....
Saludos
Jose A. Suárez