VL WEB - Setting border for a list cell
Posted: Tue Jan 04, 2022 4:33 am
I was wondering if someone could spot what I'm going wrong. I'm trying to set the top and bottom borders for a row in my list but nothing I do seems to work. It seems that all the other parts of the style are applied like the background and bold text but not the border attributes.
One thing I will mention is that this RP is attached to a command handler in a VLF-One application so I'm wondering if the overall theme is overriding my style somehow. Anyways, any info would be helpful.
This is what I get
One thing I will mention is that this RP is attached to a command handler in a VLF-One application so I'm wondering if the overall theme is overriding my style somehow. Anyways, any info would be helpful.
Code: Select all
* - Style
Define_Com Class(#PRIM_VS.Style) Name(#Style3) Backgroundbrush(#Brush2) Bold(True) Bordercolor(Black) Bordertop(1) Borderbottom(3) Borderleft(0) Borderright(0)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush2) Color(200:200:200)
* - Today List
Define_Com Class(#PRIM_LIST) Name(#tdyList) Parent(#mainPanel) Displayposition(2) Tabposition(2) Columnheadersizing(ContentHeight) Left(4) Width(650) Top(67) Height(205) Rowsizing(Individual) Columnlines(False) Rowlines(False) Rowheight(20)
Define_Com Class(#PRIM_LIST.String) Name(#tdyColText) Displayposition(1) Parent(#tdyList) Source(#STD_TEXT) Cellalignment(CenterLeft) Columnwidth(200) Columncaption(' ') Columncaptiontype(Caption) Style(#Style1)
Define_Com Class(#PRIM_LIST.Number) Name(#tdyColValue) Displayposition(2) Parent(#tdyList) Source(#IVAM18) Cellalignment(CenterLeft) Columncaption('Value') Columncaptiontype(Caption) Columnwidth(125) Displayalignment(Right)
Define_Com Class(#PRIM_LIST.Number) Name(#tdyColGoal) Displayposition(3) Parent(#tdyList) Source(#IVAM19) Cellalignment(CenterLeft) Columncaption('Goal') Columncaptiontype(Caption) Columnwidth(125) Displayalignment(Right)
Define_Com Class(#PRIM_LIST.Number) Name(#tdyColGoalPct) Displayposition(4) Parent(#tdyList) Source(#IMPC02) Cellalignment(CenterLeft) Columncaption('% Goal') Columncaptiontype(Caption) Columnwidth(125) Displayalignment(Right) Cellmargintop(1)
Mthroutine Name(uExecute) Options(*REDEFINE)
* Do any ancestor logic first.
#COM_ANCESTOR.uExecute Gotofreestate(#GotoFreeState) Switchcallerreference(#SwitchCallerReference)
* Now request a delayed load of the data. Leave the panel in its current default busy state.
* Set Com(#AVLOCALTIMER) Interval(1) Componenttag(LOAD)
* #GotoFreeState := True
Clr_List Named(#tdyList)
#STD_TEXT := 'Today''s Bard'
#IVAM18 := 123.45
#IVAM19 := 12356.78
#IMPC02 := 123.4
Add_Entry To_List(#tdyList)
#tdyList.CurrentItem.Style <= #style3
Endroutine
- 2022_01_03_11_30_51_Window.png (4.1 KiB) Viewed 83448 times