リストアイテムの表示または非表示 |
PRIM_LIST.CurrentItemクラス (PRIM_LIST.CurrentItem) のメンバ
データタイプ - ブール値
Visible プロパティは、列内のセルが表示可能かどうかを制御します。
リストに追加されたときにデフォルトで項目を非表示にするには、列の Visible プロパティを false に設定します。
この例では、マウスが項目の上に来るまで、 2 番目の列のボタンは表示されません。
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