Reference to the focus item in the column |
Member of List Reusable Part Column (PRIM_LIST.Part)
Data Type - PRIM_LIST.PartCurrentItem - Provides access to the reusable part for the current list item
The FocusItem property of a column allows access to the individual items within the column.
A column will only have a FocusItem if the FocusItem in the list has been set.
In this exmaple, when focus changes, a reference to the current design instance is taken from the column FocusItem so that the changed event can be monitored.
Begin_Com Role(*EXTENDS #PRIM_WEB) Height(712) Width(1024)
Define_Com Class(#PRIM_LIST) Name(#List) DisplayPosition(1) Left(78) Parent(#COM_OWNER) TabPosition(1) Top(64) Height(401) Width(587) RowLines(False) ColumnLines(False) RowHeight(30)
Define_Com Class(#PRIM_LIST.Number) Name(#ColumnNumber) ColumnWidth(136) DisplayPosition(1) Increment(1) Parent(#List) Source(#xDemoNumber) Wrap(False)
Define_Com Class(#PRIM_LIST.Part) Name(#ColumnPart) DisplayPosition(2) Parent(#List) Design(#ColumnDesign) ColumnWidth(157) ColumnCaption('Address')
Define_Com Class(#ColumnDesign) Name(#CurrentDesignInstance) Reference(*Dynamic)
Evtroutine Handling(#List.ItemGotFocus)
#CurrentDesignInstance <= (#ColumnPart.FocusItem.Part *As #ColumnDesign)
Endroutine
Evtroutine Handling(#List.ItemLostFocus)
#CurrentDesignInstance <= *null
Endroutine
Evtroutine Handling(#CurrentDesignInstance.Changed)
* Handle change in current design instance
Endroutine
End_Com