FiveTech Software tech support forums

Me alegro A las antiguas funciones, se les han añadido muchos más parámetros para utilizar las nuevas características que se han añadido a los menus Te recomiendo que si no utilizas los comandos, mires las definiciones de las funciones en PDMENU.PRG, así verás donde te da el error, y sabrás qué par...

Me alegro A las antiguas funciones, se les han añadido muchos más parámetros para utilizar las nuevas características que se han añadido a los menus Te recomiendo que si no utilizas los comandos, mires las definiciones de las funciones en PDMENU.PRG, así verás donde te da el error, y sabrás qué pará...

Asi //----------------------------------------------------------------------------//function BuildMenu()   local oMenu   oMenu := ; //MenuBegin( .F.,,, .F., .F. )   MenuBegin( .F., , , .F., .F., , ;              , , , , , , , , , , .F., .F., .F., .F. )      MenuAddItem( "&Information",, ...

... BuildMenu()   local oMenu   oMenu := ; //MenuBegin( .F.,,, .F., .F. )   MenuBegin( .F., , , .F., .F., , ;              , , , , , , , , , , .F., ...

...   // Esta em Contabil.Prg \samples\account    oLbx:bRClicked := { | nRow, nCol, nFlags |                            ;         ( oMenu := MenuBegin( .T. )                                    , ;           MenuAddItem( ( OemToAnsi( "Incluir Cliente" ) ),, ...

... nil//----------------------------------------------------------------------------//function BuildMenu()   local oMenu   /*   oMenu := MenuBegin( .F.,,, .F., .F. )      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )      MenuBegin( .F.,,, .F., .F. )         MenuAddItem( ...

... BuildMenu()   local oMenu   /*   oMenu := MenuBegin( .F.,,, .F., .F. )      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )      MenuBegin( ...

... nil//----------------------------------------------------------------------------//function BuildMenu()   local oMenu   oMenu := MenuBegin( .F.,,, .F., .F. )      MenuAddItem( "&Information",, .F.,,,,,,,,, .F.,,, .F. )      MenuBegin( .F.,,, .F., ...

... 4 [ 2] = N 5 Stack Calls =========== Called from: .\source\classes\PDMENU.PRG => MENUDATA( 525 ) Called from: .\source\classes\PDMENU.PRG => MENUBEGIN( 212 ) Called from: mnuselect.prg => MENUDATABASE( 92 ) regards Uwe :?:

... 4 [ 2] = N 5 Stack Calls =========== Called from: .\source\classes\PDMENU.PRG => MENUDATA( 525 ) Called from: .\source\classes\PDMENU.PRG => MENUBEGIN( 212 ) Called from: MNUSELECT.prg => MENUDATABASE( 93 ) Called from: MNUSELECT.prg => MAIN( 21 ) I have tested with FWH 17.06 Please ...

Antonio, I have slill a problem. I have changed the MAK-file to #Microsoft Visual-Studio Community 2015, (c) FiveTech Software 2016HBDIR=C:\_vmsdata\FWH64\harbour64FWDIR=C:\_vmsdata\FWH64\fwh64VCDIR="c:\Program Files (x86)\Microsoft Visual Studio 14.0\VC"SDKDIR="c:\Program Fil...

... clausule COLORLEFT <color> If you use COLORLEFT <color1>, <color2>, not change Please, change in MENU.CH [ <oObjMenu> := ] MenuBegin( <.popup.>,, <oCtrl>, <.l2007.>, <.l2010.>,,; //<.lUnicode.> <nClrMenu>, <nClrMenutxt>, ; <nClrBkBa>, ...

Yes, bug detected Please, change in menu.ch         [ <oObjMenu> := ] MenuBegin( <.popup.>,, <oCtrl>, <.l2007.>, <.l2010.>,,;  //<.lUnicode.>                          <nClrMenu>, <nClrMenutxt>, ;                 ...

... oMnuItem ) ENDIF cValue := ALLTRIM((cMnuAlias)->CNEXT) nEnd := (cMnuAlias)->NLOOP FOR nL := 1 TO nEnd DO CASE CASE Left(cValue,1) = 'M' MenuBegin( ,,, TRUE ) CASE Left(cValue,1) = 'E' MenuEnd() END CASE NEXT nL (cMnuAlias)->(dbSkip()) NEXT i MENUITEM 'A&yuda' HELP MENU MENUITEM ...

... @oQry, oSystem:csysmenu, 1,, oRDD:rdbms, cQry ) MsgInfo('Error de apertura') oWnd:PostMsg(WM_CLOSE) ENDIF nRec := oQry:LastRec() oApp:oMainMenu := MenuBegin( ,,, TRUE ) // MENU oApp:oMainMenu 2007 FOR i := 1 To nRec IF ( oQry:FLDSEPARAT ) //== TRUE *SEPARATOR oMnuItem:= MenuAddItem() ENDIF IF FILE( ...