FiveTech Software tech support forums

I have an xbrowse created with an array without the :SetMultiSelectCol() and I have the ability to display a menupopup like this MENU oMenu POPUP if oBrw:IsSelectedRow() MENUITEM "Deselect the current row" action DeSelect_One_array(oBrw) MENUITEM "Deselect everything" ...

... ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ) .... MENU oMenu POPUP .. ENDMENU return oMenu

... .....} Function Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .... ENDMENU ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol RETURN (NIL) and another on action Function MenuContextual(oControl,oBrw,oDbf,cIniUser,cSection,lExport,lColConfig,oParent,oCont ...

Antonio Linares wrote:Try this:

ACTIVATE POPUP oMenu WINDOW oPanel AT 0, 0

yes now I see it on the left of the oPanel

Try this:

ACTIVATE POPUP oMenu WINDOW oPanel AT 0, 0

Antonio Linares wrote:Have you tried this ?

ACTIVATE POPUP oMenu WINDOW oPanel AT aPoint[1], aPoint[2]

Yes of course
Probabile i made an error because before i saw a menu on down, far from panel but then It Is not showed anywhere

Have you tried this ?

ACTIVATE POPUP oMenu WINDOW oPanel AT aPoint[1], aPoint[2]

... ) tried with Function AddMenu() local aPoint := AdjustWnd( oPanel, oPanel:nTop-100, oPanel:nLeft ) MENU oMenu POPUP --- ACTIVATE POPUP oMenu WINDOW oWnd AT aPoint[1], aPoint[2]

... ) },,; {|| !eof() .and. PERFILFW->Usuario==Cript(Usuari) })) else MsgInfo('Usuario sin Perfil Definido') endif // MENU oMenu MENU oMenu COLORS for i:=1 to len(TablaMnu) do case case TablaMnu[i,2] == 0 // marca opcion principal del menu MENU case TablaMnu[i,2] == 1 // ...

hi, i have figure out that "Problem" was in MENU which called DIALOG :roll: for MENUITEM i want a FONT so i use   oMenu:oFont := oFontDefault but when close PopUp-Menu it will destroy FONT assign to oMenu:oFont so i need to define a own FONT for MENUITEM   DEFINE FONT oFontMenu ...

... Regards, saludos. Joao, al principio de la definicion de tu menu pon: GetnWidthItem( 0.8 ) // Ajusta con un valor < 1, y comprueba MENU oMenu ... PERFECTO Maestro!! Muchas gracias, asi está bién mejor.    GetnWidthItem( 0.8 )   // Ajusta con un valor < 1, y ...

... Regards, saludos. Joao, al principio de la definicion de tu menu pon: GetnWidthItem( 0.8 ) // Ajusta con un valor < 1, y comprueba MENU oMenu ...

... {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBrw,oMisura,lTipo1,lTipo2 ) } )} Function BtnPopMenu(oBrw,oDbf,lTipo1,lTipo2) local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 PROMPT "First" ACTION (oItem1:SetCheck( ltipo1 := ! ltipo1 ),; Maketree(oDbf,oBrw)) CHECKED SEPARATOR MENUITEM ...

... from the same) static ltipo1:=.f. static ltipo2:=.f. then from a btnbmp open a menu popup with 2 option Function BtnPop() local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ACTION ...

... from the same) static ltipo1:=.f. static ltipo2:=.f. then from a btnbmp open a menu popup with 2 option Function BtnPop() local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ACTION ...