UI可视化设计易语言源码

系统结构:置表格数据,控件消息,聚集焦点,修改大小,结束编辑,刷新,消息,ContrlCallBackHoverDemo,imagecall,初始化窗口程序,销毁,整数转换逻辑,逻辑转换整数,文本转换逻辑,编辑框类型转整数,编辑框整数转文本,链接条文本转整数,链接条整数转文本,调用窗口回调_,置窗口信息_,屏幕到客户区_,置父窗口_,客户区到屏幕_,取窗口矩形_,屏幕到客户区_矩形_,

======image
           |  |
           |  |------ _image_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 置表格数据
           |  |
           |  |------ _画板1_绘画
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _超级列表框1_左键单击表项
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _复制图片句柄_被选择
           |  |
           |  |------ _复制图片位置_被选择
           |  |
           |  |------ _复制所有_被选择
           |  |
           |  |------ _删除此图片_被选择
           |  |
           |  |------ _image_可否被关闭
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |------ _选择框3_被单击
           |  |
           |  |------ _选择框4_被单击
           |  |
           |  |------ _按钮7_被单击
           |  |
           |  |------ _image_将被销毁
           |  |
           |  |------ _按钮8_被单击
           |  |
           |  |------ _按钮9_被单击
           |  |
           |  |------ _修改备注_被选择
           |  |
           |  |
======窗口
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 控件消息
           |  |
           |  |------ _窗口1_尺寸被改变
           |  |
           |  |------ _窗口1_鼠标左键被放开
           |  |
           |  |------ _窗口1_可否被关闭
           |  |
           |  |------ _窗口1_鼠标左键被按下
           |  |
           |  |------ _窗口1_鼠标位置被移动
           |  |
           |  |------ _右下标签_鼠标左键被按下
           |  |
           |  |------ _右下标签_鼠标左键被放开
           |  |
           |  |------ _左上标签_鼠标左键被按下
           |  |
           |  |------ _左上标签_鼠标左键被放开
           |  |
           |  |------ _左下标签_鼠标左键被按下
           |  |
           |  |------ _左下标签_鼠标左键被放开
           |  |
           |  |------ _右上标签_鼠标左键被按下
           |  |
           |  |------ _右上标签_鼠标左键被放开
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _窗口1_位置被改变
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _窗口1_按下某键
           |  |
           |  |
======功能
           |  |
           |  |------ 聚集焦点
           |  |
           |  |------ 修改大小
           |  |
           |  |------ 结束编辑
           |  |
           |  |------ 刷新
           |  |
           |  |------ 消息
           |  |
           |  |------ ContrlCallBackHoverDemo
           |  |
           |  |------ imagecall
           |  |
           |  |------ 初始化窗口程序
           |  |
           |  |------ 销毁
           |  |
           |  |
======转换
           |  |
           |  |------ 整数转换逻辑
           |  |
           |  |------ 逻辑转换整数
           |  |
           |  |------ 文本转换逻辑
           |  |
           |  |------ 编辑框类型转整数
           |  |
           |  |------ 编辑框整数转文本
           |  |
           |  |------ 链接条文本转整数
           |  |
           |  |------ 链接条整数转文本
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   调用窗口回调_
           |  |
           |  |---[dll]------   置窗口信息_
           |  |
           |  |---[dll]------   屏幕到客户区_
           |  |
           |  |---[dll]------   置父窗口_
           |  |
           |  |---[dll]------   客户区到屏幕_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   屏幕到客户区_矩形_

调用的DLL命令:

.DLL命令 调用窗口回调_, 整数型, , "CallWindowProcA"
    .参数 程序指针, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 置窗口信息_, 整数型, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 整数型

.DLL命令 屏幕到客户区_, 逻辑型, "user32.dll", "ScreenToClient"
    .参数 hwnd, 整数型, , 此窗口的用户空间将被用来转换
    .参数 point, 点_, 传址, 屏幕坐标

.DLL命令 置父窗口_, 整数型, , "SetParent"
    .参数 子窗口句柄, 整数型
    .参数 新父窗口句柄, 整数型

.DLL命令 客户区到屏幕_, 整数型, , "ClientToScreen"
    .参数 hwnd, 整数型
    .参数 lpPoint, 点_

.DLL命令 取窗口矩形_, , , "GetWindowRect"
    .参数 句柄, 整数型
    .参数 矩形, 矩形_

.DLL命令 屏幕到客户区_矩形_, 逻辑型, "user32.dll", "ScreenToClient"
    .参数 hwnd, 整数型, , 此窗口的用户空间将被用来转换
    .参数 rect, 矩形_, 传址, 屏幕矩形