【原创软件开源】文字生成封面图程序-文字转图片

whilacier

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
conf	文本型
线程许可	线程许可证
pid	整数型
重画计数器	整数型
窗口载入完毕	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
字体名称	字节集		0
i	整数型
mc	文本型
a	文本型
b	整数型

conf ＝ 取运行目录 () ＋ “\封皮生成配置.ini”
窗口载入完毕 ＝ 假
重画计数器 ＝ 0
线程许可 ＝ 线程_创建许可证 ()
pid ＝ 线程_启动 (&线程监控画图, , )
字体_枚举W (字体名称)
计次循环首 (取数组成员数 (字体名称), i)
mc ＝ 编码_Unicode到Ansi (字体名称 [i])
b ＝ 寻找文本 (mc, “HK”, , 真)
a ＝ 文本_取某位置文本 (mc, 1, 假)
' 调试输出 (mc)
如果真 (a ＝ “@” 或 b ＞ 0)
到循环尾 ()
组合框字体.加入项目 (mc, )
计次循环尾 ()
如果真 (文件是否存在 (conf))
颜色选择器1.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “颜色1”, ))
颜色选择器2.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “颜色2”, ))
颜色选择器3.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “颜色3”, ))
颜色选择器4.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “背景色”, ))
组合框字体.选择 (读配置项 (conf, “参数”, “字体”, ))
进度条1.位置 ＝ 到整数 (读配置项 (conf, “参数”, “字大小”, ))
如果真 (进度条1.位置 ＝ 0)
进度条1.位置 ＝ 31
编辑框字体1.内容 ＝ 读配置项 (conf, “参数”, “字1大小”, )
编辑框字体2.内容 ＝ 读配置项 (conf, “参数”, “字2大小”, )
编辑框字体3.内容 ＝ 读配置项 (conf, “参数”, “字3大小”, )
编辑框背景图.内容 ＝ 读配置项 (conf, “参数”, “背景图”, )
如果真 (编辑框背景图.内容 ≠ “”)
置画板背景图 (编辑框背景图.内容)


拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())
拖放对象2.注册拖放控件 (透明标签1.取窗口句柄 ())
窗口载入完毕 ＝ 真

子程序名	返回值类型	公开	备 注
线程监控画图

变量名	类 型	静态	数组	备 注
重画	逻辑型

判断循环首 (真)  ' 1秒重画一次降低cpu占用
线程_进入许可区 (线程许可)
如果真 (重画计数器 ＞ 0 且 窗口载入完毕 ＝ 真)
重画 ＝ 真
重画计数器 ＝ 0
线程_退出许可区 (线程许可)
如果真 (重画)
执行画图 ()
重画 ＝ 假
程序_延时 (1000, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
执行画图

透明标签1.字体.字体大小 ＝ 到整数 (编辑框字体1.内容)
透明标签2.字体.字体大小 ＝ 到整数 (编辑框字体2.内容)
透明标签3.字体.字体大小 ＝ 到整数 (编辑框字体3.内容)
透明标签1.文本颜色 ＝ 颜色选择器1.颜色
透明标签2.文本颜色 ＝ 颜色选择器2.颜色
透明标签3.文本颜色 ＝ 颜色选择器3.颜色
透明标签1.标题 ＝ 编辑框1.内容
透明标签2.标题 ＝ 编辑框2.内容
透明标签3.标题 ＝ 编辑框3.内容
画板1.画板背景色 ＝ 颜色选择器4.颜色
透明标签3.字体.字体名称 ＝ 组合框字体.取项目文本 (组合框字体.现行选中项)
透明标签2.字体.字体名称 ＝ 透明标签3.字体.字体名称
透明标签1.字体.字体名称 ＝ 透明标签3.字体.字体名称

子程序名	返回值类型	公开	备 注
画图请求

线程_进入许可区 (线程许可)
重画计数器 ＝ 重画计数器 ＋ 1
线程_退出许可区 (线程许可)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
fid	整数型
wjm	文本型

' 画图请求 ()
通用对话框1.文件名 ＝ 到文本 (取启动时间 ()) ＋ “.jpg”
图片框1.图片 ＝ 快照 (画板1.取窗口句柄 (), , )
如果真 (通用对话框1.打开 ())
wjm ＝ 通用对话框1.文件名
fid ＝ 打开文件 (wjm, 4, )
写出字节集 (fid, 图片框1.图片)
关闭文件 (fid)

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_编辑框2_内容被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_编辑框3_内容被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_颜色选择器1_颜色被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_颜色选择器2_颜色被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_颜色选择器3_颜色被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_编辑框背景图_内容被改变

置画板背景图 (编辑框背景图.内容)

子程序名	返回值类型	公开	备 注
_颜色选择器4_颜色被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

写配置项 (conf, “参数”, “颜色1”, 到文本 (颜色选择器1.颜色))
写配置项 (conf, “参数”, “颜色2”, 到文本 (颜色选择器2.颜色))
写配置项 (conf, “参数”, “颜色3”, 到文本 (颜色选择器3.颜色))
写配置项 (conf, “参数”, “背景色”, 到文本 (颜色选择器4.颜色))
写配置项 (conf, “参数”, “字体”, 组合框字体.取项目文本 (组合框字体.现行选中项))
写配置项 (conf, “参数”, “字大小”, 到文本 (进度条1.位置))
写配置项 (conf, “参数”, “字1大小”, 编辑框字体1.内容)
写配置项 (conf, “参数”, “字2大小”, 编辑框字体2.内容)
写配置项 (conf, “参数”, “字3大小”, 编辑框字体3.内容)
写配置项 (conf, “参数”, “背景图”, 编辑框背景图.内容)

子程序名	返回值类型	公开	备 注
_组合框字体_列表项被选择

画图请求 ()

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

编辑框1.内容 ＝ 文件_取文件名 (接收到的文件路径, 假)

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文本
参数名	类 型	参考	可空	数组	备 注
接收到的文本	文本型

编辑框1.内容 ＝ 接收到的文本

子程序名	返回值类型	公开	备 注
_拖放对象1_得到超文本
参数名	类 型	参考	可空	数组	备 注
接收到的超文本	文本型

编辑框1.内容 ＝ 接收到的超文本

子程序名	返回值类型	公开	备 注
_拖放对象1_得到URL
参数名	类 型	参考	可空	数组	备 注
接收到的URL	文本型

编辑框1.内容 ＝ 接收到的URL

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

变量名	类 型	静态	数组	备 注
pj2	整数型
pj	双精度小数型
pjz	整数型
pj3	整数型

分组框左.宽度 ＝ 宽度 － 分组框右.宽度
分组框右.左边 ＝ 分组框左.宽度 ＋ 5
分组框左.高度 ＝ 高度 － 20
分组框右.高度 ＝ 高度 － 20
画板1.宽度 ＝ 分组框左.宽度
画板1.高度 ＝ 分组框左.高度 － 10
透明标签3.宽度 ＝ 画板1.宽度
透明标签2.宽度 ＝ 画板1.宽度
透明标签1.宽度 ＝ 画板1.宽度
pj ＝ 画板1.高度 ÷ 4
pj2 ＝ 到整数 (pj × 2)
pj3 ＝ 到整数 (pj × 3)
pjz ＝ 到整数 (pj)
透明标签1.高度 ＝ 画板1.高度
透明标签2.高度 ＝ 画板1.高度
透明标签3.高度 ＝ 画板1.高度
透明标签3.顶边 ＝ pj2
透明标签2.顶边 ＝ pjz
纵向滚动条3.最大位置 ＝ 画板1.高度
纵向滚动条2.最大位置 ＝ 画板1.高度
纵向滚动条1.最大位置 ＝ 画板1.高度
纵向滚动条3.位置 ＝ pj2
纵向滚动条2.位置 ＝ pj2
纵向滚动条1.位置 ＝ pj2

子程序名	返回值类型	公开	备 注
_编辑框1_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

透明标签1.顶边 ＝ 透明标签1.顶边 － 滚动距离
纵向滚动条1.位置 ＝ 纵向滚动条1.位置 ＋ 滚动距离

子程序名	返回值类型	公开	备 注
_编辑框2_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

透明标签2.顶边 ＝ 透明标签2.顶边 － 滚动距离
纵向滚动条2.位置 ＝ 纵向滚动条2.位置 ＋ 滚动距离

子程序名	返回值类型	公开	备 注
_编辑框3_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

透明标签3.顶边 ＝ 透明标签3.顶边 － 滚动距离
纵向滚动条3.位置 ＝ 纵向滚动条3.位置 ＋ 滚动距离

子程序名	返回值类型	公开	备 注
_进度条1_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

进度条1.位置 ＝ 进度条1.位置 ＋ 滚动距离
编辑框字体1.内容 ＝ 到文本 (到整数 (编辑框字体1.内容) ＋ 滚动距离)
编辑框字体2.内容 ＝ 到文本 (到整数 (编辑框字体2.内容) ＋ 滚动距离)
编辑框字体3.内容 ＝ 到文本 (到整数 (编辑框字体3.内容) ＋ 滚动距离)

子程序名	返回值类型	公开	备 注
_编辑框字体2_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

编辑框字体2.内容 ＝ 到文本 (到整数 (编辑框字体2.内容) ＋ 滚动距离)

子程序名	返回值类型	公开	备 注
_编辑框字体1_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

编辑框字体1.内容 ＝ 到文本 (到整数 (编辑框字体1.内容) ＋ 滚动距离)

子程序名	返回值类型	公开	备 注
_编辑框字体3_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

编辑框字体3.内容 ＝ 到文本 (到整数 (编辑框字体3.内容) ＋ 滚动距离)

子程序名	返回值类型	公开	备 注
_编辑框字体1_内容被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_编辑框字体2_内容被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_编辑框字体3_内容被改变

画图请求 ()

子程序名	返回值类型	公开	备 注
_拖放对象2_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

画板1.底图方式 ＝ 2
编辑框背景图.内容 ＝ 接收到的文件路径
置画板背景图 (接收到的文件路径)

子程序名	返回值类型	公开	备 注
置画板背景图
参数名	类 型	参考	可空	数组	备 注
路径	文本型

如果 (路径 ＝ “”)
画板1.底图 ＝ 到字节集 (“”)  ' ’ 取空白字节集 ()
画板1.底图 ＝ 读入文件 (路径)

i支持库列表	支持库注释
edroptarget	拖放支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 edroptarget<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 conf, 文本型<br /> .程序集变量 线程许可, 线程许可证<br /> .程序集变量 pid, 整数型<br /> .程序集变量 重画计数器, 整数型<br /> .程序集变量 窗口载入完毕, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 字体名称, 字节集, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 mc, 文本型<br /> .局部变量 a, 文本型<br /> .局部变量 b, 整数型<br /> <br /> conf ＝ 取运行目录 () ＋ “\封皮生成配置.ini”<br /> 窗口载入完毕 ＝ 假<br /> 重画计数器 ＝ 0<br /> 线程许可 ＝ 线程_创建许可证 ()<br /> pid ＝ 线程_启动 (&线程监控画图, , )<br /> <br /> 字体_枚举W (字体名称)<br /> .计次循环首 (取数组成员数 (字体名称), i)<br />     mc ＝ 编码_Unicode到Ansi (字体名称 <i>)<br />     b ＝ 寻找文本 (mc, “HK”, , 真)<br />     a ＝ 文本_取某位置文本 (mc, 1, 假)<br />     ' 调试输出 (mc)<br />     .如果真 (a ＝ “@” 或 b ＞ 0)<br />         到循环尾 ()<br />     .如果真结束<br />     组合框字体.加入项目 (mc, )<br /> .计次循环尾 ()<br /> <br /> .如果真 (文件是否存在 (conf))<br />     颜色选择器1.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “颜色1”, ))<br />     颜色选择器2.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “颜色2”, ))<br />     颜色选择器3.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “颜色3”, ))<br />     颜色选择器4.颜色 ＝ 到整数 (读配置项 (conf, “参数”, “背景色”, ))<br />     组合框字体.选择 (读配置项 (conf, “参数”, “字体”, ))<br />     进度条1.位置 ＝ 到整数 (读配置项 (conf, “参数”, “字大小”, ))<br />     .如果真 (进度条1.位置 ＝ 0)<br />         进度条1.位置 ＝ 31<br />     .如果真结束<br />     编辑框字体1.内容 ＝ 读配置项 (conf, “参数”, “字1大小”, )<br />     编辑框字体2.内容 ＝ 读配置项 (conf, “参数”, “字2大小”, )<br />     编辑框字体3.内容 ＝ 读配置项 (conf, “参数”, “字3大小”, )<br />     编辑框背景图.内容 ＝ 读配置项 (conf, “参数”, “背景图”, )<br />     .如果真 (编辑框背景图.内容 ≠ “”)<br />         置画板背景图 (编辑框背景图.内容)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> 拖放对象1.注册拖放控件 (编辑框1.取窗口句柄 ())<br /> 拖放对象2.注册拖放控件 (透明标签1.取窗口句柄 ())<br /> 窗口载入完毕 ＝ 真<br /> <br /> <br /> .子程序 线程监控画图<br /> .局部变量 重画, 逻辑型<br /> <br /> .判断循环首 (真)  ' 1秒重画一次降低cpu占用<br />     线程_进入许可区 (线程许可)<br />     .如果真 (重画计数器 ＞ 0 且 窗口载入完毕 ＝ 真)<br />         重画 ＝ 真<br />         重画计数器 ＝ 0<br />     .如果真结束<br />     线程_退出许可区 (线程许可)<br />     .如果真 (重画)<br />         执行画图 ()<br />         重画 ＝ 假<br />     .如果真结束<br />     程序_延时 (1000, )<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 执行画图<br /> <br /> 透明标签1.字体.字体大小 ＝ 到整数 (编辑框字体1.内容)<br /> 透明标签2.字体.字体大小 ＝ 到整数 (编辑框字体2.内容)<br /> 透明标签3.字体.字体大小 ＝ 到整数 (编辑框字体3.内容)<br /> <br /> 透明标签1.文本颜色 ＝ 颜色选择器1.颜色<br /> 透明标签2.文本颜色 ＝ 颜色选择器2.颜色<br /> 透明标签3.文本颜色 ＝ 颜色选择器3.颜色<br /> <br /> 透明标签1.标题 ＝ 编辑框1.内容<br /> 透明标签2.标题 ＝ 编辑框2.内容<br /> 透明标签3.标题 ＝ 编辑框3.内容<br /> <br /> 画板1.画板背景色 ＝ 颜色选择器4.颜色<br /> <br /> 透明标签3.字体.字体名称 ＝ 组合框字体.取项目文本 (组合框字体.现行选中项)<br /> 透明标签2.字体.字体名称 ＝ 透明标签3.字体.字体名称<br /> 透明标签1.字体.字体名称 ＝ 透明标签3.字体.字体名称<br /> <br /> <br /> .子程序 画图请求<br /> <br /> 线程_进入许可区 (线程许可)<br /> 重画计数器 ＝ 重画计数器 ＋ 1<br /> 线程_退出许可区 (线程许可)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 fid, 整数型<br /> .局部变量 wjm, 文本型<br /> <br /> ' 画图请求 ()<br /> 通用对话框1.文件名 ＝ 到文本 (取启动时间 ()) ＋ “.jpg”<br /> 图片框1.图片 ＝ 快照 (画板1.取窗口句柄 (), , )<br /> .如果真 (通用对话框1.打开 ())<br />     wjm ＝ 通用对话框1.文件名<br />     fid ＝ 打开文件 (wjm, 4, )<br />     写出字节集 (fid, 图片框1.图片)<br />     关闭文件 (fid)<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> 画图请求 ()<br /> <br /> <br /> .子程序 _编辑框2_内容被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _编辑框3_内容被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _颜色选择器1_颜色被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _颜色选择器2_颜色被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _颜色选择器3_颜色被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _编辑框背景图_内容被改变<br /> <br /> 置画板背景图 (编辑框背景图.内容)<br /> <br /> <br /> .子程序 _颜色选择器4_颜色被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 写配置项 (conf, “参数”, “颜色1”, 到文本 (颜色选择器1.颜色))<br /> 写配置项 (conf, “参数”, “颜色2”, 到文本 (颜色选择器2.颜色))<br /> 写配置项 (conf, “参数”, “颜色3”, 到文本 (颜色选择器3.颜色))<br /> 写配置项 (conf, “参数”, “背景色”, 到文本 (颜色选择器4.颜色))<br /> 写配置项 (conf, “参数”, “字体”, 组合框字体.取项目文本 (组合框字体.现行选中项))<br /> 写配置项 (conf, “参数”, “字大小”, 到文本 (进度条1.位置))<br /> 写配置项 (conf, “参数”, “字1大小”, 编辑框字体1.内容)<br /> 写配置项 (conf, “参数”, “字2大小”, 编辑框字体2.内容)<br /> 写配置项 (conf, “参数”, “字3大小”, 编辑框字体3.内容)<br /> 写配置项 (conf, “参数”, “背景图”, 编辑框背景图.内容)<br /> <br /> <br /> .子程序 _组合框字体_列表项被选择<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 编辑框1.内容 ＝ 文件_取文件名 (接收到的文件路径, 假)<br /> <br /> <br /> .子程序 _拖放对象1_得到文本<br /> .参数 接收到的文本, 文本型<br /> <br /> 编辑框1.内容 ＝ 接收到的文本<br /> <br /> .子程序 _拖放对象1_得到超文本<br /> .参数 接收到的超文本, 文本型<br /> <br /> 编辑框1.内容 ＝ 接收到的超文本<br /> <br /> .子程序 _拖放对象1_得到URL<br /> .参数 接收到的URL, 文本型<br /> <br /> 编辑框1.内容 ＝ 接收到的URL<br /> <br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> .局部变量 pj2, 整数型<br /> .局部变量 pj, 双精度小数型<br /> .局部变量 pjz, 整数型<br /> .局部变量 pj3, 整数型<br /> <br /> 分组框左.宽度 ＝ 宽度 － 分组框右.宽度<br /> 分组框右.左边 ＝ 分组框左.宽度 ＋ 5<br /> 分组框左.高度 ＝ 高度 － 20<br /> 分组框右.高度 ＝ 高度 － 20<br /> 画板1.宽度 ＝ 分组框左.宽度<br /> 画板1.高度 ＝ 分组框左.高度 － 10<br /> 透明标签3.宽度 ＝ 画板1.宽度<br /> 透明标签2.宽度 ＝ 画板1.宽度<br /> 透明标签1.宽度 ＝ 画板1.宽度<br /> pj ＝ 画板1.高度 ÷ 4<br /> pj2 ＝ 到整数 (pj × 2)<br /> pj3 ＝ 到整数 (pj × 3)<br /> pjz ＝ 到整数 (pj)<br /> 透明标签1.高度 ＝ 画板1.高度<br /> 透明标签2.高度 ＝ 画板1.高度<br /> 透明标签3.高度 ＝ 画板1.高度<br /> 透明标签3.顶边 ＝ pj2<br /> 透明标签2.顶边 ＝ pjz<br /> 纵向滚动条3.最大位置 ＝ 画板1.高度<br /> 纵向滚动条2.最大位置 ＝ 画板1.高度<br /> 纵向滚动条1.最大位置 ＝ 画板1.高度<br /> 纵向滚动条3.位置 ＝ pj2<br /> 纵向滚动条2.位置 ＝ pj2<br /> 纵向滚动条1.位置 ＝ pj2<br /> <br /> .子程序 _编辑框1_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 透明标签1.顶边 ＝ 透明标签1.顶边 － 滚动距离<br /> 纵向滚动条1.位置 ＝ 纵向滚动条1.位置 ＋ 滚动距离<br /> <br /> <br /> .子程序 _编辑框2_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 透明标签2.顶边 ＝ 透明标签2.顶边 － 滚动距离<br /> 纵向滚动条2.位置 ＝ 纵向滚动条2.位置 ＋ 滚动距离<br /> <br /> <br /> .子程序 _编辑框3_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 透明标签3.顶边 ＝ 透明标签3.顶边 － 滚动距离<br /> 纵向滚动条3.位置 ＝ 纵向滚动条3.位置 ＋ 滚动距离<br /> <br /> .子程序 _进度条1_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 进度条1.位置 ＝ 进度条1.位置 ＋ 滚动距离<br /> 编辑框字体1.内容 ＝ 到文本 (到整数 (编辑框字体1.内容) ＋ 滚动距离)<br /> 编辑框字体2.内容 ＝ 到文本 (到整数 (编辑框字体2.内容) ＋ 滚动距离)<br /> 编辑框字体3.内容 ＝ 到文本 (到整数 (编辑框字体3.内容) ＋ 滚动距离)<br /> <br /> .子程序 _编辑框字体2_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 编辑框字体2.内容 ＝ 到文本 (到整数 (编辑框字体2.内容) ＋ 滚动距离)<br /> <br /> .子程序 _编辑框字体1_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 编辑框字体1.内容 ＝ 到文本 (到整数 (编辑框字体1.内容) ＋ 滚动距离)<br /> <br /> .子程序 _编辑框字体3_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 编辑框字体3.内容 ＝ 到文本 (到整数 (编辑框字体3.内容) ＋ 滚动距离)<br /> <br /> .子程序 _编辑框字体1_内容被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _编辑框字体2_内容被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _编辑框字体3_内容被改变<br /> <br /> 画图请求 ()<br /> <br /> .子程序 _拖放对象2_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 画板1.底图方式 ＝ 2<br /> 编辑框背景图.内容 ＝ 接收到的文件路径<br /> 置画板背景图 (接收到的文件路径)<br /> <br /> <br /> .子程序 置画板背景图<br /> .参数 路径, 文本型<br /> <br /> .如果 (路径 ＝ “”)<br />     画板1.底图 ＝ 到字节集 (“”)  ' ’ 取空白字节集 ()<br /> .否则<br />     画板1.底图 ＝ 读入文件 (路径)<br /> .如果结束

界面说明

纯色标题型

操作界面带背景图

生成图片效果

支持二维码生成

[回复可见][隐藏]
封皮图制作.e (975.92 KB, 下载次数: 30)

4 天前 上传

点击文件名下载附件
回复可见

wg198300

画板 文字会有锯齿，且不支持Unicode表情

陆苏

厉害！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

weihua2018

还可以加二维码确实是个好东西

一指温柔

感谢分享，很给力！~

葵花宝典

牛逼大撒大撒啊大大大阿斯顿阿达阿达阿斯顿阿达啊a'a'saaasa

查过

感谢楼主分享！

豆豆灰常开心

感谢分享，很给力！~

查过

感谢发布原创作品，精易因你更精彩！6666666666666

豆豆灰常开心

感谢分享，很给力！~