FiveTech Software tech support forums

... ?" action .. SEPARATOR MENUITEM "&Torna a Impostazioni iniziali" action .. SEPARATOR MENUITEM "&Uscita" action .. ENDMENU ACTIVATE POPUP oPopup AT nnn,mmm OF odlg return nil *************************** Any help ?

... oPopRub:oLastItem:cCaption,7,1) }) , ; wfprodu->(Dbgotop()),oBrw:Refresh(),oBrw:Gotop(),oBrw:SetFocus() ) ; COLORPNEL CLR_BLACK SEPARATOR next ENDMENU Saludos Mariano y Raul

... return nil function BuildMenu() local oMenu MENU oMenu MENUITEM "TEST" MENU MENUITEM "TEST ERROR" ACTION( NewDialog()) ENDMENU ENDMENU ENDMENU return oMenu //----------------------------------------------------------------------------// function NewChild() local oWndChild, ...

... MENUITEM FWString("Get Paragraph Line Spacing") ACTION ; MsgInfo ( "Paragraph Line Spacing : " + STR(::nLineSpacing) ) ENDMENU DEFINE CURSOR oCursor HAND DEFINE CLIPBOARD oClp OF ::oWndMain FORMAT TEXT DEFINE BUTTONBAR oBar OF ::oWndMain 3D SIZE 26, 84 oBar:bLClicked ...

... y Estipendios" ACTION MsgAlert( "3" ) MENUITEM "Pago a proveedores y terceros" ACTION MsgAlert( "4" ) ENDMENU ACTIVATE POPUP oMenu AT aRect[ 3 ] + 1, aRect[ 2 ] OF oBtn oBtn:Refresh() RETURN NIL best regards Uwe :D

... oMenu, oMenu1, oMenu2 local oSub1,oSub2,oSub3 MENU oMenu MENUITEM "Test 1" MENU MENUITEM "Item 1" MENUITEM "Item 2" ENDMENU MENUITEM "Test 2" MENU MENUITEM "Item 1" MENUITEM "Item 2" ENDMENU MENUITEM "Test 3" MENU MENUITEM "Item ...

... NEXT i MENUITEM 'A&yuda' HELP MENU MENUITEM '&Help' ACTION HelpIndex() RESOURCE 'AYUDA1' MENUITEM '&Acerca de...' ACTION fAbout() ENDMENU ENDMENU (cMnuAlias)->(dbCloseArea()) ELSE && MySql cQry := "SELECT * FROM " + oSystem:csysmenu + " WHERE lActive ORDER ...

... spaced: MENU MENUITEM "Abc" MENUITEM "Def" MENUITEM "Options" MENU MENUITEM "Ghi" MENUITEM "JKL" ENDMENU ENDMENU In this case, the first menu items will be with a font of size 8, but the submenu items will be of size 12. It is a significant difference. ...

... Sample popup function: function MyPopUp( oCol ) local oBrw := oCol:oBrw local oPop MENU oPop POPUP 2007 ... menuitems depending on the column ENDMENU // do not activate popup here. // return oPop object. // xbrowse automatically activates the popup at the correct position. return oPop Please ...

... you remove this code: >>REDEFINE SYSMENU oMenu OF oDlg >>MENUITEM "Çerçe&ve Kaydet" ACTION ::Cerceve_Kaydet(1) >>ENDMENU >>Could you check if you keep getting the blue screens ? thanks I have tried. No problem. Unchanged SysMenu is showed.

Hakan,

If you remove this code:

REDEFINE SYSMENU oMenu OF oDlg
MENUITEM "Çerçe&ve Kaydet" ACTION ::Cerceve_Kaydet(1)
ENDMENU

Could you check if you keep getting the blue screens ? thanks

... Len(aFlds) bAction := ... MENUITEM RTrim(aFlds[i]) BLOCK bAction Next SEPARATOR MENUITEM "Starting With" MENUITEM "Containing" endmenu

... - ::nMesNumero ) MENUITEM ::aMESES[11] ACTION ::CambiarMes(11 - ::nMesNumero ) MENUITEM ::aMESES[12] ACTION ::CambiarMes(12 - ::nMesNumero ) ENDMENU SEPARATOR MENUITEM ::aTitBoton[3] ACTION ::AnoAnterior() MENUITEM ::aTitBoton[4] ACTION ::AnoSiguiente() IF !::lMostrarBoton //Bingen MENUITEM ...

... database and generate a report" MENUITEM "&Exit" ACTION oWnd:End() ; MESSAGE "Terminate the application and exit" ENDMENU return oMenu function DoReport() local oRpt lPreview = .T. USE Customer REPORT oRpt; TITLE "Print" ; HEADER "Report" ; FOOTER ...

... oMenu MENUITEM "Archivos" MENU MENUITEM "Mi funcion" ACTION MiFun() SEPARATOR MENUITEM "Salir" ACTION oWnd:End() ENDMENU ENDMENU return oMenu //------------------------------------------------------------------------------------------------ y MiFun.prg #include ...