Ayuda con ButtonBar

[jmartial]

Hola,

Tengo el siguiente código de ejemplo:

Code: Select all  Expand view  RUN

DEFINE BUTTONBAR oBar SIZE 48,48 OF oWnd 2010

 
  DEFINE BUTTON oBtn1 OF oBar FILE cPath+"articulos_24x24.bmp" TOOLTIP "Acesso Total"  PROMPT "Artículos" ;
             ACTION ( MsgInfo("Ok!") ) TOP FLAT

El problema es que el botón se pinta justo, justo por arriba y por debajo, es decir, mide exactamente igual de alto que la ButtonBar.

No encuentro como hacer, que por ejemplo la ButtonBar sea 64 pixeles de alta y los botones 48. Y además decirle, que me pinte el botón centrado, es decir,
8 pixeles por arriba y 8 por debajo, o ponerle el nTop que yo quiera.


A ver si alguien me puede echar una mano.

[joseluisysturiz]

Usando botones con BMP de 32x32 creo la barra de 60x60, aumenta un poco la barra haber como te va...tambien puedes usar la barra de la ribbon que se ve mas genial y moderna, saludos...

Defining a button of the buttonbar, espero te sirva...

Code: Select all  Expand view  RUN

DEFINE BUTTON [<oBtn>] ;
[ OF | BUTTONBAR <oBar> ] ;
[ NAME | RESNAME | RESOURCE <cResName1>] ;
[,<cResName2>, <cResname3>] ] ;
[ FILE | FILENAME | DISK <cBmpFile1>;
[,<cBmpFile2> <cBmpFile3>] ] ;
[ ACTION | EXEC <uAction> ] ;
[ GROUP ] ;
[ MESSAGE <cMsg> ] ;
[ ADJUST ] ; * Obsolete
[ WHEN <uWhen> ] ;
[ TOOLTIP <cToolTip> ] ;
[ PRESSED <lPressed> ] ;
[ ON DROP <bDrop>] ;
[ AT <nPos> ] ;
[ PROPMT < cPrompt> ] ;
[ FONT <oFont> ] ;
[ NO BORDER | FLAT ] ;
[ MENU <oPopup> ] ;
[ CENTER | TOP | LEFT | BOTTOM | RIGHT ]
 

[jmartial]

Hola Jose,

Por un lado, el usar bitmaps más pequeños lo único que hace es que la barra se autoajuste, pero al seleccionar sigue el problema de que ocupa la altura completa.

Lo de la ribbon, está creado con unas pestañas y para hacer grupos, esa no es la idea.

Gracias de todos modos por tus sugerencias.

[horacio]

La ribbon la puedes usar como una ButtonBar, las pestañas pueden ocultarse



La segunda buttonbar es una ribbon.

Saludos

[joseluisysturiz]

El colega Horacio se adelanto a mi respuesta, la ribbon la puedes usar con una sola pestaña y la ocultas y tienes el bien de poner los iconos del tamaño que quieras y en la posicion que quieras y combinar iconos de diferentes tamaños, se veria igual a la button bar y hasta mas elegante, seria una buena opcion, saludos...

[Antonio Linares]

Horacio, Jose Luis,

Cómo ocultais las pestañas de la RibbonBar ?

[horacio]

Antonio, no definiendo los prompts y poniendo el TopMargin a 0

Code: Select all  Expand view  RUN

Define Ribbonbar oRBar Window oVarGlobales : oWndHijas[ 1 ] Height 58 Topmargin 0 2010 Color RGB( 220, 235, 252 )
 

Saludos

[joseluisysturiz]

Antonio, es mas que todo un truco visual, si dejas las pestañas y pones TopMargin en 0, oculta las pestañas por la posicion de la barra y puedes hacer referencia a ellas y hasta usar la opcion ALT, pero si no quieres nada de eso...Ya lo dijo el colega, saludos...

Code: Select all  Expand view  RUN

   DEFINE RIBBONBAR oRBar WINDOW oDatos:oWndPPAL HEIGHT 90 TOPMARGIN 0 2010

   ADD GROUP oGrupos[1,1] RIBBON oRBar TO OPTION 1 width 270 PROMPT "Agrupación"

   @ 10, 5 ADD BUTTON aBtn[1] ;
      PROMPT "Cancelar" ;
      BITMAP "bitmaps\cancel32.bmp" ;
      GROUP oGrupos[1,1] ACTION ( Alert() ) ;
      ROUND SIZE 60, 55

   @ 10, 65 ADD BUTTON aBtn[2] ;
      PROMPT "Factura" ;
      BITMAP "bitmaps\factura32.bmp" ;
      GROUP oGrupos[1,1] ACTION ( Alert() ) ;
      ROUND SIZE 60, 55

   @ 10, 130 ADD BUTTON aBtn[3] ;
      PROMPT "Marcar" ;
      BITMAP "bitmaps\marca32.bmp" ;
      GROUP oGrupos[1,1] ACTION ( Alert() ) ;
      ROUND SIZE 60, 55

   @ 10, 195 ADD BUTTON aBtn[4] ;
      PROMPT "Salir" ;
      BITMAP "bitmaps\salir32.bmp" ;
      GROUP oGrupos[1,1] ACTION ( oDatos:oWndPPAL:END() ) ;
      ROUND SIZE 60, 55
 

[horacio]

Jose Luis, no se me había ocurrido la idea de definir varias pestañas ocultas. Buena idea ...

Saludos

[cnavarro]

Horacio, Jose Luis, muy bueno, gracias

[joseluisysturiz]

Que bueno la idea haya gustado, aprovechando el tema...alguien ha hecho un menu personalizado por usuario pero con la Ribbon.? apenas empiezo intentarlo, pero para que inventar la rueda.? alguna sugerencia o idea...la idea es bloquear a los usuarios dependiendo de su nivel, pestaña completa, grupo o botones...espero sugerencias e ideas, gracias...saludos...