FiveTech Software tech support forums

... Tu lo quieres hacer desde un fichero TXT y yo lo hago des un fichero INI (da igual). Podrías hacer (supongo): MENU oMenu mifuncioncreamentu() ENDMENU Sobre el uso del arreglo olvídate, es un requisito de mi aplicación, podría ser una variable LOCAL perfectamente.

... local oMenu MENU oMenu // does not work? MENUITEM "New" ACTION Buildnew() ,oFld:SetBitmap( "..\bitmaps\alphabmp\exit.bmp" ) ) ENDMENU Return( oMenu ) function BuildNew() local oGet local cGet := Space(10) oFld:AddItem( "New tab" ) @ 5,5 GET oGet var cGet OF oFld:aDialogs[ ...

... MENUITEM "UNO 4" MESSAGE "Cyan Color" ACTION VH() MENUITEM "UNO 5" MESSAGE "Magenta Color" ACTION VH() ENDMENU ENDMENU ENDMENU return oMenu Function VH () ? oWnd:oMsgbar:cMsg return Nil //----------------------------------------------------------------------------// ...

... tipo </Menu> e o </MenuItem>, e teria q saber onde acaba cada menu e/ou menu item pra saber certo onde colocar os MENUITEM e os MENU...ENDMENU. tambem tentei usar o oChild (e o oNext), mas daquele q estou (pode ser do Opcao Menu_1, ou Opcao Menu_1.3, ou qquer outro), vai sempre ate ...

... la lingua" ) ; ACTION oApp():Idiomas() MENUITEM i18n( "Modificare l'archivio della lingua" ); ACTION TLanguage():New() :Activar() ENDMENU then you have Idiomas() and Tlanguage() Idiomas() is a function where you can select the file of the lang http://imageshack.us/a/img690/6513/86148140.png ...

... ventana" ACTION Miventana(oItem1) MENUITEM "&Salir..." ACTION oWnd:End() MESSAGE "Finalizar esta sesion" ENDMENU ENDMENU //------------------------------ Function MiVentana(oItem1) ----- oItem1:Disable() ..... ACTIVATE WINDOW oMiVentana VALID ( oItem1:Enable() ...

... "Silver" ACTION (SetStyle( 3,oRBar ), oRBar:refresh()) MENUITEM "Office 2010" ACTION (SetStyle( 4,oRBar ), oRBar:refresh()) ENDMENU ENDMENU then create a new file to compile with them Setstyle.prg #include "fivewin.ch"#include "ribbon.ch"#define BLUE3 ...

... MENUITEM "Report with Grouping" ; WHEN ! Empty( oBrw:GetVisibleCols()[1]:cOrder ) ; ACTION oBrw:Report( nil, .t., .t., nil, 1 ) ENDMENU return oPop //----------------------------------------------------------------------------//

... muy acertadas, quizás no estaría de más incluir como DATA bMnuRDown o algo así Así en el METHOD RButtonDown( nRow, nCol, nFlags ) Entre ENDMENU y el Activate Menu oMenu POPUP AT ....... Se podría incluir el código: ENDMENU if !empty( ::bMnuRDown ) .and. Valtype( ::bMnuRDown ) = "B" ...

... MENUITEM "&Modificar " ACTION .... MENUITEM "&Borrar " ACTION ... MENUITEM "&Imprimir " ACTION ... ENDMENU MENUITEM "S&alir " ACTION(oDlg:End()) ENDMENU oDlg:SetMenu(oMenu) Return nil Saludos Ruben Fernandez

... MENU oMenu_Horizontal MENUITEM 'Horizontal 1' MENU oMenu_Vertical1 MENUITEM 'Vertical 1' ACTION fAccion(1) MENUITEM 'Vertical 2' ACTION fAccion(2) ENDMENU MENUITEM "Salir" MENU oMenu_Vertical1 MENUITEM "Prueba" ACTION fAccion(3) SEPARATOR MENUITEM "Salir" ACTION fAccion(4) ...

... .NOT. lMensile MENUITEM "Sposta" ACTION spo_app( oBrw ) WHEN .NOT. lMensile MENUITEM "Chiudi questo menu" ACTION oMen:end() ENDMENU oMen:Activate( nRow, nCol, oBrw ) oTimer:activate() RETURN NIL

... VALID(COM_CLOSE(hCOMM)) Return (NIL) Static Function BuildMenu() Local oMENU MENU oMenu // 2007 MENUITEM "&End" ACTION oWND:End() ENDMENU Return oMenu Static Function ODBIERZ(hCOMM,nSTATUS) Local cZNAK:=Space(30) Local nBYTES nBYTES:=ReadComm(hCOMM,@cZNAK) MsgInfo(cZNAK) // just ...

... VALID(COM_CLOSE(hCOMM)) Return (NIL) Static Function BuildMenu() Local oMENU MENU oMenu 2007 MENUITEM "&End" ACTION oWND:End() ENDMENU Return oMenu used Version Fw24 Ajm

... window ownd on init buildmenu(ownd) function buildmenu(ownd) menu omenu 2007 menuitem "aaa" action aaa() menuitem "bbb" endmenu ownd:setmenu(omenu) ownd:refresh() return function aaa() local odlg define dialog odlg resource "aaa" activate dialog odlg nowait ...