Page 1 of 1

Ayuda con ButtonBar

PostPosted: Wed Dec 24, 2014 9:42 am
by jmartial
Hola,

Tengo el siguiente código de ejemplo:

Code: Select all  Expand view
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.

Re: Ayuda con ButtonBar

PostPosted: Wed Dec 24, 2014 4:11 pm
by 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... :shock:

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

Code: Select all  Expand view

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 ]
 

Re: Ayuda con ButtonBar

PostPosted: Thu Dec 25, 2014 10:09 am
by 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.

Re: Ayuda con ButtonBar

PostPosted: Thu Dec 25, 2014 1:50 pm
by horacio
La ribbon la puedes usar como una ButtonBar, las pestañas pueden ocultarse

Image

La segunda buttonbar es una ribbon.

Saludos

Re: Ayuda con ButtonBar

PostPosted: Thu Dec 25, 2014 2:40 pm
by 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... :shock:

Re: Ayuda con ButtonBar

PostPosted: Fri Dec 26, 2014 4:30 pm
by Antonio Linares
Horacio, Jose Luis,

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

Re: Ayuda con ButtonBar

PostPosted: Fri Dec 26, 2014 9:04 pm
by horacio
Antonio, no definiendo los prompts y poniendo el TopMargin a 0

Code: Select all  Expand view

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


Saludos

Re: Ayuda con ButtonBar

PostPosted: Sat Dec 27, 2014 2:41 am
by 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... :shock:

Code: Select all  Expand view

   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
 

Re: Ayuda con ButtonBar

PostPosted: Sat Dec 27, 2014 1:16 pm
by horacio
Jose Luis, no se me había ocurrido la idea de definir varias pestañas ocultas. Buena idea ...

Saludos

Re: Ayuda con ButtonBar

PostPosted: Sat Dec 27, 2014 1:38 pm
by cnavarro
Horacio, Jose Luis, muy bueno, gracias

Re: Ayuda con ButtonBar

PostPosted: Sat Dec 27, 2014 5:50 pm
by 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... :shock: