VL_WEB and PRIM_LIST and columncaption
Posted: Tue May 07, 2024 9:13 pm
Hi.
i have a list(like the code below) in a VL_WEB page. If I resize the browser window (wider/narrower) the columncaption is not following the colum size.
Is this a problem in lansa or is it Iin my code?
I am on V150060.
Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME<MaterialDesignBlue>) Layoutmanager(#Layout1)
Define_Com Class(#PRIM_TBLO) Name(#Layout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Alignment(TopLeft) Column(#Layout1Column1) Manage(#List) Parent(#Layout1) Row(#Layout1Row1) Sizing(ContentHeightFitToWidth)
Define_Com Class(#PRIM_LIST) Name(#List) Columnheaderheight(48) Columnlines(False) Displayposition(1) Height(345) Left(0) Parent(#COM_OWNER) Rowheight(48) Tabposition(1) Top(0) Width(1200)
Define_Com Class(#PRIM_LIST.Label) Name(#ListColumn1) Caption('Text') Displayposition(1) Parent(#List) Columnunits(Proportion) Columncaption('Text 1') Columncaptiontype(Caption)
Define_Com Class(#PRIM_LIST.Number) Name(#ListColumn2) Columnwidth(130) Displayposition(2) Parent(#List) Sortonclick(True) Source(#STD_NUM)
Define_Com Class(#PRIM_LIST.String) Name(#ListColumn3) Displayposition(3) Parent(#List) Sortonclick(True) Source(#STD_STRNG) Columnunits(Proportion)
Evtroutine Handling(#Com_owner.Initialize)
Clr_List Named(#List)
Begin_Loop Using(#listcount) To(10)
#ListColumn1.Caption := ('this is er en test &1 ').Substitute( #listcount.AsDisplayString( EditCode_Z ) )
#std_num := #LISTCOUNT
#STD_STRNG := ('this is er en test again &1 ').Substitute( #listcount.AsDisplayString( EditCode_Z ) )
Add_Entry To_List(#List)
End_Loop
Endroutine
End_Com
i have a list(like the code below) in a VL_WEB page. If I resize the browser window (wider/narrower) the columncaption is not following the colum size.
Is this a problem in lansa or is it Iin my code?
I am on V150060.
Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME<MaterialDesignBlue>) Layoutmanager(#Layout1)
Define_Com Class(#PRIM_TBLO) Name(#Layout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Alignment(TopLeft) Column(#Layout1Column1) Manage(#List) Parent(#Layout1) Row(#Layout1Row1) Sizing(ContentHeightFitToWidth)
Define_Com Class(#PRIM_LIST) Name(#List) Columnheaderheight(48) Columnlines(False) Displayposition(1) Height(345) Left(0) Parent(#COM_OWNER) Rowheight(48) Tabposition(1) Top(0) Width(1200)
Define_Com Class(#PRIM_LIST.Label) Name(#ListColumn1) Caption('Text') Displayposition(1) Parent(#List) Columnunits(Proportion) Columncaption('Text 1') Columncaptiontype(Caption)
Define_Com Class(#PRIM_LIST.Number) Name(#ListColumn2) Columnwidth(130) Displayposition(2) Parent(#List) Sortonclick(True) Source(#STD_NUM)
Define_Com Class(#PRIM_LIST.String) Name(#ListColumn3) Displayposition(3) Parent(#List) Sortonclick(True) Source(#STD_STRNG) Columnunits(Proportion)
Evtroutine Handling(#Com_owner.Initialize)
Clr_List Named(#List)
Begin_Loop Using(#listcount) To(10)
#ListColumn1.Caption := ('this is er en test &1 ').Substitute( #listcount.AsDisplayString( EditCode_Z ) )
#std_num := #LISTCOUNT
#STD_STRNG := ('this is er en test again &1 ').Substitute( #listcount.AsDisplayString( EditCode_Z ) )
Add_Entry To_List(#List)
End_Loop
Endroutine
End_Com