关于TreeView控件设计时的外观,该如何处理

关于TreeView控件设计时的外观
怎样让TreeView在设计时，是全部展开的，而不是缩成一团。

谢谢！

[解决办法]

Delphi(Pascal) code

TreeView1.FullExpand
[解决办法]
Delphi(Pascal) code
if TreeView1.Level < 7 then  //遍历每层的节点让其Expand为True