STree Stree1{
  X = 10;
  Y = 10;
  Width = 200;
  Height = 218;

  Function ExpandAll(){
   /* ルートアイテム以下のすべてを開く */
   _ExpandAll_internal(RootItem, $TRUE);
  }
  Function CollapseAll(){
   /* ルートアイテム以下のすべてを閉じる */
   _ExpandAll_internal(RootItem, $FALSE);
  }
  Function _ExpandAll_internal(item, bExpand){
   /* 引数itemを起点にitemと同じ階層のSTreeItemを開閉する */
   var iter = item;
   while(iter != null){
    
    if(iter.Child != null) {　・・・・・（１）
     /* ★ポイント
          子アイテムが存在する場合、再帰的に開閉する */
     _ExpandAll_internal(iter.Child, bExpand);
     /* ルートアイテム以外であれば開閉する */
     if(iter.Parent != null){　・・・・・・（２）
      iter.Expanded = bExpand;　　・・・・・・（３）
     }
    }
    
    /* 次のアイテムを取得 */
    iter = iter.Next;　・・・・・・（４）
   }
  }
 }

 Button button1{
  X = 221;
  Y = 120;
  Width = 100;
  Height = 100;
  Title = "開く";

  Function onTouch(e){
   ^.STree1.ExpandAll();
  }
 }

 STree Stree1{
  X = 12;
  Y = 133;
  Width = 200;
  Height = 218;
 }
 Button button1{
  X = 221;
  Y = 243;
  Width = 100;
  Height = 100;
  Title = "開く";
  Function onTouch(e){
   /* ★ポイント アイテムを全て開く */
   ^.STree1.RootItem.ExpandAll($TRUE);
  }
 }
 Button button2{
  X = 221;
  Y = 136;
  Width = 100;
  Height = 100;
  Title = "閉じる";
  Function onTouch(e){
    /* ★ポイント アイテムを全て閉じる */
   ^.STree1.RootItem.ExpandAll($FALSE);
  }
 }