Como puedo en una Toolbar...

[MarioG]

Estimados
Tengo una Toolbar que se vé de la siguiente manera


Lo que pretendo es, como muestro, separar el icono de Ayuda del resto
Al ícono de fondo blanco lo hice así:

Code: Select all  Expand view  RUN

oImgMnBrw1:AddMasked( TBitmap():Define( "bmp_Trans32",, oWChld ), "bmp_Trans32" )  // bmp_Trans32 es un ícono vacio de fondo transparente

Pero por lo visto no toma el efecto deseado

Como puedo hacerlo?

[jll-fwh]

Hola Mario:

Usa las DATAs de la clase:

Ejemplo;

Si creas una barra, al boton que quieras mover le asignas un objeto y luego una vez creado le cambias la posicion asi:

ejemplo:

oSalir:nleft := oBar:nRight - 70

Un saludo
JLL
msn: fwh-jll@hotmail.es

[Bayron]

Es posible hacer lo mismo con la RIBBONBAR????

Intenté hacerlo igual con un Grupo de Botones, pero no funcionó....

[jll-fwh]

Hola Bayron:

No estoy usando RIBBONBAR de momento y tampoco tengo la clase, cuando vea que esta 100% depurada ya me metere en ello.

Solo he visto algunos fuentes que se han publicado en el foro, pero en principio yo diria que no tendrias que tener ningun problema, mira la clase y mira las datas que tiene, tiene que tener el objeto las propiedades como todos.

Un saludo
JLL
Msn: jll-fwh@hotmail.es

[MarioG]

muchas gracias!

[MarioG]

jjl;
voy a necesitar mas ayuda porque mirando el include de la toolbar tengo;

Code: Select all  Expand view  RUN

 

#xcommand DEFINE TBBUTTON ;
[ OF <oToolBar> ] ;
[ ACTION <uAction> ] ;
[ TOOLTIP <cToolTip> ] ;
[ PROMPT <cPrompt> ] ;
[ WHEN <uWhen> ] ;
[ MESSAGE <cMsg> ] ;
=> ;
<oToolBar>:AddButton( [<{uAction}>], [<cToolTip>], [<cPrompt>],;
[<{uWhen}>], [<cMsg>] )[/code]

y para sacarme la duda miro el fuente (aunque arriba esta mas que claro)

Code: Select all  Expand view  RUN

METHOD AddButton( bAction, cToolTip, cText, bWhen, cMsg ) CLASS TToolBar

   AAdd( ::aButtons, { bAction, cToolTip, cMsg,, bWhen } )
   
   TBAddButton( ::hWnd, Len( ::aButtons ), Len( ::aButtons ), cText )

   if bWhen != nil .and. ! Eval( bWhen )
      ::EnableButton( Len( ::aButtons ), .f. )
   endif        

return nil
 

Asi es que la verdad es que no se como asignar un obj al boton.

[Ruben Fernandez]

MarioG, No puedo ver tu imagen.
Si lo que deseas es cambiar de lugar el boton, intenta de esta manera que es como te dijo JLL.

Te dejo un ejemplo:

DEFINE BUTTON oBoton6 OF oBtnBar RESNAME "CERRAR" ;
MESSAGE "Cerrar mes de trabajo" ;
ACTION( TUACCION() ) ;
PROMPT "Cerrar mes." FONT oFontBar

oBoton6:nleft := oBtnBar:nRight + 560

Como está me deja este boton al final de la buttonbar. Juega con los valores para dejarlo donde deseas.
Saludos

Ruben Fernandez

[MarioG]

Ruben:
Gracias por responder
Mas allá de que no se vea el gráfico, mi consulta fue dirigida al uso de botones mediane ToolBar

Saludos