現在のリスト アイテムのスピン編集へのアクセスを提供します

祖先 - リストの現在のアイテム (PRIM_MD.ListCurrentItem) オブジェクト (PRIM_OBJT)

詳細

Prim_MD.ListSpinEdit は、スピン編集としてビジュアライズされたコントロール リストです。
 
各コントロール タイプには対応する コントロール クラスがあり、これがコントロールインスタンスへのアクセスを提供します。
 
他の Visual LANSA のリストでリストの現在のアイテムが使用できるのと同様に、コントロールの現在のアイテムを使用して、アイテムはそれぞれ個別に変更できます。
 
スピン編集コントロールは、コントロール ビューからスピン編集がドラッグ アンド ドロップされると必ず作成されます。

例

次の例では、単一のコントロールリストが、リストに各ボタンが追加されると、これを更新しています。
 
スピン編集が変更されると、列の現在の項目にアクセスし、列キャプションにはどのボタンがクリックされたかが表示されます

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(456) Width(864) Layoutmanager(#Layout1)
 
    Define_Com Class(#PRIM_TBLO) Name(#Layout1)
    Define_Com Class(#PRIM_TBLO.Row) Name(#Layout1Row1) Displayposition(1) Parent(#Layout1)
    Define_Com Class(#PRIM_TBLO.Column) Name(#Layout1Column1) Displayposition(1) Parent(#Layout1)
    Define_Com Class(#PRIM_TBLO.Item) Name(#Layout1Item1) Column(#Layout1Column1) Manage(#List) Parent(#Layout1) Row(#Layout1Row1)
    Define_Com Class(#PRIM_TBLO) Name(#Layout2)
    Define_Com Class(#PRIM_TBLO.Row) Name(#Layout2Row1) Displayposition(1) Parent(#Layout2)
    Define_Com Class(#PRIM_TBLO.Column) Name(#Layout2Column1) Displayposition(1) Parent(#Layout2)
    Define_Com Class(#PRIM_TBLO.Item) Name(#Layout2Item1) Column(#Layout2Column1) Parent(#Layout2) Row(#Layout2Row1)
 
    Define_Com Class(#PRIM_MD.List) Name(#List) Displayposition(1) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Height(456) Width(864) Layoutmanager(#Layout2)
    Define_Com Class(#PRIM_MD.ListSpinEdit) Name(#ListSpinEdit) Parent(#List) Displayposition(1) Tabposition(1) Left(0) Top(0) Width(864) Source(#xDemoNumber)
 
        Evtroutine Handling(#Com_owner.CreateInstance)
 
            Begin_Loop Using(#xDemoNumber) To(10)
 
                Add_Entry To_List(#List)
 
                #ListSpinEdit.CurrentItem.Caption := ("Value = &1").substitute( #xDemoNumber.AsString )
 
            End_Loop
 
        Endroutine
 
        Evtroutine Handling(#List.ItemLostSelection)
 
            #ListSpinEdit.CurrentItem.Caption := ("Value changed to = &1").substitute( #xDemoNumber.AsString )
 
        Endroutine
 
End_Com

ﾌﾟﾛﾊﾟﾃｨ

イベント

参照

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

テクニカルリファレンス

EPC142030 February 2019