Versions Compared

Old Version 2

changes.mady.by.user user-5d3f2

Saved on

compared with

New Version Current

changes.mady.by.user Alejandra Rivera

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Push Button - MenuSeparator Property

Panel
bgColor#2c3c4c

Show a separator between the button and the menu

Member of Push Button (PRIM_PHBN)

...

This example shows two buttons configured to use the same popup menu.

The MenuPosition and [and MenuSeparator properties have been used on the second button to change the where the menu appears and how the button manages a click and Enter.

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(660) Clientheight(338) Componentversion(2) Top(215) Left(237) 

        Define_Com Class(#PRIM_PHBN) Name(#Button1) Caption('Button1') Displayposition(1) Left(7) Parent(#COM_OWNER) Tabposition(1) Top(6) Menu(#PopupMenu1) Width(90)
        Define_Com Class(#PRIM_PHBN) Name(#Button2) Caption('Button2') Displayposition(2) Left(111) Parent(#COM_OWNER) Tabposition(2) Top(7) Width(138) Menu(#PopupMenu1) Menuposition(Right) Menuseparator(True)
        Define_Com Class(#PRIM_PMNU) Name(#PopupMenu1)
        Define_Com Class(#PRIM_MITM) Name(#MenuItem1) Caption('Item1') Displayposition(1) Parent(#PopupMenu1)
        Define_Com Class(#PRIM_MITM) Name(#MenuItem2) Displayposition(2) Parent(#PopupMenu1) Caption('Item2') Default(True)
        Define_Com Class(#PRIM_MITM) Name(#MenuItem3) Displayposition(3) Parent(#PopupMenu1) Caption('Item3') 

        Evtroutine Handling(#MenuItem1.Click #MenuItem2.Click #MenuItem3.Click) Com_Sender(#Sender) 

           #Com_owner.Caption := #Sender.Caption 

        Endroutine 

     End_Com

 See See also

All Component Classes

Technical Reference