リストの各エントリー毎に繰り返されるスイッチ

祖先 - スイッチ (PRIM_MD.Switch) コントロール (PRIM_MD.Control) コントロール (PRIM_CTRL) オブジェクト (PRIM_OBJT)

詳細

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

例

次の例は、リストにスイッチが追加された後、チェックされた各スイッチを更新する 1 つのコントロール リストを示しています。
 
スイッチがクリックされると、アイテムの現在のスイッチにアクセスされ、このスイッチがキャプションに反映されます。キャプションを On や Off に変更することで、スイッチがチェックされます。

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(241) 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(#ListSwitch) 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(241) Width(633) Layoutmanager(#LayoutList)
    Define_Com Class(#PRIM_MD.ListSwitch) Name(#ListSwitch) Caption('On') Displayposition(1) Dragstyle(None) Left(0) Parent(#List) Tabposition(1) Top(0) Height(50) Width(633)
 
 
        Evtroutine Handling(#Com_owner.CreateInstance)
 
            Begin_Loop To(10)
 
                Add_Entry To_List(#List)
 
                #ListSwitch.CurrentItem.Checked := True
 
            End_Loop
 
        Endroutine
 
        Evtroutine Handling(#ListSwitch.Changed)
 
            If (#ListSwitch.CurrentItem.Checked)
 
                #ListSwitch.CurrentItem.Caption := 'On'
 
            Else
 
                #ListSwitch.CurrentItem.Caption := 'Off'
 
            Endif
 
        Endroutine
 
End_Com

ﾌﾟﾛﾊﾟﾃｨ

イベント

ﾒｿｯﾄﾞ

参照

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

テクニカルリファレンス

EPC142030 February 2019