Ribbon Button's popup menu

[fraxzi]

Dear All,



How to determine if the popup menu of button was pressed or clicked by mouse?

I would like to alter instead of menu popup.. say xbrowse( 'table' )..

Can somebody point me the way..


Regards,
Frances

[Enrico Maria Giordano]

If I understood correctly, you can use the ACTION clause.

EMG

[nageswaragunupudi]

How to determine if the popup menu of button was pressed or clicked by mouse?

This click is handled in METHOD LButtonUp() in TRBtn.Prg. Here is the relevant portion of the code:

Code: Select all  Expand view

        if lClick
            if ::oPopup != nil
               do case
                  case ::nTypeButton == TYPE_SPLITPOPUP
                     if nRow >= ::nPopupMargin .or. ! lAction
                        oWnd := ::oWnd
                        oWnd:NcMouseMove() // close the tooltip
                        oWnd:oPopup = ::oPopup
                        ::oPopup:Activate( ::nTop + ::nHeight() + ;
                                           If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",;
                                               oWnd:nHeight(), 0 ), ::nLeft, oWnd, .F. )
                        oWnd:oPopup = nil
                        ::Refresh()
                     else
                        ::click()
                     endif
                     
                  case ::nTypeButton == TYPE_POPUP
                     if nCol >= ::nPopupMargin .or. !lAction
                        oWnd := ::oWnd
                        oWnd:NcMouseMove() // close the tooltip
                        oWnd:oPopup = ::oPopup
                        ::oPopup:Activate( ::nTop + ::nHeight() + ;
                                           If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",;
                                               If( ! oWnd:IsKindOf( "TRIBBONBAR" ), oWnd:nHeight(), 0 ), 0 ),;
                                               ::nLeft - If( ! oWnd:IsKindOf( "TRBGROUP" ), oWnd:nLeft, 0 ), oWnd, .F. )                        
                        oWnd:oPopup = nil
                        ::Refresh()
                     else
                        ::click()
                     endif
 

Do you like to tinker with the code of TRBtn.Prg?

[fraxzi]

If I understood correctly, you can use the ACTION clause.

EMG

Dear EMG,

ACTION Clause if you pressed the button but the TYPE_SPLITPOPUP (the portion with popup menu) that I need to determine or alter the behavior say
instead of poping the popupmenu, maybe like invoking xBrowse( 'table' ) or an xbrowse list of records.. and still retain the ACTION clause default behavior.


Regards,
Frances

[fraxzi]

How to determine if the popup menu of button was pressed or clicked by mouse?

This click is handled in METHOD LButtonUp() in TRBtn.Prg. Here is the relevant portion of the code:

Code: Select all  Expand view

        if lClick
            if ::oPopup != nil
               do case
                  case ::nTypeButton == TYPE_SPLITPOPUP
                     if nRow >= ::nPopupMargin .or. ! lAction
                        oWnd := ::oWnd
                        oWnd:NcMouseMove() // close the tooltip
                        oWnd:oPopup = ::oPopup
                        ::oPopup:Activate( ::nTop + ::nHeight() + ;
                                           If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",;
                                               oWnd:nHeight(), 0 ), ::nLeft, oWnd, .F. )
                        oWnd:oPopup = nil
                        ::Refresh()
                     else
                        ::click()
                     endif
                     
                  case ::nTypeButton == TYPE_POPUP
                     if nCol >= ::nPopupMargin .or. !lAction
                        oWnd := ::oWnd
                        oWnd:NcMouseMove() // close the tooltip
                        oWnd:oPopup = ::oPopup
                        ::oPopup:Activate( ::nTop + ::nHeight() + ;
                                           If( GetClassName( GetParent( GetParent( ::hWnd ) ) ) != "TRPANEL",;
                                               If( ! oWnd:IsKindOf( "TRIBBONBAR" ), oWnd:nHeight(), 0 ), 0 ),;
                                               ::nLeft - If( ! oWnd:IsKindOf( "TRBGROUP" ), oWnd:nLeft, 0 ), oWnd, .F. )                        
                        oWnd:oPopup = nil
                        ::Refresh()
                     else
                        ::click()
                     endif
 

Do you like to tinker with the code of TRBtn.Prg?

Dear RAO,

I tried oRbtn:bLButtonUp := {|nRow, nCol| xBrowse( 'table' ) } .. this is executed if I pressed the button or the popupmenu portion.. if I can only assign and execute the popupmenu portion.. and still retain the ACTION clause's default behavior..

This 'can be' similar to oPopup:bWhen maybe or a codeblock somewhere before oPopup:Activate()?


Regards,
Frances

[nageswaragunupudi]

Mr Fraxzi

Its not impossible. And I prefer to do it without altering library code. I shall try when I get some free time. Meanwhile you can also try. You know where to start anyway

[Daniel Garcia-Gil]

Mr Fraxzi


is neccesary modify TRBTN Class

isn't difficult

add new data

DATA bOnPopup

Change METHOD LButtonUp( nRow, nCol ) CLASS TRBtn

Code: Select all  Expand view

METHOD LButtonUp( nRow, nCol )  CLASS TRBtn

   local oWnd
   local lClick := IsOverWnd( ::hWnd, nRow, nCol )
   local lAction := !empty( ::bAction )


   if ::lDrag .or. ! Empty( ::oDragCursor )
      return Super:LButtonUp( nRow, nCol )
   endif
   if ::bLButtonUp != nil
      Eval( ::bLButtonUp, nRow, nCol)
   endif

   ::lBtnUp  = .t.

   if ! ::lWorking

      if ::lCaptured
         ::lCaptured = .f.
         ReleaseCapture()
         if ! ::lPressed
            if ::lBtnDown
               ::lPressed = .t.
               ::Refresh()
            endif
         else
            if ! ::lBtnDown
               ::lPressed = .f.
               ::Refresh()
            endif
         endif
         if lClick
            if ::oPopup != nil
               do case


                  case ::nTypeButton == TYPE_SPLITPOPUP
                     if nRow >= ::nPopupMargin .or. ! lAction
                        if ::bOnPopup != nil
                           Eval( ::bOnPopup, nRow, nCol, Self )
                        else
                           oWnd := ::oWnd
                           oWnd:NcMouseMove() // close the tooltip
                           oWnd:oPopup = ::oPopup
                           ::oPopup:Activate( ::nHeight, 0, Self, .F. )
                           oWnd:oPopup = nil
                           ::Refresh()
                        endif
                     else
                        ::click()
                     endif
                     
                  case ::nTypeButton == TYPE_POPUP
                     if nCol >= ::nPopupMargin .or. !lAction
                        if ::bOnPopup != nil
                           Eval( ::bOnPopup, nRow, nCol, Self )
                        else
                           oWnd := ::oWnd
                           oWnd:NcMouseMove() // close the tooltip
                           oWnd:oPopup = ::oPopup
                           ::oPopup:Activate( ::nHeight, 0, Self, .F. )                        
                           oWnd:oPopup = nil
                           ::Refresh()
                        endif
                     else
                        ::click()
                     endif
 
                     
                  otherwise
                     ::Click()
               endcase
            else

               do case
                  case ::nTypeButton == TYPE_SPLITPOPUP
                     if nRow >= ::nPopupMargin .or. !lAction
                        if ::bOnPopup != nil
                           Eval( ::bOnPopup, nRow, nCol, Self )
                        else                    
                           MsgInfo( "Non defined popup menu", "Class TRBtn" )
                        endif
                     else
                        ::click()
                     endif
                  case ::nTypeButton == TYPE_POPUP
                     if nCol >= ::nPopupMargin .or. !lAction
                        if ::bOnPopup != nil
                           Eval( ::bOnPopup, nRow, nCol, Self )
                        else                    
                           MsgInfo( "Non defined popup menu", "Class TRBtn" )
                        endif
                     else
                        ::Click()
                     endif
                  otherwise
                     ::Click()
               endcase
            endif
         endif
      endif
   endif

return 0