Ayuda para: menú desplegable para un botón

[fernandomoralesdr]

Hola
Puede alguien explicarme cómo ponerle opciones a un botón definido en un diálogo, pero no al hacer click sobre él, sino que el botón muestre la flechita a la derecha indicando que es desplegable. Sé que pude hacerse en botones incrustados en una barra de botones.
Gracias,
Fernando Morales
Las Palmas de Gran Canaria

[Antonio Linares]

Fernando,

El diálogo lo creas desde código fuente ó desde recursos ?

[fernandomoralesdr]

Es un diálogo creado desde recursos.

[Antonio Linares]

Fernando,

La Clase TRibbonBar de FWH usa unos botones (Clase TRBtn) que permiten hacer lo que quieres y muchas más cosas.

Puedes revisar FWH\samples\ribbon.prg y ribbon.rc y verás como se definen en el fichero RC y como se redefinen desde el PRG. Si ejecutas ribbon.exe y pulsas en el primer botón grande de la Ribbon, te aparecerá la caja de diálogo mostrándote todas las posibilidades de esos botones

[fernandomoralesdr]

Muchas gracias Antonio.
Hace poco que estoy con FWH y aún no he revisado todos los ejemplos. Por cierto, tengo pendiente un post del día 11 por problemas esporádicos con XBROWSE y aún no he recibido respuesta en el foro. Si pudieras ayudarme te lo agradecería.
Gracias de nuevo y un saludo,
Fernando Morales
Las Palmas de Gran Canaria

[Antonio Linares]

Fernando,

Te acabo de contestar a ese post tuyo. Te pido disculpas por el retraso pero es que a veces se nos pasan posts con tantos que se publican. Estos foros tienen la opción de mostrar posts "nuevos" y a veces, pasados unos dias, dejan de mostrarlos.

En este caso lo más recomendable es volver a preguntar y si aún no hay respuesta, enviarme un email directamente a alinares@fivetechsoft.com asi nos aseguramos de que se atiendan las preguntas correctamente, gracias

[fernandomoralesdr]

Gracias, lo tendré en cuenta.
Un saludo,
Fernando Morales
Las Palmas de Gran Canaria

[Willi Quintana]

Esto uso en los botones de la ventana principal
Salu2

Code: Select all  Expand view

              MENU oPopup POPUP
                MENUITEM "Mensajes" ACTION Mensajes(oMySQL, oDataBase)
              ENDMENU
             

       DEFINE BUTTON oVentas OF oBar;
              RESOURCE "VENTAS" TOP NOBORDER ;//GROUP GROUP;
              PROMPT "Ventas" ;
              TOOLTIP "Sistema de Ventas" ;
              MESSAGE "Sistema de Ventas" ;
              MENU oPopup ;
              ACTION  (Ventas(oWnd, oBar, oMySQL, oDataBase), oApp:aVentana[4]:=.t.)


 

[fernandomoralesdr]

Gracias por tu respuesta, Willy.
Ya sé que en botones de una button bar no hay problemas, me referia a un botón independiente. De todas formas, Antonio Linares me ha remitido al programa ribbon.prg.

[Antonio Linares]

Fernando,

Aqui tienes un ejemplo completo

test.prg

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Ribbon.ch"

function Main()

   local oDlg, oPopup, oBtn

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE RBBTN oBtn ID 100 OF oDlg POPUP ;
      MENU BuildPopup( oBtn ) ROUND ACTION MsgInfo( "click" ) ;
      PROMPT "Class TRBtn" BITMAP "..\bitmaps\16x16\fivetech.bmp" LEFT

   ACTIVATE DIALOG oDlg CENTERED

return nil

function BuildPopup( oBtn )

   local oPopup
   
   MENU oPopup POPUP 2007
      MENUITEM "One" ACTION MsgInfo( "One" ) FILE "..\bitmaps\16x16\fivetech.bmp"
      MENUITEM "Two" ACTION MsgInfo( "Two" ) FILE "..\bitmaps\16x16\fivetech.bmp"
      SEPARATOR
      MENUITEM "Three" ACTION MsgInfo( "Three" ) FILE "..\bitmaps\16x16\fivetech.bmp"
   ENDMENU
   
return oPopup      
 

test.rc

Code: Select all  Expand view

#include <windows.h>

#ifdef __FLAT__
   1 24 "WinXP/WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif

Test DIALOG 17, 36, 185, 147
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test" FONT 8, "MS Sans Serif"
{  
   CONTROL "Test", 100, "TRBTN", WS_CHILD | WS_VISIBLE, 10, 15, 80, 20
   DEFPUSHBUTTON "OK", 1, 67, 128, 50, 14
}
 

Al pasar el ratón por encima de él:

[Antonio Linares]

Estos cambios son necesarios en la Clase TRBtn para que los menus popups salgan en el sitio correcto:

[Antonio Linares]

Tambien puedes usar la Clase TBtnBmp de FWH. Tienes un ejemplo en:

FWH\samples\TestBtnM.prg

[fernandomoralesdr]

¡Bingo!, justo lo que necesito Antonio, gracias.