FiveTech Software tech support forums

Maybe in this way?
Thanks a lot
Marco

ACTION ( lAccess := .T. , oBar:AevalWhen() )

....
....
ACTION ( lAccess := .T. , oMenu:Refresh() )

I saw there are many errors when I use oMenu 2005 1) I use a window MDI with a menu and open a window chiild http://www.eoeo.it/wp-content/uploads/2016/05/1.jpg when I move the mouse near Help menu I not see the command of sysmenu ...

Adrian El error que te da es porque MENUITEM oItem[02] PROMPT "Cerrar empresa" Action Calcula() When oMenu :oItem[01] >1 ; // Por aca asi lo hacia pero me marcaba error MESSAGE "Cerrar empresa" no es una DATA de la clase oMenu ( TMENU ), al margen de que ...

Adrian El error que te da es porque MENUITEM oItem[02] PROMPT "Cerrar empresa" Action Calcula() When oMenu :oItem[01] >1 ; // Por aca asi lo hacia pero me marcaba error MESSAGE "Cerrar empresa" no es una DATA de la clase oMenu ( TMENU ), al margen de que ...

... la mente el usar la variable logica, pero crei que esa era la forma de deshabilitar y habilitar opciones de menu Yo lo hacia de esta manera: MENU oMenu IF aMod[1] .AND. aPer[1]       MENUITEM "&Altas"       MENU         MENUITEM oItem[01] PROMPT "Empresas" ...

... la mente el usar la variable logica, pero crei que esa era la forma de deshabilitar y habilitar opciones de menu Yo lo hacia de esta manera: MENU oMenu IF aMod[1] .AND. aPer[1]       MENUITEM "&Altas"       MENU         MENUITEM oItem[01] PROMPT "Empresas" ...

... la mente el usar la variable logica, pero crei que esa era la forma de deshabilitar y habilitar opciones de menu Yo lo hacia de esta manera: MENU oMenu IF aMod[1] .AND. aPer[1]       MENUITEM "&Altas"       MENU    ...

Just add a button-refresh The arrow is only visible during executing the popup STATIC FUNCTION MENUPOP( oBtn ) Local oMenu, aRect aRect := GetClientRect( oBtn:hWnd ) MENU oMenu POPUP 2010 MENUITEM "Caja Chica" ACTION MsgAlert( "1" ) MENUITEM "Cargo a Rendición ...

Silvio, It does not serve him well? #xcommand MENUITEM [ <oMenuItem> PROMPT ] [<cPrompt>] ; [ MESSAGE <cMsg> ] ; [ <checked: CHECK, CHECKED, MARK> ] ; [ <enable: ENABLED, DISABLED> ] ; [ <file: FILE, FILENAME, DISK> ...

... is set to .T. * Fix: Excess Release Font in TMsgItem, fixed * Enhancement: Clausule HEIGHT for MENU - Define Height of Items Use: MENU oMenu HEIGHT 2 ( default 1.66 ) * New: Function SourceEdit, control editor Scintila in MemoEdit.Prg Example in Fivedit.prg * Enhancement: Class TScintilla, ...

... is set to .T. * Fix: Excess Release Font in TMsgItem, fixed * Enhancement: Clausule HEIGHT for MENU - Define Height of Items Use: MENU oMenu HEIGHT 2 ( default 1.66 ) * New: Function SourceEdit, control editor Scintila in MemoEdit.Prg Example in Fivedit.prg * Enhancement: Class TScintilla, ...

... ; MENU BuildMenu() ACTIVATE WINDOW oWnd RETURN NIL //------------------------------------------------------------// FUNCTION BuildMenu() local oMenu, oMenu1, oMenu2 local oSub1,oSub2,oSub3 MENU oMenu MENUITEM "Test 1" MENU MENUITEM "Item 1" MENUITEM "Item 2" ENDMENU ...

... := fAction :lActive := ( lRight:= Eval( {||&( ALLTRIM( oQry:FLDCONDI ) )} ) ) :lBreak := FALSE :lChecked := oQry:FLDCHECK :lHelp := FALSE :oMenu := oApp:oMainMenu :nVKState := oQry:FLDNSTATE :nVirtKey := oQry:FLDVIRTKEY END IF ! EMPTY( ALLTRIM(oQry:FLDSYS) ) AAdd( oApp:aObjSys, oMnuItem ...

Sistem wrote:Hola
MENU oMenu 2007

Ok
Enviame un mail a navarro . cristobal [at] gmail . com sin espacios

Send me a mail : navarro . cristobal [at] gmail . com

Compilador BCC582, BCC7, VS .... ? and version
Harbour o XHarbour

Saludos

Hola
MENU oMenu 2007