explorerbar Menu popup

[Silvio.Falconi]

is it possible insert a popup menu on one Item of Menu exploerbar ?

[cnavarro]

Look

Code: Select all  Expand view

.../...
   local bClick1 := { | o | MnuButton( , , , o ) }
.../...

      :AddLink( "Explorer", bClick1, "C:\Fwh\Bitmaps\16date.bmp", , CLR_BROWN, , )
.../...


Function MnuButton( nR, nC, nF, oParent )

   local oMenu
   local aCoors
   DEFAULT nR   := oParent:nBottom
   DEFAULT nC   := oParent:nRight
   aCoors       := ScreenToClient( oParent:hWnd, { nR, nC } )
   MENU oMenu POPUP FONT oFont 2015 ;
      COLORMENU CLR_WHITE, CLR_BROWN

.../...

   ENDMENU
   ACTIVATE MENU oMenu AT aCoors[ 1 ] + oParent:nHeight, oParent:nRight OF oParent

 

[cnavarro]

For next version I added in method lButtondown
Now is more easy

Code: Select all  Expand view

    Eval( ::bAction, Self, nRow, nCol, nFlags )
 

[Silvio.Falconi]

must be a data type " oPopup" on CLASS TTaskPanel my advise

and insert here

METHOD AddLink( cPrompt, bAction, cBitmap, oFnt, nClrT, nClrP, nClrO , oPopup,lpopup )

wheh the lpopup is true it must drwar an arrow at left

if ::oPopup != nil
->>>>>>>>>>>>>>draw arrow
endif

then on texplorerbar class when there is oUrlLink:bAction = bAction

if oItem:oPopup != nil

oItem:oPopup:Activate( x , y,oExp, .f. )


the problem My advice is on Urlink class because My advice you must before modify the Urlink class and insert the possibility to insert a popup menu and the you can insert the popup on texplorerbar

it not easy
this because Texplorerbar is made with foots....

if the author inserted the items in the same way as the menu and did not use the Urlnk class we could now have the popup menu directly. And then the menu options can not have special effects like the colors of win10 or office2007 but only an underlined word. this I could understand for an initial state just to try but in the long run nothing has changed for which remained the urllnk even if I had long ago the lib of that author where the menu options were different

and I made it allready



remember when I need an arrow with turlink ? then I cannot insert it on urlink