FiveTech Software tech support forums

I give here a sample showing 4 ways of displaying PopUpMenu with BtnBmp. #include "fivewin.ch"function Main()   local oDlg, aBtn[ 4 ]   DEFINE DIALOG oDlg SIZE 600,300 PIXEL TRUEPIXEL   @ 40, 40 BTNBMP aBtn[ 1 ] PROMPT ...

...  } ) 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 check the last line of this function. That is the exact ...

Estimado Marcelo,

La Clase TXImage proporciona el método Paste( lCheck ) que permite copiar una imagen desde el portapapeles

Además tienes el método PopupMenu( nRow, nCol, nFlags ) que te muestra un popup con la opción Paste

Espero que esto te pueda ser de ayuda

https://mybergland.com/fwforum/mybtn.jpg Hello friends, I have expanded the TBtnBmp. Now, when I insert a PopupMenu, I can select the width of the clickable area and use a bitmap instead of the PolyPolygon. Best regards, Otto METHOD PaintPopupSection() CLASS TBtnBmp  ...

ACTION ::ShowPopUp(...) is working here.
Please make sure the codeblock returns PopupMenu object

... con cualquier objeto, no sólo con éste ) En cuanto a lo que comentas de cambiar el estilo del menu, prueba lo siguiente: - Cambia el método POPUPMENU en la class XIMAGE //----------------------------------------------------------------------------//METHOD PopupMenu( nRow, nCol, nFlags ...

...  := { || .F.}   oImage:bRClicked := { || mifuncion()} Lo que si es más importante es que el menú METHOD PopupMenu( nRow, nCol, nFlags ) CLASS TXImage use FWStrings, y esté con la cláusula 2015 por favor. Gracias.

... the bold string if ::oPopup != nil .and. GetClassName( GetParent( Self:hWnd ) ) = "TBAR" Now the final user can open the popupmenu but must click at the end of btnbmp, soon the final user not found the exact point with the mouse on the source I made aBtn[ nelemento]:oPopUp ...

then when It show the menu it create the part with black arrow on oldest release of my prg it not is showed when I click on btnbmp it open a popupmenu near the btnbmp and I not see the part with black arrow for my advice the black arrow can be usefull ony on a tbar control for now I resolved ...

Please make this modification   for n := 1 to 5      @ nRow, nCol BTNBMP aBtn[ n ] FILE "c:\fwh\bitmaps\32x32\" + aBmp[ n ] ;         PROMPT NtoCMonth( n ) ;         SIZE 100,100 PIXEL OF oDlg TOP FLAT COLOR CLR_...

Thank
can we erase or not show the part where is the black Arrow ?

First please implement a small fix in btnbmp.prg. Locate the following lines in the method ShowPopUp()      if GetClassName( GetParent( Self:hWnd ) ) != "TBAR"         oWnd = oWndFromhWnd( GetParent( Self:hWnd ) )      endif  Comment out all the 3 lines abov...

???????

Please, search for "detached locals technicque", in forum
It is very possible that this is the problem

Now I tried with  for n := 1 to 10      @ nRow, nCol BTNBMP aBtn[ n ]  RESOURCE OMB_LIBERO  ;         SIZE 84,64 PIXEL OF oDlg FLAT TOP COLOR CLR_WHITE,CLR_GREEN NOBORDER WITH OBJECT aBtn[ n ]         :Ca...