FiveTech Software tech support forums

... ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ) .... MENU oMenu POPUP .. ENDMENU return oMenu

... Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .....} Function Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .... ENDMENU ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol RETURN (NIL) and another on action Function MenuContextual(oControl,oBrw,oDbf,cIniUser,cSection,lExport,lColConfig,oParent,oCont ...

... '&Países' action CATPai() message 'Países' menuitem '&Entidades Federativas' [url][/url] action CATEst() message 'Entidades Federativas' endmenu La idea es saber que opción se ejecutan e registrando una bitácora de usuario. saludos y gracias de antemano. Joel Andujo

... codsep ,; aCopy[ 8 ] := 0 ,; //recno aadd( oBrw:aArrayData, aCopy ),; oBrw:Unlock( .t. ), ; acopy:=NIL ,; oBrw:RefreshCurrent(), oBrw:SetFocus() ) ENDMENU but when I modify it the nRecord:= oBrowse:nArrayAt is the same

... MENUITEM ( AllTrim( oemtoansi(TablaMnu[i,3]) ) ) endif case TablaMnu[i,2] == 2 // separador SEPARATOR case TablaMnu[i,2] == 3 // final del menu ENDMENU endcase next ENDMENU return oMenu *----------------------------------------------------------------------------//

... ! ltipo1 ),; Maketree(oDbf,oBrw)) CHECKED SEPARATOR MENUITEM oItem2 PROMPT "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED ENDMENU return oMenu

... oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED ENDMENU return oMenu why it is not compiled ? Try Function BtnPop()local oItem1,oItem2MENU oMenu POPUPMENUITEM oItem1 PROMPT "First" ...

... oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ACTION oItem2:SetCheck( ltipo2 := ! ltipo2 ) CHECKED ENDMENU return oMenu why it is not compiled ?

... so that I can easily add a field to a xbrowse (debug mode) //-------------------------------------------------------------- MENU oMenu 2007 // ?? ENDMENU No idea, it was inside the sample program : Ribbon2 that I used as start sample Maybe not needed )) //-------------------------------------------------------------- ...

...   MENUITEM "First"         MENU            MENUITEM "test" BLOCK { || MsgInfo( "Hello" ) }         ENDMENU      ENDMENUreturn oMenu  You are right Antonio, Please find ribbon.prg from samples directory and change this lines and compile.   MENU oMenu ...

Hi, I use MENU... ENDMENU like below. I use BLOCK command in MENUITEM.     MENU oFaizMenu POPUP 2007        MENUITEM "Parameters" ACTION Parametre_FAIZ()        SEPARATOR    FOR hh:=1 TO 19        hhh:="oApp:GParam:xADI_"+ALLTRIM(STR(hh))  ...

... 250, 1 ) ) MenuAddItem( cPrompt, , !oCol:lHide, ( len(::aDisplay) != 1 .or. ocol:nPos != 1 ), GenMenuBlock( ::aCols, nFor ) ) next ENDMENU if ::bkeydown<>nil.and.::nMarqueeStyle==MARQSTYLE_HIGHLCELL MENUITEM "更改字体颜色" ACTION (color1:=ChooseColor(),restorestate2(self,color1,color2)) ...

... ENDMENU return oMenu2 // dynamic expand sub trees FUNCTION acc0502(otreeitem) local odb1,otreeitem2 if otreeitem:otree==nil odb1:=oserver:query("select ...

... oMenu 2007 MENUITEM "&Functions" MENU MENUITEM "&A. Load Languages" ACTION _LoadLanguages( @oSay, @oSay2 ) SEPARATOR ENDMENU MENUITEM "&Exit" ACTION oWnd:End() ENDMENU DEFINE WINDOW oWnd TITLE "CDM Web Freight - Application Tools" ICON oIcon ...

... of our menu     Example: MENU oMenu MENUITEM "First" MENU MENUITEM "My Test" BOLD MENUITEM "My Menu" ITALIC ENDMENU ENDMENU In this case, the BOLD and ITALIC clauses are ignored     But, if the menu is defined as: MENU oMenu COLORS All clauses are active, ...