List DateTime Column - ColumnReadOnly Property
Specifies whether the column is input capable
Member of List DateTime Column (PRIM_LIST.DateTime)
Data Type - Boolean
Details
The ColumnReadonly property specifies whether the cells in a List will be input capable. This applies to the whole column.
Individual items can be changed by accessing the ReadOnly property for item.
Example
In this example, you can use the column headers to change ColumnReadonly, or the button for each row change the cell readonly state.
Begin_Com Role(*EXTENDS #PRIM_WEB) Height(752) Width(1032) Theme(#SYS_THEME<2015Blue>)
Define_Com Class(#PRIM_LIST) Name(#List) DisplayPosition(1) Left(24) Parent(#COM_OWNER) TabPosition(1) Top(48) Height(477) Width(729) RowHeight(29)
Define_Com Class(#PRIM_LIST.Number) Name(#ColumnNumber) ColumnWidth(174) DisplayPosition(1) Increment(1) Parent(#List) Source(#xDemoNumber) Wrap(False) ColumnReadOnly(False)
Define_Com Class(#PRIM_LIST.String) Name(#ColumnString) ColumnWidth(432) DisplayPosition(2) Parent(#List) Source(#xDemoCaption) ColumnReadOnly(False)
Define_Com Class(#PRIM_LIST.Button) Name(#ColumnButton1) ColumnWidth(110) DisplayPosition(3) Parent(#List) CellMarginBottom(2) CellMarginLeft(2) CellMarginRight(2) CellMarginTop(2) ColumnCaption('Item Readonly')
Define_Com Class(#PRIM_LABL) Name(#Label1) Caption('Click the column heading to toggle the ColumnReadOnly property') DisplayPosition(2) Ellipses(Word) Height(35) Left(24) Parent(#COM_OWNER) TabPosition(2) TabStop(False) Top(6) VerticalAlignment(Center) Width(729) ThemeDrawStyle('Heading1+MediumTitle') MarginLeft(4)
Evtroutine Handling(#Com_owner.CreateInstance)
Inz_List Named(#List) Num_Entrys(10)
Endroutine
Evtroutine Handling(#ColumnNumber.ColumnClick)
#ColumnNumber.ColumnReadOnly := *Not #ColumnNumber.ColumnReadOnly
Endroutine
Evtroutine Handling(#ColumnString.ColumnClick)
#ColumnString.ColumnReadOnly := *Not #ColumnString.ColumnReadOnly
Endroutine
Evtroutine Handling(#ColumnButton1.Click)
#ColumnNumber.FocusItem.ReadOnly := *Not #ColumnNumber.FocusItem.ReadOnly
#ColumnString.FocusItem.ReadOnly := *Not #ColumnString.FocusItem.ReadOnly
Endroutine
End_Com