Buttonbar 2007 button with a attached Popup menu

[Daniel Garcia-Gil]

Hello otto

can you post a "fake" image what do you want ??

thanks...

[Otto]

Hello Daniel,
thank you for coming back to my question.
If I open the attached menu with the arrow down from the button the menu aligns correctly. If I press the button with the Action This:showPopup() the menu aligns wrong. Please see the bitmap.
Thanks in advance
Otto

Code: Select all  Expand view

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

[Daniel Garcia-Gil]

Otto...

are you using BTNBMP or RBBTN??

[Otto]

Daniel, I think it is RBBTN. Here is the ppo file:

Code: Select all  Expand view

oBtnBearbeiten := oFunktionen:AddButton( 5, 145, 75, 65, "Bearbeiten", {|Self|( oBtnBearbeiten:ShowPopup() )}, Upper("SPLITPOPUP"),, ".\bitmaps2\11.bmp",, .T., Upper("TOP"), oMenuBearbeiten,,,, )

Best regards,
Otto

[Daniel Garcia-Gil]

Otto..

you dont need call ShowPopup()

use MENU oMenu in command ADD BUTTON
sample

@ 3,5 ADD BUTTON oBtn PROMPT "Change" BITMAP "mybitmap" GROUP oGr MENU oMenu ;
SPLITPOPUP ROUND SIZE 65,75 TOP

[Otto]

Daniel,
But I want to open the menu also with a click on the button not only on the arrow.
Best regards,
Otto

[Daniel Garcia-Gil]

Otto...


if you dont define ACTION the default action will be ShowPopup()

see

@ 3,5 ADD BUTTON oBtn PROMPT "Change" BITMAP "mybitmap" GROUP oGr MENU oMenu ;
SPLITPOPUP ROUND SIZE 65,75 TOP

i dont defined action in this button, when you push the button the popup menu is displayed

[Otto]

Hello Daniel,
thank you so much. Now all is working perfectly.
I didn’t know about that.
Best regards,
Otto