易语言汇编代码LAQ模块

.子程序 取缩进层次, 整数型, 公开, 返回指定项目所处缩进层次，层次值从1开始。如果未找到指定项目，返回 0 。
.参数 项目索引, 整数型, , 0 为项目一，1 为项目二，如此类推。
.参数 是否自动更新数据, 逻辑型, 可空, 可以被省略。选择是否自动进行数据更新。当为真时，每次读取数据时都会对数据进行刷新，可能会因此而减慢速度。默认值为“置自动更新状态”方法所设置的状态。
.局部变量 层次
.局部变量 父项目

.如果真 (是否为空 (是否自动更新数据) 且 集_自动更新 或 是否自动更新数据 ＝ 真)
遍历句柄 ()
.如果真结束
.判断开始 (项目索引 ＋ 1 ＞ 取数组成员数 (句柄组) 或 项目索引 ＜ 0)
返回 (0)
.默认
层次 ＝ 1
父项目 ＝ 发送消息_SendMessageA (窗口组件.取窗口句柄 (), 4362, 3, 句柄组 [项目索引 ＋ 1])
.判断循环首 (父项目 ≠ 0)
父项目 ＝ 发送消息_SendMessageA (窗口组件.取窗口句柄 (), 4362, 3, 父项目)
层次 ＝ 层次 ＋ 1
.判断循环尾 ()
返回 (层次)