易语言放大镜源码

【实例简介】界面简洁，实用程度高，可自由调整放大倍数
【软件截图】
【核心代码】.
窗口1.移动 (x － 长度 ÷ 2, y － 长度 ÷ 2, 长度, 长度)
.判断开始 (放大镜位置 ＝ 1)  ' 上
    _启动窗口.移动 (x － _启动窗口.宽度 ÷ 2 ＋ 20, y － 220, , )
.判断 (放大镜位置 ＝ 2)  ' 下
    _启动窗口.移动 (x － _启动窗口.宽度 ÷ 2 ＋ 20, y ＋ 60, , )
.判断 (放大镜位置 ＝ 3)  ' 左
    _启动窗口.移动 (x － 220, y － _启动窗口.高度 ÷ 2 ＋ 20, , )
.判断 (放大镜位置 ＝ 4)  ' 右
    _启动窗口.移动 (x ＋ 60, y － _启动窗口.高度 ÷ 2 ＋ 20, , )
.默认
    _启动窗口.移动 (x, y, , )