FiveTech Software tech support forums

... Gracias DEFINE CURSOR oCursor HAND DEFINE BRUSH oBrush FILE op:bmp+"paper.bmp" DEFINE WINDOW oWind MDI TITLE op:ctitulo ; ICON oIco MENU omenu BRUSH oBrush BuildRibbonBar() @130, 10 GROUP TO 250, 150 OF oWind PIXEL @150, 40 SAY "VENTAS" FONT oFontSmall COLOR CLR_BLUE, CLR_WHITE ...

... table? Example: Doesn't work oTabela: = oCon: RowSet ( "SELECT codigo, descricao FROM ocorrencia") DEFINE VMENUITEM the item OF omenu; IMAGE ""; CAPTION "incluir "; ACTION (oTabela: EditBaseRecord (NIL,. T., {| oRec | Editar_Tabela (ORec, CTabela)}, OBrowse); ...

... table? Example: Doesn't work oTabela: = oCon: RowSet ( " SELECT codigo, descricao FROM ocorrencia ") DEFINE VMENUITEM the item OF omenu; IMAGE ""; CAPTION "incluir "; ACTION (oTabela: EditBaseRecord (NIL,. T., {| oRec | Editar_Tabela (ORec, CTabela)}, OBrowse); ...

... WINDOW oWnd CENTERED return nil //------------------------------------------------------------------------// FUNCTION menu( oWnd, nTop ) LOCAL oMenu MENU oMenu POPUP MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp" MENUITEM "TancarJPG" RESOURCE "exitjpg" ...

... He visto que es por los iconos de recursos, si los comento, luego va como debe de ir. Haz la prueba y verás!!! function MakeMenu() local oMenu, oMnu1, oMnu2 MENU oMenu 2015 //menu estilo 2007/2013/2015 MENUITEM "One" MENU oMnu1 MENUITEM "Sunday" CHECKED MENUITEM SEPARATOR ...

... want to add any clause to a menu without defining any style, it is necessary to add the color    in the definition 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 ...

Mira yo lo hago asi #include "fivewin.ch" #include "codebar.ch" static oCode, oWndP function Main() local oMenu oCode := TCodeBars():New() oMenu = BuildMenu() ** BuildCode( CODEBAR_DATAMATRIX, "DataMatrix :)") * define window oWndP menu oMenu * activate window ...

... with this and comment http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34262&start=0 I allready tried with these modificatins MENU oMenu oMenu:l2007 := ( nStyle == 2007 ) oMenu:l2010 := ( nStyle == 2010 ) oMenu:l2013 := ( nStyle == 2013 ) oMenu:l2015 := ( nStyle == 2015 ) oMenu:lMenuBar ...

Thank you!!
oMenu:lMenuBar:= .T. is functioning. But why not automatically in Top-Level menu? In the main-window this is factual.

Nadie ayuda por ese lado...

Solo quiero saber lo que hace SelItem. Veo el código de fivelinux pero esta función, al parecer estar en un archivo objeto

oMenu_Horizontal:SelItem( cI )
oMenu_Vertical1:SelItem( nActivo )

... It is a problem that must be fixed in the creation of the table of accelerators At the moment STATIC FUNCTION CREATECHILD( oMdi ) LOCAL oWnd, oMenu MENU oMenu 2007 MENUITEM "Changed&1" ACTION MSGINFO( "1" ) MENUITEM "Changed&2" ACTION MSGINFO( "2" ...

Try

MENU oMenu HEIGHT 2.075 and comment

Silvio, this sample run OK for me Please look line of RETURN oMenu in your sample Function BuildMenuSil()   Local oMenu   Local ofirst, oSecond, oThird   Local ofirst1, oSecond1, oThird1   MENU oMenu  ...

... não estou conseguindo, a window inicia mais o mouse não funciona. A window fica como se estivesse congelada. METHOD New() CLASS SampleCalex local oMenu local oSelf := Self MENU oMenu ENDMENU ::dDateStart := Date() ::dDateEnd := Date() ::lOnPreNext := .F. ::nIDPonto := RetornaIDDoPonto() DEFINE ...

... 33, 33 DEFINE BUTTON PROMPT "CHILD" OF oWnd:oBar ACTION NewChild() ACTIVATE WINDOW oWnd MAXIMIZED return nil function BuildMenu() local oMenu MENU oMenu MENUITEM "TEST" MENU MENUITEM "TEST ERROR" ACTION( NewDialog()) ENDMENU ENDMENU ENDMENU return oMenu //----------------------------------------------------------------------------// ...