Ex_DirectUI自绘界面编辑器

易语言 2020-08-06 19:25:17

Ex_DirectUI自绘界面编辑器

只是简单的写出了组件定位拖放的问题!组件特有的参数属性没有提供直接修改。

肯定有很多BUG,慢慢修复!

.计次循环首 (组合框_组件列表.取项目数 () - 1, i)
代码 = 代码 + “.程序集变量 ” + 组合框_组件列表.取项目文本 (i + 1) + “, ” + 组件_取类型文本 (组件_取成员值 (组合框_组件列表.取项目数值 (i + 1), #组件成员_组件类型)) + #换行符
.计次循环尾 ()
.如果 (是否黑月)
代码 = 代码 + “.程序集变量 g_hwnd, 整数型” + #换行符 + #换行符
代码 = 代码 + “.子程序 _启动子程序, 整数型, , 本创建代码由Ex_DirectUI界面编辑器生成[宋雨轩]” + #换行符
GetWindowRect (组合框_组件列表.取项目数值 (1), rect)
代码 = 代码 + “g_hwnd = 窗口_创建 (0, ” + 窗口_取标题 (组合框_组件列表.取项目数值 (1)) + “, , , ” + 到文本 (rect.right - rect.left) + “, ” + 到文本 (rect.bottom - rect.top) + “, , , , )” + #换行符
.否则
代码 = 代码 + #换行符 + “.子程序 __启动窗口_创建完毕, ,, 本创建代码由Ex_DirectUI界面编辑器生成[宋雨轩]” + #换行符
代码 = 代码 + “.局部变量 g_hwnd, 整数型” + #换行符
代码 = 代码 + “g_hwnd=取窗口句柄()” + #换行符
.如果结束
代码 = 代码 + “skn.挂接皮肤(g_hwnd, ,#白色)” + #换行符
.计次循环首 (组合框_组件列表.取项目数 () - 1, i)
rectF = 指针到矩形F (组件_取成员值 (组合框_组件列表.取项目数值 (i + 1), #组件成员_矩形))
代码 = 代码 + 组合框_组件列表.取项目文本 (i + 1) + “.创建(g_hwnd,” + 到文本 (rectF.left) + “,” + 到文本 (rectF.top) + “,” + 到文本 (rectF.Width) + “,” + 到文本 (rectF.Height) + “)” + #换行符
.计次循环尾 ()