易语言IED环境之鼠标改变控件大小位置

将所有方法的事件全部转移支“左上”，方便统一处理，将标签2的事件转移到标签1,方便统一处理。

.局部变量 标签中心, 整数型
.局部变量 方块中心, 整数型, , , 使用此变量主要是方法更清楚的了解计算方法，在实际使用中可以不用变量

.如果真 (是否已创建 (当前标签) ＝ 假) ' 没有事件组件，直接返回
返回 ()
.如果真结束
.如果真 (到位) ' 已经调整过位置了，直接返回
返回 ()
.如果真结束
左上.移动 (当前标签.左边 － 左上.宽度, 当前标签.顶边 － 左上.高度, , )
左上.可视 ＝ 真
左上.调整层次 ()
.判断开始 (当前标签.高度 ≥ 10) ' 高度小于10则不显示“左中”和“右中”方块
标签中心 ＝ 当前标签.高度 ÷ 2
方块中心 ＝ 左中.高度 ÷ 2
左中.移动 (当前标签.左边 － 左中.宽度, 当前标签.顶边 ＋ 标签中心 － 方块中心, , )
左中.可视 ＝ 真
左中.调整层次 ()
右中.移动 (当前标签.左边 ＋ 当前标签.宽度, 左中.顶边, , )
右中.可视 ＝ 真
右中.调整层次 ()
.默认
连续赋值 (假, 左中.可视, 右中.可视)
.判断结束
左下.移动 (左上.左边, 当前标签.顶边 ＋ 当前标签.高度, , )
左下.可视 ＝ 真
左下.调整层次 ()
.判断开始 (当前标签.宽度 ≥ 10) ' 宽度小于10则不显示“中中”和“中下”方块
标签中心 ＝ 当前标签.宽度 ÷ 2
方块中心 ＝ 中中.宽度 ÷ 2
中中.移动 (当前标签.左边 ＋ 标签中心 － 方块中心, 当前标签.顶边 － 中中.高度, , )
中中.可视 ＝ 真
中中.调整层次 ()
中下.移动 (中中.左边, 当前标签.顶边 ＋ 当前标签.高度, , )
中下.可视 ＝ 真
中下.调整层次 ()
.默认
连续赋值 (假, 中中.可视, 中下.可视)