| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 图片操作 | 类_图像格式转换类 | |
| 全局_图片路径 | 文本型 | |
| 保存路径 | 文本型 | |
| 高 | 整数型 | |
| 宽 | 整数型 | |
| 品质参数 | 整数型 | |
| 倍率 | 小数型 | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 图片数据 | 字节集 | | |
| 新图片数据 | 字节集 | | |
| 图片路径 | 文本型 | | |
| j | 整数型 | | |
| 文件名 | 文本型 | | |
| 高_局部 | 整数型 | | |
| 宽_局部 | 整数型 | | |
如果 (超级列表框1.
取表项数 () ≤ 0
)
信息框 (“未载入数据”, 0,
“提示”,
)返回 ()
读取参数设置 ()如果 (选择框_全部修改.选中 ＝
真) 如果 (单选框_按分辨率修改.选中 ＝
真)日志 (“按分辨率修改”)
计次循环首 (超级列表框1.
取表项数 (), j
)图片路径 ＝ 超级列表框1.
取标题 (j － 1, 1
)文件名 ＝
文件_取文件名 (图片路径,
)日志 (“正在修改......”)日志 (图片路径
)超级列表框1.
置标题 (j － 1, 5,
“正在修改”)图片数据 ＝
读入文件 (图片路径
)新图片数据 ＝
图片_缩放 (图片数据, 宽, 高,
)写到文件 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”, 新图片数据
)如果真 (文件是否存在 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”))
日志 (“修改成功”)超级列表框1.
置标题 (j － 1, 5,
“修改成功”)
计次循环尾 () 如果 (单选框_按比例修改.选中 ＝
真)日志 (“按倍率修改分辨率”)计次循环首 (超级列表框1.
取表项数 (), j
)图片路径 ＝ 超级列表框1.
取标题 (j － 1, 1
)文件名 ＝
文件_取文件名 (图片路径,
)日志 (“正在修改......”)日志 (图片路径
)超级列表框1.
置标题 (j － 1, 5,
“正在修改”)图片数据 ＝
读入文件 (图片路径
)宽_局部 ＝
到整数 (超级列表框1.
取标题 (j － 1, 2
)) × 倍率
高_局部 ＝
到整数 (超级列表框1.
取标题 (j － 1, 3
)) × 倍率
日志 (“宽：” ＋
到文本 (宽_局部
))
日志 (“高：” ＋
到文本 (高_局部
))
新图片数据 ＝
图片_缩放 (图片数据, 宽_局部, 高_局部,
)写到文件 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”, 新图片数据
)如果真 (文件是否存在 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”))
日志 (“修改成功”)超级列表框1.
置标题 (j － 1, 5,
“修改成功”)计次循环尾 ()图片路径 ＝ 超级列表框1.
取标题 (超级列表框1.现行选中项, 1
)图片数据 ＝
读入文件 (图片路径
)文件名 ＝
文件_取文件名 (图片路径,
)日志 (“正在修改......”)日志 (图片路径
)新图片数据 ＝
图片_缩放 (图片数据, 宽, 高,
)写到文件 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”, 新图片数据
)如果真 (文件是否存在 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”))
日志 (“修改成功”)超级列表框1.
置标题 (超级列表框1.现行选中项, 5,
“修改成功”)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 图片路径 | 文本型 | | |
| j | 整数型 | | |
| 文件名 | 文本型 | | |
如果 (超级列表框1.
取表项数 () ≤ 0
)信息框 (“未载入数据”, 0,
“提示”,
)返回 ()读取参数设置 () 计次循环首 (超级列表框1.
取表项数 (), j
)图片路径 ＝ 超级列表框1.
取标题 (j － 1, 1
)日志 (图片路径
)文件名 ＝
文件_取文件名 (图片路径,
)图片操作.
载入图像 (读入文件 (图片路径
))
图片操作.
转换到文件 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”, 2, 品质参数
)日志 (“正在压缩......”)超级列表框1.
置标题 (j － 1, 5,
“正在压缩”)如果真 (文件是否存在 (保存路径 ＋
“\” ＋ 文件名 ＋
“.jpg”))
日志 (“压缩成功”)超级列表框1.
置标题 (j － 1, 5,
“压缩成功”)计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 数据 | 文本型 | | 0 |
| 总次数 | 整数型 | | |
| sy | 整数型 | | |
| i | 整数型 | | |
| 文件数量 | 整数型 | | |
| 图片数据 | 字节集 | | |
| 高 | 文本型 | | |
| 宽 | 文本型 | | |
| 文件大小 | 长整数型 | | |
超级列表框1.
全部删除 ()文件数量 ＝
文件_枚举 (全局_图片路径,
“*.jpg|*.png|*.bmp”, 数据, 真, ,
)总次数 ＝ 文件数量
计次循环首 (总次数, i
)sy ＝ 超级列表框1.
插入表项 (, , , , ,
)超级列表框1.
置标题 (sy, 0,
到文本 (i
))
超级列表框1.
置标题 (sy, 1, 数据
[i
])文件大小 ＝
文件_取大小 (数据
[i
]) ÷ 1024
图片数据 ＝
读入文件 (数据
[i
])宽 ＝
到文本 (图片_取宽度 (图片数据
))
超级列表框1.
置标题 (sy, 2, 宽
)高 ＝
到文本 (图片_取高度 (图片数据
))
超级列表框1.
置标题 (sy, 3, 高
)超级列表框1.
置标题 (sy, 4,
到文本 (文件大小
) ＋
“kb”)计次循环尾 ()拖放对象1.
注册拖放控件 (超级列表框1.
取窗口句柄 ())
全局_图片路径 ＝
文件_取目录 (接收到的文件路径
)如果 (全局_图片路径 ≠
“”)图片_导入数据 ()|
| _超级列表框1_鼠标右键被按下 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
弹出菜单 (功能, ,
)高 ＝
到整数 (编辑框_高.内容
)宽 ＝
到整数 (编辑框_宽.内容
)保存路径 ＝ 编辑框_保存路径.内容
品质参数 ＝
到整数 (编辑框_品质.内容
)倍率 ＝
到小数 (组合框_倍率.内容
)日志 (到文本 (倍率
))
如果 (改变目录 (编辑框_保存路径.内容
))
日志 (“目录存在”)创建目录 (编辑框_保存路径.内容
)日志 (“创建目录：” ＋ 编辑框_保存路径.内容
)线程_启动 (&图片_修改大小, ,
)超级列表框1.
全部删除 ()编辑框_日志.
加入文本 (内容 ＋
#换行符 )调试输出 (内容
)|
| _标签1_鼠标左键被按下 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
路径 ＝
浏览文件夹 (“选择保存文件夹”,
假)如果 (路径 ≠
“”)编辑框_保存路径.内容 ＝ 路径
编辑框_品质.内容 ＝
到文本 (hk条_品质.位置
)线程_启动 (&图片_修改品质, ,
)
