FullExpand

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TTreeView FullExpand";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажимайте кнопки "Развернуть" и "Свернуть"';

// TreeView
trv=new TTreeView(frm);
trv.BorderStyle=bsSingle;
trv.Left=trv.Top=10;
trv.Width=150;
trv.Height=stb.Top-trv.Top*2;

// Заполнение дерева
for (i=1;i<=3;i++) {
  tn1=new TTreeNode(trv);
  tn1.Text="Узел "+i;
  for (j=1;j<=i;j++) {
    tn2=new TTreeNode(tn1);
    tn2.Text="Узел "+i+"-"+j;
  }
}

// Кнопка Развернуть
bt1=new TButton(frm);
bt1.strTag="EXP";
bt1.Caption="Развернуть";
bt1.Width=bt1.TextWidth(bt1.Caption)+20;
bt1.Left=(trv.Left+trv.Width+frm.ClientWidth-bt1.Width)/2;
bt1.Top =(frm.ClientHeight-bt1.Height*3)/2;
bt1.OnClick=btn_Click;

// Кнопка Свернуть
bt2=new TButton(frm);
bt2.strTag="CLP";
bt2.Caption="Свернуть";
bt2.Width=bt1.Width;
bt2.Left=bt1.Left;
bt2.Top =bt1.Top+bt1.Height*1.5;
bt2.OnClick=btn_Click;

trv.SetFocus();
frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  switch (btn.strTag) {
    case "CLP": trv.FullCollapse(); break;
    case "EXP": trv.FullExpand();
  }
  trv.SetFocus();
}