Menu Item - RadioItem Property
RadioItem makes the menu item a radio button
Member of Menu Item (PRIM_MITM)
Data Type - Boolean
Details
The RadioItem property will make the menu item appear like a radio button
Use the GroupIndex and Checked properties to define a set of mutually exclusive menu options.
Example
In this example, whenever a menu item is clicked, its Checked property is set to True.
As all 4 menu items belong to the same group, all other menu items are set to False.
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(897) Clientheight(384) Componentversion(2) Top(227) Left(222) Menubar(#MenuBar1)
Define_Com Class(#PRIM_MBAR) Name(#MenuBar1) Parent(#COM_OWNER)
Define_Com Class(#PRIM_MITM) Name(#MenuItem1) Caption('Item1') Displayposition(1) Parent(#MenuBar1)
Define_Com Class(#PRIM_SMNU) Name(#SubMenu1) Parent(#MenuItem1)
Define_Com Class(#PRIM_MITM) Name(#MenuItem2) Displayposition(1) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MenuItem3) Displayposition(2) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MenuItem4) Displayposition(3) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Define_Com Class(#PRIM_MITM) Name(#MenuItem5) Displayposition(4) Parent(#SubMenu1) Caption('Item') Groupindex(1) Radioitem(True)
Evtroutine Handling(#MenuItem2.click #MenuItem3.click #MenuItem4.click #MenuItem5.click) Com_Sender(#Sender)
#Sender.Checked := true
Endroutine
End_Com