Show or hide the list item |
Member of List Current Item (PRIM_LIST.CurrentItem)
Data Type - Boolean
The Visible property controls whether a cell in a column is visible.
To hide items by default when added to the list, the Visible property of the column can be set to false.
When a value is entered, the items in the list are hidden if the value number entered isn't in the item value.
Begin_Com Role(*EXTENDS #PRIM_WEB) LayoutManager(#TableLayout) Height(448) Width(680)
Define_Com Class(#PRIM_TBLO) Name(#TableLayout)
Define_Com Class(#PRIM_TBLO.Column) Name(#Column) DisplayPosition(1) Parent(#TableLayout)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) DisplayPosition(1) Parent(#TableLayout) Height(48) Units(Pixels)
Define_Com Class(#PRIM_TBLO.Row) Name(#TableLayoutRow1) DisplayPosition(2) Parent(#TableLayout) Height(1.79)
Define_Com Class(#PRIM_TBLO.Item) Name(#TableLayoutItem1) Column(#Column) Manage(#List) Parent(#TableLayout) Row(#TableLayoutRow1)
Define_Com Class(#PRIM_LIST) Name(#List) DisplayPosition(1) Height(400) Left(0) Parent(#COM_OWNER) TabPosition(1) Top(48) Width(680) RowHeight(37) RowResize(True) SelectionStyle(All) RowLines(False) ColumnLines(False)
Define_Com Class(#PRIM_LIST.Number) Name(#NumberColumn) ColumnWidth(148) DisplayPosition(1) Parent(#List) Source(#xDemoNumber)
Define_Com Class(#XDXNumber.Visual) Name(#Find) ComponentVersion(1) DisplayPosition(2) Parent(#COM_OWNER) TabPosition(2) Top(12) Width(253) Left(6) Caption('Show Items Containing') LabelType(Caption)
Evtroutine Handling(#Com_owner.CreateInstance)
Begin_Loop Using(#xDemoNumber) To(100)
Add_Entry To_List(#List)
End_Loop
Endroutine
Evtroutine Handling(#Find.Changed)
Selectlist Named(#List)
#List.CurrentItem.Visible := (#NumberColumn.CurrentItem.Value.AsString.Contains( #Find.AsString ) Or (#Find = 0))
Endselect
Endroutine
End_Com