PNG图档，找某一点颜色，裁剪，然后保存

spc0415

PNG图档，找某一点颜色，裁剪，然后保存
有哪位大佬有源码

古道清风

参考这个修改即可，https://125.confly.eu.org/forum.php?mod ... 0&highlight=PNG

zainex

花了点时间写了一个例子，用到了下面的模块：
https://125.confly.eu.org/forum.php?mod=viewthread&tid=13934290
关键代码：

  

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

变量名	类 型	静态	数组	备 注
位图	GP位图
x	整数型
y	整数型

如果真 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
编辑框3.内容 ＝ “无效坐标”
返回 ()
x ＝ 到整数 (编辑框1.内容)
y ＝ 到整数 (编辑框2.内容)
位图.创建自字节集 (图片)
如果 (x ＜ 0 或 y ＜ 0 或 x ＞ 位图.取宽度 () 或 y ＞ 位图.取高度 ())
编辑框3.内容 ＝ “无效坐标”
编辑框3.内容 ＝ 到文本 (ARGB到RGB (位图.取某点颜色 (x, y)))
位图.销毁 ()

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

变量名	类 型	静态	数组	备 注
位图	GP位图
裁剪位图	GP位图
矩形	矩形F

如果真 (编辑框4.内容 ＝ “” 或 编辑框5.内容 ＝ “” 或 编辑框6.内容 ＝ “” 或 编辑框7.内容 ＝ “”)
信息框 (“裁剪参数错误”, #错误图标, “提示”, )
返回 ()

位图.创建自字节集 (图片)
调试输出 (位图.取宽度 (), 位图.取高度 ())
矩形.左边 ＝ 到整数 (编辑框4.内容)
矩形.顶边 ＝ 到整数 (编辑框5.内容)
矩形.宽度 ＝ 到整数 (编辑框6.内容)
矩形.高度 ＝ 到整数 (编辑框7.内容)
判断 (矩形.左边 ＜ 0 或 矩形.顶边 ＜ 0 或 矩形.左边 ＞ 位图.取宽度 () 或 矩形.顶边 ＞ 位图.取高度 ())
信息框 (“裁剪坐标错误”, #错误图标, “提示”, )
判断 (矩形.宽度 ＜ 1 或 矩形.高度 ＜ 1 或 矩形.左边 ＋ 矩形.宽度 ＞ 位图.取宽度 () 或 矩形.顶边 ＋ 矩形.高度 ＞ 位图.取高度 ())
信息框 (“裁剪大小错误”, #错误图标, “提示”, )
位图.复制部分 (矩形, 位图.取像素格式 (), 裁剪位图)
新图片 ＝ 裁剪位图.保存到字节集 ( #图像格式_PNG )
图片框2.图片 ＝ 新图片

位图.销毁 ()
裁剪位图.销毁 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 位图, GP位图<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> <br /> .如果真 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)<br />     编辑框3.内容 ＝ “无效坐标”<br />     返回 ()<br /> .如果真结束<br /> x ＝ 到整数 (编辑框1.内容)<br /> y ＝ 到整数 (编辑框2.内容)<br /> 位图.创建自字节集 (图片)<br /> .如果 (x ＜ 0 或 y ＜ 0 或 x ＞ 位图.取宽度 () 或 y ＞ 位图.取高度 ())<br />     编辑框3.内容 ＝ “无效坐标”<br /> .否则<br />     编辑框3.内容 ＝ 到文本 (ARGB到RGB (位图.取某点颜色 (x, y)))<br /> .如果结束<br /> 位图.销毁 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 位图, GP位图<br /> .局部变量 裁剪位图, GP位图<br /> .局部变量 矩形, 矩形F<br /> <br /> .如果真 (编辑框4.内容 ＝ “” 或 编辑框5.内容 ＝ “” 或 编辑框6.内容 ＝ “” 或 编辑框7.内容 ＝ “”)<br />     信息框 (“裁剪参数错误”, #错误图标, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 位图.创建自字节集 (图片)<br /> 调试输出 (位图.取宽度 (), 位图.取高度 ())<br /> <br /> 矩形.左边 ＝ 到整数 (编辑框4.内容)<br /> 矩形.顶边 ＝ 到整数 (编辑框5.内容)<br /> 矩形.宽度 ＝ 到整数 (编辑框6.内容)<br /> 矩形.高度 ＝ 到整数 (编辑框7.内容)<br /> <br /> .判断开始 (矩形.左边 ＜ 0 或 矩形.顶边 ＜ 0 或 矩形.左边 ＞ 位图.取宽度 () 或 矩形.顶边 ＞ 位图.取高度 ())<br />     信息框 (“裁剪坐标错误”, #错误图标, “提示”, )<br /> .判断 (矩形.宽度 ＜ 1 或 矩形.高度 ＜ 1 或 矩形.左边 ＋ 矩形.宽度 ＞ 位图.取宽度 () 或 矩形.顶边 ＋ 矩形.高度 ＞ 位图.取高度 ())<br />     信息框 (“裁剪大小错误”, #错误图标, “提示”, )<br /> .默认<br />     位图.复制部分 (矩形, 位图.取像素格式 (), 裁剪位图)<br />     新图片 ＝ 裁剪位图.保存到字节集 (#图像格式_PNG)<br />     图片框2.图片 ＝ 新图片<br /> .判断结束<br /> <br /> 位图.销毁 ()<br /> 裁剪位图.销毁 ()

显示效果：

完整例子：
完整例子.zip (329.83 KB, 下载次数: 0)

前天 13:41 上传

点击文件名下载附件