PRIM_LIST.DateTimeクラス - ColumnReadOnlyプロパティ 

列が入力可能かどうかを指定します

PRIM_LIST.DateTimeクラス (PRIM_LIST.DateTime) のメンバ

データタイプ - ブール値

詳細

ColumnReadonly プロパティは、 List 内のセルが入力可能かどうかを指定します。 これは列全体に適用されます。

個々の項目は、項目の ReadOnly プロパティにアクセスすることで変更できます。

例

この例では、列ヘッダーを使用して ColumnReadonly を変更するか、各行のボタンでセルの読み取り専用状態を変更できます。 

     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


参照

すべてのコンポーネント クラス
テクニカルリファレンス

  • No labels