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
- 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() 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 oPopup
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
}