List Column - ColumnCaptionWordWrap Property
Wrap text on to the next line if there is insufficient space
Member of List Column (PRIM_LIST.Column)
Data Type - Boolean
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.
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
Febuary 18 V14SP2