リスト内の各エントリーに表示する編集フィールド

祖先 - 編集フィールド (PRIM_MD.Edit) フィールド (PRIM_MD.Input) コントロール (PRIM_MD.Control) コントロール (PRIM_CTRL) オブジェクト (PRIM_OBJT)

詳細

Prim_MD.ListEdit は編集フィールドとしてビジュアライズされた、リスト内の編集フィールドです。
 
各編集フィールドタイプには、個別のエントリーへのアクセスを提供対応する CurrentItem があり、それぞれのエントリーに CurrentItem プロパティ経由でアクセスできるようになります。
 
リスト編集コントロールは、リストのコントロール ビューから編集フィールドがドラッグ アンド ドロップされると必ず作成されます。

次の例では、編集フィールドの値が変更されると、フィールドがブランクかどうかによって、アイコンとアイコンの色が変更されます。

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(569) Width(633) Theme(#SYS_THEME) Layoutmanager(#LayoutPage)
 
    Define_Com Class(#PRIM_TBLO) Name(#LayoutPage)
    Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutPageRow) Displayposition(1) Parent(#LayoutPage)
    Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutPageColumn) Displayposition(1) Parent(#LayoutPage)
    Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutPageItem) Column(#LayoutPageColumn) Manage(#List) Parent(#LayoutPage) Row(#LayoutPageRow) sizing(FitBoth)
 
    Define_Com Class(#PRIM_TBLO) Name(#LayoutList)
    Define_Com Class(#PRIM_TBLO.Row) Name(#LayoutListRow) Parent(#LayoutList) Displayposition(1)
    Define_Com Class(#PRIM_TBLO.Column) Name(#LayoutListColumn) Parent(#LayoutList) Displayposition(1)
    Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutListItem) Column(#LayoutListColumn) Manage(#ListEdit) Parent(#LayoutList) Row(#LayoutListRow) Marginbottom(6) Marginleft(6) Marginright(6) Margintop(6) sizing(FitBoth)
 
    Define_Com Class(#prim_md.List) Name(#List) Parent(#COM_OWNER) Displayposition(1) Tabposition(1) Left(0) Top(0) Height(569) Width(633) Layoutmanager(#LayoutList)
    Define_Com Class(#Prim_md.ListEdit) Name(#ListEdit) Parent(#List) Displayposition(1) Tabposition(1) Height(50) Width(633) Source(#xDemoUnicode128) Helperposition(None) Left(0) Top(0) Icon('clear') Placeholdercolor(ThemeA400) Caption('Type something in me') Iconcolor(Red) Spellcheck(True)
 
 
        Evtroutine Handling(#Com_owner.CreateInstance)
 
            Begin_Loop Using(#xDemoNumber) To(10)
 
                Add_Entry To_List(#List)
 
            End_Loop
 
        Endroutine
 
 
        Evtroutine Handling(#ListEdit.Changed)
 
            If (#xDemoUnicode128 = "")
 
                #ListEdit.CurrentItem.Icon := 'clear'
 
                #ListEdit.CurrentItem.IconColor := 'red'
 
            Else
 
                #ListEdit.CurrentItem.Icon := 'done'
 
                #ListEdit.CurrentItem.IconColor := 'Green'
 
            Endif
 
        Endroutine
 
End_Com

ﾌﾟﾛﾊﾟﾃｨ

イベント

ﾒｿｯﾄﾞ

参照

すべてのコンポーネント クラス

テクニカルリファレンス

EPC142030 February 2019