List Switch control CurrentItem (PRIM_MD.ListSwitchCurrentItem)
Provides access to the switch of the current list item
Ancestors - List CurrentItem (PRIM_MD.ListCurrentItem) Object (PRIM_OBJT)
Prim_MD.ListSwitch is a control List that is visualized as a switch. Each control type has a corresponding control class that provides access to the control instance. The switch for each item can be modified independently using the current item for the control in the same way that other visual LANSA lists allow the current item for the list to be used. A switch control is created whenever a switch is dragged and dropped from the controls view.
This example shows a single control list updating each button after it's added to the list. When a switch is changed 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) Layoutmanager(#Layout1)
Define_Com Class(#PRIM_TBLO) Name(#Layout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Column(#Layout1Column1) Manage(#List) Parent(#Layout1) Row(#Layout1Row1)
Define_Com Class(#PRIM_TBLO) Name(#Layout2)
Define_Com Class(#PRIM_TBLO.Row) Name(#Layout2Row1) Displayposition(1) Parent(#Layout2)
Define_Com Class(#PRIM_TBLO.Column) Name(#Layout2Column1) Displayposition(1) Parent(#Layout2)
Define_Com Class(#PRIM_TBLO.Item) Name(#Layout2Item1) Column(#Layout2Column1) Manage(#ListSwitch) Parent(#Layout2) Row(#Layout2Row1)
Define_Com Class(#PRIM_MD.List) Name(#List) Displayposition(1) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Height(456) Width(864) Layoutmanager(#Layout2)
Define_Com Class(#PRIM_MD.ListSwitch) Name(#ListSwitch) Parent(#List) Displayposition(1) Tabposition(1) Height(75) Left(0) Top(0) Width(864)
Evtroutine Handling(#Com_owner.CreateInstance)
Begin_Loop To(10)
Add_Entry To_List(#List)
#ListSwitch.CurrentItem.Caption := ("Switch checked = &1").substitute( #ListSwitch.Checked )
End_Loop
Endroutine
Evtroutine Handling(#ListSwitch.Changed)
#ListSwitch.CurrentItem.Caption := ("Button checked = &1").substitute( #ListSwitch.CurrentItem.Checked )
Endroutine
End_Com
| Name | Description |
|---|---|
| Caption | Text to be displayed within the control |
| CaptionAlignment | Position of the Caption within the control |
| CaptionMarginBottom | Bottom margin in pixels |
| CaptionMarginLeft | Left margin in pixels |
| CaptionMarginRight | Right margin in pixels |
| CaptionMarginTop | Top margin in pixels |
| Checked | Checked property specifies whether the check box for the item is selected |
| ComponentClassName | ComponentClassName is the name of the component's class. Inherited from Object (PRIM_OBJT) |
| ComponentMembers | ComponentMembers provides access to all the member components of this component Inherited from Object (PRIM_OBJT) |
| ComponentPatternName | ComponentPatternName is used to qualify the class of the component. Inherited from Object (PRIM_OBJT) |
| ComponentTag | Generic space allowing a value to be stored for the instance Inherited from Object (PRIM_OBJT) |
| ComponentType | ComponentType gives you access to the type information about the component Inherited from Object (PRIM_OBJT) |
| ComponentTypeName | ComponentTypeName is the fully qualified name of the component's class. Inherited from Object (PRIM_OBJT) |
| Enabled | Enable or disable the list item Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Height | The height of the list item in pixels Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Hint | Hint to be shown for the current item Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| HintPopup | HintPopup allows a PopupPanel instance to be used instead of the default hint text box Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| HintTitle | Hint title to be shown for the current item of the list Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| IconAlignment | Position of the icon within the control |
| IconColor | Color to be applied to the icon |
| IconHeight | Height of the icon in pixels |
| IconMarginBottom | Bottom margin in pixels |
| IconMarginLeft | Left margin in pixels |
| IconMarginRight | Right margin in pixels |
| IconMarginTop | Top margin in pixels |
| Left | Position of the list item relative to the left boundary of its list Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| MouseOverStyle | Style applied to the item when mouse over Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| MouseOverStyles | Collection of styles to be applied to the item when mouse over Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Name | Name identifies the component Inherited from Object (PRIM_OBJT) |
| Owner | Owner owns this component Inherited from Object (PRIM_OBJT) |
| PaddingBottom | Bottom padding in pixels |
| PaddingLeft | Left padding in pixels |
| PaddingRight | Right padding in pixels |
| PaddingTop | Top padding in pixels |
| Parent | The component instance to which this instance is attached. The visual container for a control or the collector of a set of child instances Inherited from Object (PRIM_OBJT) |
| Popup | Popup to be shown for the current item Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Style | Style to be applied to the current item Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Styles | Collection of styles to be applied to the current item Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| ThemeDrawStyle | Name of the Theme DrawStyle to be applied to the icon Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Top | Position of the list item relative to the top boundary of the list Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Visible | Show or hide the list item Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Width | Width of the list item in pixels Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| Name | Description |
|---|---|
| CreateInstance | CreateInstance is signalled when an instance of a component is created Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
| DestroyInstance | DestroyInstance is signalled when an instance of a component is about to be destroyed Inherited from List CurrentItem (PRIM_MD.ListCurrentItem) |
Febuary 18 V14SP2