Page History

...

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

See also

All Component Classes

Technical Reference