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

See also

All Component Classes

Technical Reference

  • No labels