PRIM_MD.Menu - ItemCollapsed Event
Fires when a menu parent item is collapsed
Member of PRIM_MD.Menu (PRIM_MD.Menu)
Parameters
Name |
Type |
Data Type |
Description |
Item |
*Input |
Returns the collapsed menu item |
Details
ItemCollapsed event is fired when a parent item is collapsed.
ItemCollapsed returns the menu Item that was collapsed
This example shows the item expanded and collapsed events using the returned item to change the parent item icon.
Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME)
Define_Com Class(#PRIM_MD.Menu) Name(#Menu) Displayposition(1) Height(400) Parent(#COM_OWNER) Tabposition(1) Width(240)
Define_Com Class(#PRIM_MD.MenuItem) Name(#ParentItem) Caption('ITEMS 1') Displayposition(1) Height(50) Left(0) Parent(#Menu) Tabposition(1) Top(0) Width(240) Icon('keyboard_arrow_up')
Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem) Caption('ITEM 1') Displayposition(2) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem) Tabposition(2) Top(50) Width(240)
Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem1) Caption('ITEM 2') Displayposition(3) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem) Tabposition(3) Top(100) Width(240)
Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem2) Caption('ITEM 3') Displayposition(4) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem) Tabposition(4) Top(150) Width(240)
Define_Com Class(#PRIM_MD.MenuItem) Name(#ParentItem1) Caption('ITEMS 2') Displayposition(5) Height(50) Left(0) Parent(#Menu) Tabposition(5) Top(200) Width(240) Icon('keyboard_arrow_up')
Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem3) Caption('ITEM 1') Displayposition(6) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem1) Tabposition(6) Top(250) Width(240)
Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem4) Caption('ITEM 2') Displayposition(7) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem1) Tabposition(7) Top(300) Width(240)
Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem5) Caption('ITEM 3') Displayposition(8) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem1) Tabposition(8) Top(350) Width(240)
Evtroutine Handling(#Menu.ItemCollapsed) Item(#item)
#item.Icon := 'keyboard_arrow_down'
Endroutine
Evtroutine Handling(#Menu.ItemExpanded) Item(#item)
#item.Icon := 'keyboard_arrow_up'
Endroutine
End_Com