|
沙发
楼主 |
发表于 2023-10-29 12:10:23
|
只看该作者
为什么发不了图??
本帖最后由 Direpants 于 2023-10-29 12:47 编辑
<火山程序 类型 = "通常" 版本 = 1 />
类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"500, 300\"" 标题 = "我的主窗口" Esc键关闭 = 假>
{
#
方法 我的主窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
变量 找到的数组 <类型 = 文本数组类 "">
变量 数量 <类型 = 整数>
变量 i <类型 = 整数>
变量 SizeAll <类型 = 文本型>
变量 ""
变量 画布X <类型 = 整数>
变量 画布Y <类型 = 整数>
变量 基准X <类型 = 整数>
变量 基准Y <类型 = 整数>
变量 图X <类型 = 整数>
变量 图Y <类型 = 整数>
变量 tx <类型 = 图像处理类>
变量 tx2 <类型 = 图像处理类>
SizeAll = UTF8到文本 (读入文件 (取运行目录 () + "PinTu" + "\\" + "MergeSize.txt"))
画布X = 文本到整数 (文本_取出中间文本 (SizeAll, "X", "Y", , ))
画布Y = 文本到整数 (文本_取出中间文本 (SizeAll, "Y", "A", , ))
基准X = 文本到整数 (文本_取出中间文本 (SizeAll, "A", "B", , ))
基准Y = 文本到整数 (文本_取右边 (SizeAll, "B", 1, ))
调试输出 (画布X, 画布Y, 基准X, 基准Y)
tx.创建自空白图像 (画布X, 画布Y, 8, 图像格式类型.PNG格式)
数量 = 文件_枚举 (取运行目录 () + "PinTu", "*.png", 找到的数组, 真, 假, 假)
如果真 (找到的数组.取成员数 () > 1)
{
循环 (, 找到的数组.取成员数 (), i, )
{
tx2.创建自图像文件 (找到的数组.取成员 (i), 图像格式类型.PNG格式)
图X = 文本到整数 (文本_取出中间文本 (找到的数组.取成员 (i), "X", "Y", , )) + 基准X
图Y = 文本到整数 (文本_取出中间文本 (找到的数组.取成员 (i), "Y", ".", , )) + 基准Y
调试输出 (图X, 图Y)
// tx.混合 (tx2, 图像混合方式.相加, 1900, 2300, 假)
//tx.复制创建 (tx2, 真, 真, 假)
tx.合并混合 (tx2, 图X + 基准X, 图Y + 基准Y)
// tx.合并混合 (tx2, 0, 0)
// 调试输出 (i)
// 调试输出 (找到的数组.取成员 (i))
// tx2.释放图像 ()
}
// tx2.保存到文件 (取运行目录 () + "PinTu" + "\\" + "Mix2.png", gs.PNG格式)
}
tx.保存到文件 (取运行目录 () + "PinTu" + "\\" + "Mix.png", 图像格式类型.PNG格式)
tx.释放图像 ()
// 数量 = 取数组成员数 (找到的数组)
调试输出 (数量)
结束 ()
返回 (0)
}
}
|
|