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

PRIM_MD.MenuItem

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


See also

All Component Classes

Technical Reference