FiveTech Software tech support forums

... ; If( MsgYesNo( "Do you want to end ?", "Please, Select" ), oWnd:End,) ; MESSAGE "End the execution of this demo" ENDMENU MENUITEM "&Options" MENU MENUITEM "&ADO dbf" ACTION ADO_Dbf(); MESSAGE "ADO DBF" MENUITEM "&Calculator..." ...

Carlos,

Revisa la funcion o procedimiento donde construyes el menu, alguna vez me paso eso y era porque faltaba un endmenu.

Un prueba simple que puedes hacer es comentar la parte de la generacion del menu y ver si se muestra la ventana.

Saludos,

Lautaro

... ),; oView:oCalex:SetWeekView(),; oView:oCalex:SetDayView() ) ) MENUITEM "Print Week" ACTION oView:oCalex:oWeekView:PrintWeek() ENDMENU http://www.eoeo.it/wp-content/uploads/2014/06/print.jpg

... ACC_ALT, VK_F2 // este es un submenu MENUITEM ACTION .. ACCELERATOR ACC_CONTROL, VK_F2 SEPARATOR MENUITEM ACTION oWnd:End() ACCELERATOR 0, VK_F2 ENDMENU MENUITEM MENU MENUITEM ACTION // este es un submenu MENUITEM ACTION .. ACCELERATOR ACC_SHIFT, VK_F2 MENUITEM ENDMENU MENU MENUITEM MENU MENUITEM ...

...  in ?)    WINDOW.PRG     1365 ENABLEWINDOW()         (function  in ?)    WINDOW.PRG      555   569 ENDCLASS                WINDOW.PRG      919 ENDMENU                WINDOW.PRG     3913 ENDPAGE                WINDOW.PRG     1894  2997 ENDPAINT()             (function  in ?)    WINDOW.PRG   ...

... "&Open BITMAP" ACTION (OPEN_IMAGE()) ; MESSAGE OemToAnsi( "Open image *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.TIF *.WMF" ) ENDMENU MENUITEM "&Exit" ACTION oWnd:End() MESSAGE "Close Window" ENDMENU return oMenu //----------------------------------------------------------------------------// ...

... according to your choice to buttonbar or menu to be used with MainWindow. Example: DEFINE BUTTONBAR oBar OF oWndMAIN 2010 MENU oMenu 2010 .... ENDMENU

... oMnuItem ) ENDIF cValue := ALLTRIM((cMnuAlias)->CNEXT) DO CASE CASE cValue == 'M0' MENU CASE cValue == 'M1' MENU CASE cValue == 'E1' ENDMENU CASE cValue == 'E2' ENDMENU ; ENDMENU CASE cValue == 'E3' ENDMENU ; ENDMENU ; ENDMENU CASE cValue == 'E4' ENDMENU ; ENDMENU ; ENDMENU ; ENDMENU ...

... MENUITEM HB_OEMTOANSI( ALLTRIM(MEN->cNombreMen) ) ELSE MENUITEM HB_OEMTOANSI( ALLTRIM(MEN->cNombreMen) ) DISABLED ENDIF MENU MENUX(1) ENDMENU ENDDO ENDMENU // CLOSE MEN // CLOSE OPC RETURN //************************************************************************************** FUNCTION ...

... "LOOK_EXCEL" ACTION oBrwLook:ToExcel() MENUITEM "File Dbase(Dbf)" RESOURCE "LOOK_DBF" ACTION oBrwLook:ToDBF( cFile) ENDMENU return opop

... dbgotop dbgoto dbsetfilter dbusearea dbcommit dbrecall dbdelete dbunlock dbappend exit else elseif endif export empty endclass endcase end endmenu enddo endpage endprint erase eof eval exact file for function from of footer font filter field fieldget fieldput fcount flock ferase fields ...

... )                EXIT             CASE "2" // separador                separator                EXIT             CASE "3" // endMenu                endMenu                EXIT             CASE "4" // menuItem normal asignado a una variable                hb_execFromArray( ...

... ) SEPARATOR MENUITEM if( cLg == "L", "Pašalinti filtrus", "Clear filters" ) ACTION MsgInf( "salinsim " ) ENDMENU return( oPopup ) Undefined function ... :( .

... TMain, en la cual defino un window padre asi:: //------------------- METHOD WindowMain() CLASS TMain Local This:=Self Local oMenu // MENU oMenu ENDMENU // SETBALLOON(.T.) DEFINE WINDOW ::oWnd MDI MENU oMenu; TITLE ::cTitulo PIXEL FROM 0, 0 TO Getsysmetrics(17), Getsysmetrics(16) BRUSH ::oBrushoWnd; ...

... "Save as Draft" MENUITEM oMenuItem[7] PROMPT "Save as Recurring" SEPARATOR MENUITEM oMenuItem[8] PROMPT "Preview" ENDMENU oMenuItem[8]:lChecked:=.t.