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

[Kazunori Kasahara]

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