VL Web - Show background color of cell in selected list item

This Q&A forum allows users to post and respond to "How Do I Do ....." questions. Please do not use to report (suspected) errors - you must use your regional help desk for this. The information contained in this forum has not been validated by LANSA and, as such, LANSA cannot guarantee the accuracy of the information.
Post Reply
Kazunori Kasahara
Posts: 13
Joined: Wed May 25, 2016 5:26 pm

VL Web - Show background color of cell in selected list item

Post by Kazunori Kasahara » Thu Sep 20, 2018 6:51 pm

Our customer would like to change background color of list cell when detecting an error on a cell.

The following web page assigns style which background color is red to #ColumnSTD_CODE1.CurrentItem when pressing button. But assigned syle color is not shown unless we select other list item.

Can you tell me how to show background color of cell without selecting other list item?

Code: Select all

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(680) Width(792)

Define_Com Class(#PRIM_VS.Style) Name(#Style1) BackgroundBrush(#Brush1)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush1) Color(Red)

Define_Com Class(#PRIM_LIST) Name(#List1) DisplayPosition(1) Left(53) Parent(#COM_OWNER) TabPosition(1) Top(60) AutoSelectItem(False) Width(492)
Define_Com Class(#PRIM_LIST.String) Name(#ColumnSTD_CODE1) ColumnWidth(225) DisplayPosition(1) Parent(#List1) Source(#STD_CODE) ColumnReadOnly(False)
Define_Com Class(#PRIM_LIST.String) Name(#ColumnSTD_DESC1) ColumnWidth(233) DisplayPosition(2) Parent(#List1) Source(#STD_DESC) ColumnReadOnly(False)

Define_Com Class(#PRIM_PHBN) Name(#Button1) Caption('Set Style') DisplayPosition(2) Left(568) Parent(#COM_OWNER) TabPosition(2) Top(64)

Evtroutine Handling(#Com_owner.Initialize)
Inz_List Named(#List1) Num_Entrys(10)
Endroutine

Evtroutine Handling(#Button1.Click)
Set Com(#ColumnSTD_CODE1.CurrentItem) Style(#Style1)
Endroutine
End_Com

Post Reply