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
Fernando,
El di谩logo lo creas desde c贸digo fuente 贸 desde recursos ?
Es un di谩logo creado desde recursos.
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 
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
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
Gracias, lo tendr茅 en cuenta.
Un saludo,
Fernando Morales
Las Palmas de Gran Canaria
聽 聽 聽 聽 聽 聽 聽 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.)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.
#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#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
}
隆Bingo!, justo lo que necesito Antonio, gracias.