ツリー ビューはデータを階層的に表示するためのコンポーネントです。

祖先 - コントロール (PRIM_CTRL) ブジェクト (PRIM_OBJT)

詳細

TreeView は、項目内の項目を示すデータの階層表示です。
 
TreeView は、  ADD_ENTRY、 GET_ENTRY、 SELECTLIST などの LANSA リストコマンドによって管理される典型的な LANSA リストコントロールです。
 
ツリーに Columns が追加されます。それぞれに Source があり、アイテムが使用されるときにデータ値がリストの内外にマッピングされます。
 
TreeView には、 ViewStyle プロパティに基づいて 2 つのバリエーションがあります。
 
レベル付きツリーは、列の KeyPosition プロパティを使用して階層を決定します。データ値を変更すると、自動的に子アイテムがネストされます。ただし、ツリー内の各項目には 1 つの値しか表示されず、追加される列の数によってレベル数が管理されます。
 
Unlevelled ツリーには、そのような自動化がないため、ユーザーが ParentItem プロパティを使用して項目の入れ子を制御する必要があります。未評価のツリーは、多数のレベルを持つことができ、多くのデータの列を表示できます。それらは自動化されていませんが、はるかに柔軟で強力です。

例

この例では、展開されていないツリーは4つの子アイテムを展開アイテムに追加します。
 
最初の列はブランチの項目番号を示し、2番目の列は下位のリスト項目番号を示します。

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(480) Clientheight(398) Left(259) Top(261) Height(437) Width(496) Layoutmanager(#TableLayout1)
 
   Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1)
   Define_Com Class(#PRIM_TBLO.Item) Name(#TreeView1Item1) Column(#Column1) Manage(#Tree) Parent(#TableLayout1) Row(#Row1)
 
   Define_Com Class(#PRIM_TRVW) Name(#Tree) Columnbuttonheight(19) Componentversion(2) Displayposition(1) Height(398) Keyboardpositioning(SortColumn) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Width(480) Viewstyle(UnLevelled) Fullrowselect(True)
   Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn2) Displayposition(1) Level(2) Parent(#Tree) Source(#STD_NUM) Width(28) Captiontype(Caption) Caption('Item number')
   Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn3) Displayposition(2) Level(2) Parent(#Tree) Source(#STD_IDNO) Width(32) Captiontype(Caption) Caption('List Entry')
 
   Evtroutine Handling(#Com_owner.CreateInstance)
 
      #Com_Self.Add4Items
 
 Endroutine
 
   Mthroutine Name(Add4Items)
   Define_Map For(*input) Class(#Prim_tvit) Name(#ParentItem) Mandatory(*Null) Pass(*By_reference)
 
      Begin_Loop Using(#Std_num) To(4)
 
         Add_Entry To_List(#Tree)
         #std_idno := #Tree.CurrentItem.Entry
         Upd_Entry In_List(#Tree)
 
         #Tree.CurrentItem.ParentItem <= #ParentItem
         #Tree.CurrentItem.HasChildren := Unknown
 
 End_Loop
 
 Endroutine
 
   Evtroutine Handling(#Tree.ItemExpanding)
 
      If (#Tree.CurrentItem.HasChildren <> Yes)
         #Com_Self.Add4Items( #Tree.currentitem )
 Endif
 
 Endroutine
 
 End_Com

ﾌﾟﾛﾊﾟﾃｨ

イベント

ﾒｿｯﾄﾞ

参照

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

テクニカルリファレンス

2018 - V14SP1