ItemExpanded

PRIM_MD.Menu - ItemExpanded Event

Fires when a menu parent item is expanded

Parameters

Name	Type	Data Type	Description
Item	*Input	PRIM_MD.MenuItem	Returns the expanded menu item

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

Parameters

Details

See also