精易论坛

标题: 闲来五鸟事写的一个快速建立eil图标组 [打印本页]

作者: 超级菜鸟王 时间: 2015-8-23 08:36
标题: 闲来五鸟事写的一个快速建立eil图标组
由于闲着蛋疼弄了几万个小图标玩
.版本 2
.支持库 commobj
.支持库 iext2

.子程序图标易eil组制作_んォ, 文本型, 公开
.参数图标路径文本, 文本型, , 如果是内部搜索直接提供目录就OK 多个文件写在一个TXT文本提供TXT文本路径就可
.参数选择大小, 整数型, , 如 16 32
.参数是否采用内部搜索, 逻辑型, , 暂时搜索ICO格式
.局部变量图片组, 图片_数据类型
.局部变量快速路径, 快速文本对象
.局部变量 X, 整数型
.局部变量路径数组, 文本型, , "0"
.局部变量保存文件, 文本型
.局部变量内部搜索组, 文本型, , "0"
.局部变量快速文本, 快速文本对

.如果真 (选择大小＝ 16)
图片组.图片数据＝建空图片组 (16, 16)
.如果真结束
.如果真 (选择大小＝ 32)
图片组.图片数据＝建空图片组 (32, 32)
.如果真结束

.如果真 (是否采用内部搜索＝假)
快速路径.从文件读 (图标路径文本)
.如果真结束

.如果真 (是否采用内部搜索＝真)
文件_快速搜索 (图标路径文本, “*.ico”, 内部搜索组)
快速路径.置文本 (内部搜索组)
.如果真结束

图片组.路径组＝快速路径.分割文本 (#换行符, )
.计次循环首 (到整数 (取数组成员数 (图片组.路径组)), X)
提取加入图片 (图片组.图片数据, 图片组.路径组 [X], 0, 假)
.计次循环尾 ()
快速路径.清除文本 ()
保存文件＝取运行目录 () ＋ “\eil图标组_” ＋到文本 (选择大小) ＋ “X” ＋到文本 (选择大小) ＋ “_内有” ＋到文本 (X) ＋ “个图标.eil”
.如果真 (文件是否存在 (保存文件) ＝真)
保存文件＝取运行目录 () ＋ “\” ＋到文本 (取现行时间 ()) ＋ “eil图标组_” ＋到文本 (选择大小) ＋ “X” ＋到文本 (选择大小) ＋ “_内有” ＋到文本 (X) ＋ “个图标.eil”
.如果真结束

写到文件 (保存文件, 图片组.图片数据)
处理事件 ()
返回 (“制作完成”)

------------------------------------------数据自定义类型----------------------------------搜索文件自己弄个目录搜索就OK鸟暂时就捣鼓了加入ICO小图标的嘎嘎
.数据类型图片_数据类型
.成员图片高宽, 整数型
.成员图片大小, 逻辑型
.成员图片数据, 字节集
.成员图标数量, 整数型
.成员图标路径, 文本型
.成员路径组, 文本型, , "1"

作者: 邪修裸 时间: 2015-8-23 11:00
提示: 作者被禁止或删除内容自动屏蔽

作者: wkf 时间: 2015-8-23 13:57
板凳...不爽

作者: 外星人群控 时间: 2015-8-25 00:49
我就是来看看楼主冷吗？

作者: runbaobao 时间: 2016-1-21 19:23
提示: 作者被禁止或删除内容自动屏蔽

作者: 877161054 时间: 2016-12-9 21:17
不对
缺点东西好像

作者: 超级菜鸟王 时间: 2016-12-14 04:11

877161054 发表于 2016-12-9 21:17
不对
缺点东西好像

.....少啥？

作者: 冰玄浪子 时间: 2019-10-24 14:50
内个谁有成品可不可以发个我，我的q3197824024，谢谢了

作者: 44944 时间: 2019-11-5 16:37
板凳...不爽

欢迎光临精易论坛 (https://125.confly.eu.org/)