Buttonbar 2007 button with a attached Popup menu

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Buttonbar 2007 button with a attached Popup menu
Posted: Wed Oct 24, 2007 07:24 PM

Does someone know how to open the attached popup menu with a click on the button.
(Like in WORD Button: “Formatvorlagen”)
Regards,
Otto

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Buttonbar 2007 button with a attached Popup menu
Posted: Wed Oct 24, 2007 11:12 PM

Code: Select all Collapse

DEFINE BUTTON OF oBar NOBORDER ;
   PROMPT 'SubMenu' ;
   MENU MyPopUp() ;
   ACTION MsgInfo('Can have action and also submenu')

....
....

// -------------------
STATIC FUNCTION MyPopUp()

LOCAL oPop

   MENU oPop POPUP
      MENUITEM 'One'
      MENUITEM 'Two'
   ENDMENU

RETURN oPop

Regards

G. N. Rao.

Hyderabad, India

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Buttonbar 2007 button with a attached Popup menu
Posted: Thu Oct 25, 2007 07:20 AM

nageswaragunupudi , thank you for your answer.
But that is the code how to attach a popup menu.

But I need to open the attached popup menu with a click on the button.
(Like in WORD Button: “Formatvorlagen”)

Here a jpg:

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Buttonbar 2007 button with a attached Popup menu
Posted: Thu Oct 25, 2007 09:22 AM

Otto,

Please add this method to class TBtnBmp:

Code: Select all Collapse

METHOD ShowPopup() CLASS TBtnBmp

   local oWnd

   if ::oPopup != nil
      if ::oWnd:oWnd != nil .and. Upper( ::oWnd:oWnd:Classname() ) == "TBAR"
         oWnd := ::oWnd:oWnd
      else
         oWnd := ::oWnd
      endif
      if GetClassName( GetParent( Self:hWnd ) ) != "TBAR"
         oWnd = oWndFromhWnd( GetParent( Self:hWnd ) )
      endif
      oWnd:NcMouseMove() // close the tooltip
      oWnd:oPopup = ::oPopup
      ::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft, oWnd, .f. )
      oWnd:oPopup = nil
      ::Refresh()
   endif   

return nil

To use it, simply do:

Code: Select all Collapse

   MENU oPopup POPUP
      MENUITEM "One" ACTION MsgInfo( 1 )
      MENUITEM "Two" ACTION MsgInfo( 2 )
   ENDMENU

   DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ;
      RESOURCE "people" PROMPT "Clients" GROUP ;
      MENU oPopup

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Buttonbar 2007 button with a attached Popup menu
Posted: Thu Oct 25, 2007 01:46 PM

Thank you, Antonio.
It is working.
Regards,
Otto

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Wed Apr 07, 2010 08:53 AM

Hello Antonio,
I have seen that popup is included in 10.3. Thank you.
How can I align the popup menu if I use oBtn:ShowPopup()?

Best regards,
Otto

Code (fw): Select all Collapse

@ 5, 145 ADD BUTTON oBtnBearbeiten   GROUP oFunktionen BITMAP  ".\bitmaps2\11.bmp"  MENU oMenuBearbeiten ;
            SIZE 65,  75 PROMPT "Bearbeiten" SPLITPOPUP  TOP ROUND   ;
            ACTION ( oBtnBearbeiten:ShowPopup() )

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Wed Apr 07, 2010 09:53 AM

Otto,

I don't exactly understand what you mean

regards, saludos

Antonio Linares
www.fivetechsoft.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Wed Apr 07, 2010 11:10 AM

Mr Antonio.
ShowPopup was already there in the FWH long time back.

This kind of code was working since many versions of FWH. I think we do not need to add the above code again:
The code below is an extract from testxbr3.prg:

Code (fw): Select all Collapse

   DEFINE BUTTON OF oBar ;
      RESOURCE "REPORT" TOP ;
      PROMPT "Report" ;
      MENU ReportMenu( oBrw ) ;
      ACTION This:ShowPopUp() ;
      MESSAGE "Print the browse contents" ;
      TOOLTIP { "Print Report", "Report" }

Regards

G. N. Rao.

Hyderabad, India

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Wed Apr 07, 2010 03:39 PM

Hello Antonio,
Best regards,
Otto

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Wed Apr 07, 2010 09:01 PM

Otto,

Does it fit in the right side ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Wed Apr 07, 2010 09:29 PM

Antonio,
yes it fits in the right side.

Best regards,
Otto

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Thu Apr 08, 2010 10:25 AM

Otto,

Then it means that the left coordinate of the popup is wrongly calculated.

We are going to review it, thanks :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Thu Apr 08, 2010 10:30 PM

Hello Otto...

in METHOD LButtonUp( nRow, nCol ) CLASS TRBtn

find and replace this section...

Code (fw): Select all Collapse

                  case ::nTypeButton == TYPE_SPLITPOPUP
                     if nRow >= ::nPopupMargin .or. ! lAction
                        oWnd := ::oWnd
                        oWnd:NcMouseMove() // close the tooltip
                        oWnd:oPopup = ::oPopup
                        ::oPopup:Activate( ::nHeight, 0, Self, .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( ::nHeight, 0, Self, .F. )                        
                        oWnd:oPopup = nil
                        ::Refresh()
                     else
                        ::click()
                     endif

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Fri Apr 09, 2010 06:54 AM

Hello Daniel,

thank you for your help.
I did a short test but the code does not resolve my problem.
If I change as well showpopup() (left + 500) this way I would get the right alignment – only for this special case.

Thanks in advance
Otto

Code (fw): Select all Collapse

METHOD ShowPopup() CLASS TRBtn

   local oWnd
msginfo("asdfla")
   if ::oPopup != nil
      if GetClassName( GetParent( Self:hWnd ) ) != "TBAR"
         oWnd = oWndFromhWnd( GetParent( Self:hWnd ) )
      endif
      oWnd:NcMouseMove() // close the tooltip
      oWnd:oPopup = ::oPopup
      ::oPopup:Activate( ::nTop + ::nHeight(), ::nLeft - oWnd:nLeft + 500, oWnd, .f. )
      oWnd:oPopup = nil
      ::Refresh()
   endif

return nil

//----------------------------------------------------------------------------//

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Buttonbar 2007 button with a attached Popup menu
Posted: Sun Apr 11, 2010 07:50 PM

Hello Daniel,
Would you be so kind to have another look at this problem?
Best regards,
Otto

FiveTech Support Forums