易语言编写自己创作的.版本 2
.程序集 窗口程序集1
.子程序 _选择图片_被单击
.局部变量 位图文件名, 文本型
通用对话框1.过滤器 ＝ “图像文件|*.bmp;*.jpg;*.gif;*.tif;*.pcx;*.ico;*.cur;*.png|所有文件(*.*)|*.*”
通用对话框1.类型 ＝ 0
通用对话框1.默认文件后缀 ＝ “”
.如果 (单选框1.选中 或 单选框2.选中 或 单选框3.选中)
.如果 (单选框3.选中)
信息框 (“即将打开欲转换为16x16格式的图像文件。”, 64, “打开文件”)
.如果真 (通用对话框1.打开 ())
位图文件名 ＝ 通用对话框1.文件名
位图画板1.底图 ＝ 读入文件 (位图文件名)
.如果真结束
信息框 (“即将打开欲转换为32x32格式的图像文件。”, 64, “打开文件”)
.如果真 (通用对话框1.打开 ())
位图文件名 ＝ 通用对话框1.文件名
位图画板2.底图 ＝ 读入文件 (位图文件名)
.如果真结束
.否则
.如果真 (通用对话框1.打开 ())
位图文件名 ＝ 通用对话框1.文件名
位图画板1.底图 ＝ 读入文件 (位图文件名)
.如果真结束
.如果结束
.否则
信息框 (“请先设置图标格式!”, 48, “警告”)
.如果结束
.子程序 _转换_被单击
.如果 (位图画板1.底图 ＝ { })
信息框 (“你还未载入图像文件！”, 48, “警告”)
.否则
图标画板1.可视 ＝ 假
图标画板2.可视 ＝ 假
标签1.可视 ＝ 假
标签2.可视 ＝ 假
.判断开始 (单选框1.选中)
转换为单16位 ()
图标画板1.可视 ＝ 真
标签1.可视 ＝ 真
.判断 (单选框2.选中)
转换为单32位 ()
图标画板2.可视 ＝ 真
标签2.可视 ＝ 真
.判断 (单选框3.选中)
转换为双图标 ()
图标画板1.可视 ＝ 真
标签1.可视 ＝ 真
图标画板2.可视 ＝ 真
标签2.可视 ＝ 真
.默认
.判断结束
.如果结束
.子程序 转换为单16位
.局部变量 h, 整数型
输出图标 ＝ 取字节集左边 (#图标模板, 894)
h ＝ 载入图片 (位图画板1.底图)
图标画板1.画图片 (h, 0, 0, 16, 16, )
图像数据1 ＝ 取字节集右边 (图标画板1.取图片 (, ), 768)
输出图标 ＝ 字节集替换 (输出图标, 63, 768, 图像数据1)
.子程序 转换为单32位
.局部变量 h, 整数型
输出图标 ＝ 取字节集中间 (#图标模板, 895, 3262)
h ＝ 载入图片 (位图画板1.底图)
图标画板2.画图片 (h, 0, 0, 32, 32, )
图像数据2 ＝ 取字节集右边 (图标画板2.取图片 (, ), 3072)
输出图标 ＝ 字节集替换 (输出图标, 63, 3072, 图像数据2)
.子程序 转换为双图标
.局部变量 h, 整数型
输出图标 ＝ 取字节集右边 (#图标模板, 4150)
h ＝ 载入图片 (位图画板1.底图)
图标画板1.画图片 (h, 0, 0, 16, 16, )
图像数据1 ＝ 取字节集右边 (图标画板1.取图片 (, ), 768)
输出图标 ＝ 字节集替换 (输出图标, 79, 768, 图像数据1)
h ＝ 载入图片 (位图画板2.底图)
图标画板2.画图片 (h, 0, 0, 32, 32, )
图像数据2 ＝ 取字节集右边 (图标画板2.取图片 (, ), 3072)
输出图标 ＝ 字节集替换 (输出图标, 951, 3072, 图像数据2)
.子程序 _退出_被单击
结束 ()
.子程序 _保存_被单击
.局部变量 文件名, 文本型
.如果真 (输出图标 ＝ { })
信息框 (“输出图标为空，不能被保存！”, 48, “警告”)
返回 ()
.如果真结束
通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “图标文件|*.ico”
通用对话框1.文件名 ＝ “”
通用对话框1.默认文件后缀 ＝ “ico”
.如果真 (通用对话框1.打开 ())
文件名 ＝ 通用对话框1.文件名
位图画板1.底图 ＝ { }
位图画板2.底图 ＝ { }
图标画板1.清除 (, , , )
图标画板2.清除 (, , , )
图像数据1 ＝ { }
图像数据2 ＝ { }
标签1.可视 ＝ 假
标签2.可视 ＝ 假
.如果 (文件名 ≠ “”)
写到文件 (文件名, 输出图标)
.否则
信息框 (“文件名称不能为空！”, 48, “警告”)
.如果结束
.如果真结束
输出图标 ＝ { }
.子程序 _清除_被单击
位图画板1.底图 ＝ { }
位图画板2.底图 ＝ { }
图标画板1.底图 ＝ { }
图标画板1.清除 (, , , )
图标画板2.底图 ＝ { }
图标画板2.清除 (, , , )
输出图标 ＝ { }
图像数据1 ＝ { }
图像数据2 ＝ { }
标签1.可视 ＝ 假
标签2.可视 ＝ 假
.子程序 _编辑_被单击
.局部变量 i, 整数型
.局部变量 j, 整数型
.如果真 (输出图标 ＝ { })
信息框 (“还未进行转换！”, 48, “警告”)
返回 ()
.如果真结束
.如果真 (单选框1.选中 或 单选框3.选中)
重定义数组 (颜色数组1, 假, 16, 16)
i ＝ 0
.判断循环首 (i ＜ 16)
j ＝ 0
.判断循环首 (j ＜ 16)
颜色数组1 [i ＋ 1] [j ＋ 1] ＝ 取颜色值 (图像数据1 [i × 48 ＋ j × 3 ＋ 1 ＋ 2], 图像数据1 [i × 48 ＋ j × 3 ＋ 1 ＋ 1], 图像数据1 [i × 48 ＋ j × 3 ＋ 1])
j ＝ j ＋ 1
.判断循环尾 ()
i ＝ i ＋ 1
.判断循环尾 ()
.如果真结束
.如果真 (单选框2.选中 或 单选框3.选中)
重定义数组 (颜色数组2, 假, 32, 32)
i ＝ 0
.判断循环首 (i ＜ 32)
j ＝ 0
.判断循环首 (j ＜ 32)
颜色数组2 [i ＋ 1] [j ＋ 1] ＝ 取颜色值 (图像数据2 [i × 96 ＋ j × 3 ＋ 1 ＋ 2], 图像数据2 [i × 96 ＋ j × 3 ＋ 1 ＋ 1], 图像数据2 [i × 96 ＋ j × 3 ＋ 1])
j ＝ j ＋ 1
.判断循环尾 ()
i ＝ i ＋ 1
.判断循环尾 ()
.如果真结束
载入 (窗口1, , 真)
.子程序 __启动窗口_创建完毕
输出图标 ＝ { }
加载皮肤 (9)
扫一扫
1201
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
