
Wrap text on to the next line if there is insufficient space
Member of List Column (PRIM_LIST.Column)
Data Type - Boolean
Details
The ColumnCaptionWordWrap property controls whether text is wrapped to the next line if there is insufficient space. The column header will continue to use the size specified in the ColumnHeaderHeight property unless the ColumnHeaderSizing property is set to ContentHeight.
Example
In this example, both the column header and rows will increase in height when the text wraps.
Begin_Com Role(*EXTENDS #PRIM_WEB) Height(712) Width(1024) LayoutManager(#Layout) Define_Com Class(#PRIM_TBLO) Name(#Layout) Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutRow1) DisplayPosition(1) Parent(#Layout) Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutColumn1) DisplayPosition(1) Parent(#Layout) Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Alignment(TopCenter) Column(#LayoutColumn1) Manage(#List) Parent(#Layout) Row(#LayoutRow1) Sizing(ContentHeightFitToWidth) Define_Com Class(#PRIM_LIST) Name(#List) DisplayPosition(1) Left(0) Parent(#COM_OWNER) TabPosition(1) Top(0) Height(175) Width(1024) ColumnLines(False) RowSizing(Individual) RowLines(False) ColumnHeaderSizing(ContentHeight) Define_Com Class(#PRIM_LIST.Number) Name(#ColumnNumber) ColumnWidth(106) DisplayPosition(1) Increment(1) Parent(#List) Source(#xDemoNumber) Wrap(False) Define_Com Class(#PRIM_LIST.String) Name(#ColumnCaption) DisplayPosition(2) Parent(#List) Source(#xDemoCaption) ColumnCaptionWordWrap(True) ColumnWidth(614) WordWrap(True) ColumnCaptionType(Caption) ColumnUnits(Proportion) Evtroutine Handling(#Com_owner.CreateInstance) #ColumnCaption.ColumnCaption := "Lorem ipsum dolor sit amet, consectetur adipiscing elit" #xDemoCaption := "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua" Begin_Loop Using(#xDemoNumber) To(50) Add_Entry To_List(#List) End_Loop Endroutine End_Com
See also
LANSA Version 15, April 2020