FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda con ButtonBar
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Ayuda con ButtonBar
Posted: Wed Dec 24, 2014 09:42 AM
Hola,

Tengo el siguiente código de ejemplo:

Code (fw): Select all Collapse
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.
Un Saludo,

Joaquín Martínez
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Ayuda con ButtonBar
Posted: Wed Dec 24, 2014 04:11 PM
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 (fw): Select all Collapse
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 ]
Dios no está muerto...



Gracias a mi Dios ante todo!
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Ayuda con ButtonBar
Posted: Thu Dec 25, 2014 10:09 AM

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.

Un Saludo,

Joaquín Martínez
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Ayuda con ButtonBar
Posted: Thu Dec 25, 2014 01:50 PM
La ribbon la puedes usar como una ButtonBar, las pestañas pueden ocultarse



La segunda buttonbar es una ribbon.

Saludos
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Ayuda con ButtonBar
Posted: Thu Dec 25, 2014 02:40 PM

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:

Dios no está muerto...



Gracias a mi Dios ante todo!
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ayuda con ButtonBar
Posted: Fri Dec 26, 2014 04:30 PM

Horacio, Jose Luis,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Ayuda con ButtonBar
Posted: Fri Dec 26, 2014 09:04 PM
Antonio, no definiendo los prompts y poniendo el TopMargin a 0

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


Saludos
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Ayuda con ButtonBar
Posted: Sat Dec 27, 2014 02:41 AM
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 (fw): Select all Collapse
   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
Dios no está muerto...



Gracias a mi Dios ante todo!
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Ayuda con ButtonBar
Posted: Sat Dec 27, 2014 01:16 PM

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

Saludos

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda con ButtonBar
Posted: Sat Dec 27, 2014 01:38 PM

Horacio, Jose Luis, muy bueno, gracias

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Ayuda con ButtonBar
Posted: Sat Dec 27, 2014 05:50 PM

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:

Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion

Static archive · New replies & topics via GitHub Discussions