リストラベル列現在アイテム (PRIM_MD.ListLabelCurrentItem)

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

詳細

Prim_MD.ListLabel は、ラベルとしてビジュアライズされたコントロール リストです。

各コントロール タイプには対応する コントロール クラスがあり、これがコントロールインスタンスへのアクセスを提供します。

他の 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.ListLabel) Name(#ListLabel) 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) 

                 #ListLabel.CurrentItem.Caption := ('Label: &1').Substitute( #xDemoNumber.AsString ) 

              End_Loop 

           Endroutine 

           Evtroutine Handling(#ListLabel.Click) 

              #ListLabel.CurrentItem.Caption := ('&1 &2').Substitute( #ListLabel.CurrentItem.Caption "Clicked" ) 

           Endroutine

     End_com

プロパティ

イベント

参照

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