FiveTech Software tech support forums

Marco,

Por favor prueba este cambio y dime si ya se ve bien (aunque estará en una posición distinta en la pantalla):

ACTIVATE POPUP oMenu AT 10 , 0 OF oBtn:oWnd:oWnd

... tengo el detalle que debo modificar el menu durante la ejecucion, pero al refrescar el menu, no lo hace sera que estoy haciendo algo mal..? oWnd:oMenu:refresh() mientras que la opcion de disable si funciona oWnd:oMenu:disable() Saludos a todos.

... Main() DEFINE WINDOW oWnd from 1,1 TO 30,60 TITLE "Kontoauszug"; VSCROLL; MENU bldMenu() ACTIVATE WINDOW oWnd return nil function bldMenu() LOCAL oMenu set exclusive off MENU oMenu MENUITEM "Start" ; ACTION f_code() ENDMENU return oMenu func f_code LOCAL nRow1 := 0 local hVert := 25 local planfont ...

... WINDOW oWnd MAXIMIZED return nil //----------------------------------------------------------------------------// function BuildMenu() LOCAL oMenu LOCAL lSalida Public ALFA :="ABCDEFGHIJKLMNOPQRSTUVWXYZ" Public LLAVE:=.F. MENU oMenu MENUITEM "&Tablas" MENU MENUITEM "&Mantención Alimentos" ...

... "fivewin.ch" #include "outlook.ch" #include "splitter.Ch" static lBar := .t. FUNCTION Main() local oWnd, oOut, oSpl, oFont, oFont2, oBar, oBtn, oMenu , ; oIcon , ; oLbx , ; nScrnW := GetSysMetrics(0) , ; nScrnH := GetSysMetrics(1) , ; cSearch := "" , ; cSearchK := SPACE(40) , ; aSearch := {} ...

Try to change oWnd be Static instead of local

Static oWnd

Function Main()


return

function BuildMenu

local oMenu

MENU oMenu

Regards,
Dutch
MENUITEM "&File"
MENU
MENUITEM "Exit" ACTION oWnd:End()
ENDMENU

ENDMENU

return oMenu

... Menu Program" ; MENU BuildMenu(oWnd) ; BRUSH oBrush ; ICON oIcon MDI ACTIVATE WINDOW oWnd MAXIMIZED return nil function BuildMenu (oWnd) local oMenu MENU oMenu MENUITEM "&File" MENU MENUITEM "Exit" ACTION oWnd:End() ENDMENU ENDMENU return oMenu --------------------------Paste----------------------------

... ICON oIcon RESOURCE "PETROSUR" //"SANTAC" oTray := TaskAddIcon( oWnd, oIcon, "Programa Actualizador MYSQL" ) Return NIL Function RMenu(r,c) Local oMenu MENU oMenu POPUP MENUITEM "Abrir Programa Actualizador MYSQL" ACTION ( oWnd:Show() ) MENUITEM "Cerrar Programa Actualizador MYSQL" ACTION ( oWnd:end() ...

... case it helps. // PROGRAM: cargo.prg //----------------------------------------------------------------------------- #include "fivewin.ch" static oMenu REQUEST DBFCDX REQUEST DBFFPT REQUEST _ADS function Main() PUBLIC cEol := CHR(13)+CHR(10) , ; Pdebug := .F. , ; oWnd[25] , ; PA[25] , ; cSay := ...

... del botón * por el ancho: LOCAL nTop := GetClientRect( ::oToolbar:hwnd )[3] LOCAL nLeft := ::oToolBar:nBtnWidth * (nButton-1) .... ACTIVATE MENU oMenu AT nTop - 8, nLeft - 5 OF ::oToolbar Y me funciona correctamente Saludos