sinceramente espero que la tercera sea la vencida.... porque ya desisto de pedirlo....
Daniel Garcia-Gil wrote:Puedes poner un ejemplo que podamos construir para ver el error....
algo simple...
este es el codigo del ejemplo que te menciono (como veras es muy simple)
ejecutalo desde la carpeta de samples
#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
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 oPopupRC
#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
}Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9