ツリー アイテム クラス - ParentItemプロパティ

親アイテムへの参照

TreeItemクラス (PRIM_TREE.TreeItem) のメンバ
データタイプ - PRIM_TREE.TreeItem - アイテムを含むツリーへの参照

詳細

ParentItem プロパティは、アイテムを含むリスト内の項目です。 
リストのルートにある項目には、 Null の ParentItem があります。

例

この例は、 5 つの項目を追加する簡単なリストです。アイテムが展開されるたびに、リストは 5 つの子アイテムを展開アイテムに追加します。 
Prim_Tree は、 Prim_List と同じ ParentItem テクニックを使用します。 

     Begin_Com Role(*EXTENDS #PRIM_WEB) Height(456) Width(864) 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(#ListItem1) Column(#Column1) Manage(#List) Parent(#TableLayout1) Row(#Row1) 
        Define_Com Class(#PRIM_List) Name(#List) Displayposition(1) Height(456) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Width(864) Columnlines(False) Rowlines(False)
        Define_Com Class(#PRIM_LIST.Number) Name(#ColumnXDEMONUMB1) Displayposition(1) Increment(1) Parent(#List) Source(#xDemoNumber) Wrap(False) Columnwidth(216) 
        Evtroutine Handling(#Com_owner.CreateInstance) 
           #Com_Self.Add5Items 
        Endroutine 
        Mthroutine Name(Add5Items)
        Define_Map For(*input) Class(#PRIM_List.ListItem) Name(#ParentItem) Mandatory(*Null) Pass(*By_reference) 
           Begin_Loop Using(#xDemoNumber) To(5) 
              Add_Entry To_List(#List) 
              #List.CurrentItem.ParentItem <= #ParentItem
              #List.CurrentItem.HasChildren := Unknown 
           End_Loop 
        Endroutine 
        Evtroutine Handling(#List.ItemExpanding) 
           If (#List.CurrentItem.HasChildren <> Yes)
              #Com_Self.Add5Items( #List.currentitem )
           Endif 
        Endroutine 
     End_Com

参照

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