图片批量添加水印和缩放软件

图片批量添加水印以及缩放软件开源。

.如果真 (信息框 (“是否确定要开始图片缩放？”, #询问图标 ＋ #是否钮, “缩放确认”, _启动窗口) ＝ #是钮)
图片数量 ＝ 超级列表框1.取表项数 ()
_启动窗口.禁止 ＝ 真
.计次循环首 (图片数量, 循环变量)
处理事件 ()
超级列表框1.现行选中项 ＝ 循环变量 － 1
超级列表框1.保证显示 (循环变量 － 1)
' ------------------------------------------------------------------------------
文件目录 ＝ 超级列表框1.取标题 (循环变量 － 1, 1)
文件名称 ＝ 超级列表框1.取标题 (循环变量 － 1, 2)
图片宽度 ＝ 到整数 (超级列表框1.取标题 (循环变量 － 1, 3))
图片高度 ＝ 到整数 (超级列表框1.取标题 (循环变量 － 1, 4))
文件后缀 ＝ 到大写 (取文本右边 (文件名称, 4))
.如果真 (文件后缀 ＝ “.BMP”)
文件类型 ＝ 1
.如果真结束
.如果真 (文件后缀 ＝ “.JPG”)
文件类型 ＝ 2
.如果真结束
.如果真 (文件后缀 ＝ “.PNG”)
文件类型 ＝ 3
.如果真结束
' ------------------------------------------------------------------------------
.如果真 (单选框2.选中 ＝ 真)
缩放倍率 ＝ 缩放宽度 ÷ 图片宽度
缩放高度 ＝ 图片高度 × 缩放倍率
.如果真结束
' ------------------------------------------------------------------------------
.如果真 (单选框3.选中 ＝ 真)
缩放倍率 ＝ 缩放高度 ÷ 图片高度
缩放宽度 ＝ 图片宽度 × 缩放倍率
.如果真结束
' ------------------------------------------------------------------------------
缩放结果 ＝ 图像缩放 (读入文件 (文件目录 ＋ 文件名称), 缩放宽度, 缩放高度)
.如果真 (选择框2.选中 ＝ 真)
.判断开始 (水印内容 ≠ “”)
.如果真 (寻找文本 (文件目录 ＋ 文件名称, 水印内容, , 假) ≠ -1)
缩放结果 ＝ 图像水印 (缩放结果, 水印图片, 水印左边, 水印顶边, 文件类型)
.如果真结束

.默认
缩放结果 ＝ 图像水印 (缩放结果, 水印图片, 水印左边, 水印顶边, 文件类型)