Column displaying a button for each item in the list

Ancestors - List Column (PRIM_LIST.Column) Object (PRIM_OBJT)

Details

Prim_List.Button is a column in a List that is visualized as a pushbutton.
 
Each column type has a corresponding CurrentItem class that provides access to the individual entries in the column accessible via the CurrentItem property.
 
The button for each item can be modified independently using the current item for the column in the same way that other visual LANSA lists allow the current item for the list to be used.
 
A button column is created whenever a Push Button is dragged and dropped from the controls view.

Example

This example shows a single column list updating each button after it's added to the list.
 
When a button is clicked the current item for the column is accessed and the column caption shows which button was clicked.

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(456) Width(864)
 
   Define_Com Class(#PRIM_LIST) Name(#List1) Displayposition(1) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Height(369) Width(609)
   Define_Com Class(#PRIM_LIST.Button) Name(#ColumnButton1) Columnwidth(128) Displayposition(1) Parent(#List1)
 
   Evtroutine Handling(#Com_owner.CreateInstance)
 
      Begin_Loop To(10)
 
         Add_Entry To_List(#List1)
 
         #ColumnButton1.CurrentItem.Caption := ("Button &1").substitute( #List1.Items.Itemcount.asstring )
 
      End_Loop
 
   Endroutine
 
   Evtroutine Handling(#ColumnButton1.Click)
 
      #ColumnButton1.ColumnCaption := #ColumnButton1.CurrentItem.caption
 
   Endroutine
 
End_Com

Properties

Events

Methods

See also

All Component Classes

Technical Reference

EPC1420030 V14sp2 November 2018