VL WEB - Setting border for a list cell

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
mwilliams
Posts: 36
Joined: Sat May 28, 2016 1:45 am

VL WEB - Setting border for a list cell

Post by mwilliams »

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.

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
This is what I get
2022_01_03_11_30_51_Window.png
2022_01_03_11_30_51_Window.png (4.1 KiB) Viewed 83447 times
Top
Post Reply

Return to “Questions & Answers”