Estimados
El ejemplo TestRBTN.PRG, al presionar la flecha y ejecutar una accion del menu y luego todas las acciones del dialogo quedan sin
funcionar..
en el siguiente ejemplo presiona una accion de la lista del boton, y luego quiero presionar el boton salir y no funciona, presiono la x del dialogo y tampoco funciona.. hasta que presione nuevamente del la lista del boton del ribon
Alguna solucion para esto!!
version FWH 10.9
El ejemplo TestRBTN.PRG, al presionar la flecha y ejecutar una accion del menu y luego todas las acciones del dialogo quedan sin
funcionar..
en el siguiente ejemplo presiona una accion de la lista del boton, y luego quiero presionar el boton salir y no funciona, presiono la x del dialogo y tampoco funciona.. hasta que presione nuevamente del la lista del boton del ribon
Alguna solucion para esto!!
#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() ROUND ACTION MsgInfo( "click" ) ;
PROMPT "Class TRBtn" BITMAP "..\bitmaps\16x16\fivetech.bmp" LEFT
REDEFINE BUTTONBMP ID 101 OF oDlg ;
ACTION oDlg:End() ;
UPDATE PROMPT "&Salir" ;
BITMAP "C:\fwh\bitmaps\exit2.bmp" ;
TEXTRIGHT
ACTIVATE DIALOG oDlg CENTERED
return nil
function BuildPopup()
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 oPopupversion FWH 10.9
Saludos
Patricio
__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Patricio
__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl