VL Web - Show background color of cell in selected list item
Posted: 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?
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