FiveTech Software tech support forums

... 4 ]

DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL

@ 40,180 BTNBMP aBtn[ 2 ] PROMPT "btnbmp" SIZE 100,40 PIXEL OF oDlg CENTER ;
ACTION ::ShowPopUp( PopupObject( Self ) )

ACTIVATE DIALOG oDlg CENTERED

return nil

function PopupObject(oBtn)

local oPop

MENU oPop POPUP
MENUITEM "One ...

... mouse, keyboard, etc.). |
| `HasAlpha()` | Checks if a bitmap has alpha transparency. |
| `MouseLeave()` | Handles the mouse leave event. |
| `ShowPopup()` | Displays a popup menu associated with the button. |
| `SetColor()` | Sets the button's text and background colors. |
| `nAlphaLevel ...

Use directly in the xBrowse column

lc_oColDtImg := ::oBrw2161_AgentesDocImgs:AddCol()
With Object lc_oColDtImg
:bStrData := {||::oDsTmp_AgenteDocsImgs:N_AGE_DOCIMGS_dImagemData}
:cHeader := "Dt. Imagem "
//:cToolTip := ""
:nWidth := 118
:nDataStrAlign := AL_RIGHT
:nHeadStrAlign := AL_RIGHT ...

... 148, 350 BTNBMP aBtnBrow[3] ;
RESOURCE "GRID_MNU", "", hBmp2, "" ;
SIZE 15, 13 PIXEL FLAT NOROUND GDIP WHEN lMenu OF oDlg ;
ACTION ::ShowPopUp( Contextual_Menu( Self,oBrw,oDbf,cIniUser,cSection,oDlg,aBtnBrow[4] ) )


Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent ...

... BTNBMP oBtn1;
FLAT SIZE 60, 12 OF oDlg PIXEL ;
PROMPT "btn1" RIGHT ;
COLOR CLR_BLACK,nRgb(238,236,219) ;
BITMAP "SOR_TDW" NOROUND ;
ACTION ::ShowPopUp( { | oBtn,nRow,nCol | Menu_btn1(oBtn,oBrw,oDbf,nRow,ncol,oDlg) } )





@ 8, oBrw:nWidth-100 BTNBMP oBtn2;
FLAT SIZE 60, 12 OF oDlg PIXEL ...

... oDbf,cIniUser,cSection,lExport,lColConfig,oParent,oCont )
....
ENDMENU
return oMenu


and another with

btnbmp ocolonne ....
ACTION oColonne:ShowPopUp( { |oBtn,nRow,nCol| ColonneMenu(oBtn,oBrw,oDbf,nRow,ncol,oDlg,cSection,cIniUser) } )

with the return
ENDMENU
return oMenu


I saw your sample ...

... aBtn[ 4 ]

DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL

@ 40, 40 BTNBMP aBtn[ 1 ] PROMPT "1" SIZE 100,40 PIXEL OF oDlg CENTER ACTION ::ShowPopUp()
aBtn[ 1 ]:oPopUp := PopupObject()

@ 40,180 BTNBMP aBtn[ 2 ] PROMPT "2" SIZE 100,40 PIXEL OF oDlg CENTER ;
ACTION ::ShowPopUp( PopupObject ...

ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,cIniUser,cSection,,,oDlg,aBtnBrow[4]) } )

If you use ::ShowPopUp, the function MenuContextual(...) should not return NIL, but should return a PopupMenu object. It looks like this function is returning NIL not a popup menu object. Please ...

... END
Args:
[ 1] = U

Stack Calls
===========
Called from: source\comuni\Pcomuni.prg => END( 0 )
Called from: Lib\btnbmp.prg => TBTNBMP:SHOWPOPUP( 2183 )
Called from: source\comuni\Pcomuni.prg => (b)COMUNI( 256 )
Called from: Lib\btnbmp.prg => TBTNBMP:CLICK( 797 )



on code I have ...

Dear Silvio,

> Called from: source\comuni\Pcomuni.prg => END( 0 )

Look for an End() call in source\comuni\Pcomuni.prg

... END
Args:
[ 1] = U

Stack Calls
===========
Called from: source\comuni\Pcomuni.prg => END( 0 )
Called from: Lib\btnbmp.prg => TBTNBMP:SHOWPOPUP( 2183 )
Called from: source\comuni\Pcomuni.prg => (b)COMUNI( 220 )

on the source I have

@ 148, 350 BTNBMP aBtnBrow[3] ;
RESOURCE "GRID ...

PCOMUNI.PRG line 227?

Regards, saludos.


ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,cIniUser,cSection,,,oDlg,aBtnBrow[4]) } ) PCOMUNI.PRG line 227

@ oBrw:nBottom+2, oBrw:nWidth-20 BTNBMP aBtnBrow[3] ;
FLAT SIZE 30, 28 OF oDlg PIXEL ;
COLOR nRgb(238,236,219),nRgb(238,236,219 ...

... that opens a popup menu

https://i.postimg.cc/6TsL3c6w/mmmm.png



@ oBrw:nBottom+2, oBrw:nWidth-20 BTNBMP aBtnBrow[3] ;
FLAT ....
ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,cIniUser,cSection,,,oDlg,aBtnBrow[4]) } )

Error code
Called from: => END( 0 )
Called from: .\source ...

... to select a row I use a popup menu

@ 85, 10 BTNBMP aBtnBrow ;
FLAT SIZE 80, 20 OF oDlg PIXEL ;
PROMPT "Select menu" ;
NOROUND ;
ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,oDlg) } )

When I click on xbrowse not run ok





#include 'fivewin.ch'
#include 'xbrowse.ch'
#include ...

... https://i.postimg.cc/tJXG8bbt/rr.png

I made
static lTipo1:=.f.,ltipo2:=.f.


@ 10, 550 BTNBMP oTipo PROMPT....
oTipo:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBrw,oMisura,lTipo1,lTipo2 ) } )}


Function BtnPopMenu(oBrw,oDbf,lTipo1,lTipo2)
local oItem1,oItem2
MENU oMenu POPUP ...