Show or hide the content of a cell |
Member of List Column (PRIM_LIST.Column)
Data Type - Boolean
The Visible property controls whether the cells in a column are visible when an item is added to the list. When False, the cell will be hidden.
The visibility of individual cells can be addressed using the Visible property of the column CurrentItem.
In this example, the buttons in the second column are invisible until the mouse is over the item.
Begin_Com Role(*EXTENDS #PRIM_WEB) LayoutManager(#TableLayout)
Define_Com Class(#PRIM_VS.Style) Name(#Style1) BackgroundBrush(#Brush1) CornerTopLeft(3) CornerBottomLeft(3) CornerTopRight(3) CornerBottomRight(3)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush1) Color(214:214:214)
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)
Define_Com Class(#PRIM_LIST) Name(#List) DisplayPosition(1) Height(800) Left(0) Parent(#COM_OWNER) TabPosition(1) Top(0) Width(1200) RowHeight(37) RowResize(True) SelectionStyle(All) RowLines(False) ColumnLines(False)
Define_Com Class(#PRIM_LIST.Number) Name(#ColumnXDEMONUMB1) ColumnWidth(96) DisplayPosition(1) Increment(1) Parent(#List) Source(#xDemoNumber) Wrap(False)
Define_Com Class(#PRIM_LIST.Button) Name(#ButtonColumn) ColumnWidth(113) DisplayPosition(2) Parent(#List) Image(#xImageDownload16) Caption('Button') CellSizing(None) CellWidth(100) Style(#Style1) ColumnCaption('Button') Visible(False)
Evtroutine Handling(#Com_owner.CreateInstance)
Begin_Loop Using(#xDemoNumber) To(20)
Add_Entry To_List(#List)
End_Loop
Endroutine
Evtroutine Handling(#List.ItemMouseEnter)
#ButtonColumn.CurrentItem.Visible := True
Endroutine
Evtroutine Handling(#List.ItemMouseLeave)
#ButtonColumn.CurrentItem.Visible := False
Endroutine
End_Com