Fires when a menu parent item is expanded

Member of PRIM_MD.Menu (PRIM_MD.Menu)

Parameters

Details

ItemCollapsed event is fired when a parent item is expanded.

ItemExpanded 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

See also

All Component Classes

Technical Reference

V14SP2 April 2018