图片缩放问题

旧梦博客

  

子程序名	返回值类型	公开	备 注
_图片框2_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

如果 (滚动距离 ＞ 0)
图片框2.左边 ＝ 图片框2.左边 － 5
图片框2.顶边 ＝ 图片框2.顶边 － 5
图片框2.宽度 ＝ 图片框2.宽度 ＋ 10
图片框2.高度 ＝ 图片框2.宽度 ＋ 10

图片框2.左边 ＝ 图片框2.左边 ＋ 5
图片框2.顶边 ＝ 图片框2.顶边 ＋ 5
图片框2.宽度 ＝ 图片框2.宽度 － 10
图片框2.高度 ＝ 图片框2.宽度 － 10

子程序名	返回值类型	公开	备 注
_图片框1_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

如果 (滚动距离 ＞ 0)
图片框1.左边 ＝ 图片框1.左边 － 5
图片框1.顶边 ＝ 图片框1.顶边 － 5
图片框1.宽度 ＝ 图片框1.宽度 ＋ 10
图片框1.高度 ＝ 图片框1.宽度 ＋ 10

图片框1.左边 ＝ 图片框1.左边 ＋ 5
图片框1.顶边 ＝ 图片框1.顶边 ＋ 5
图片框1.宽度 ＝ 图片框1.宽度 － 10
图片框1.高度 ＝ 图片框1.宽度 － 10

.版本 2<br /> <br /> .子程序 _图片框2_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (滚动距离 ＞ 0)<br />     图片框2.左边 ＝ 图片框2.左边 － 5<br />     图片框2.顶边 ＝ 图片框2.顶边 － 5<br />     图片框2.宽度 ＝ 图片框2.宽度 ＋ 10<br />     图片框2.高度 ＝ 图片框2.宽度 ＋ 10<br /> <br /> .否则<br />     图片框2.左边 ＝ 图片框2.左边 ＋ 5<br />     图片框2.顶边 ＝ 图片框2.顶边 ＋ 5<br />     图片框2.宽度 ＝ 图片框2.宽度 － 10<br />     图片框2.高度 ＝ 图片框2.宽度 － 10<br /> .如果结束<br /> <br /> <br /> .子程序 _图片框1_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (滚动距离 ＞ 0)<br />     图片框1.左边 ＝ 图片框1.左边 － 5<br />     图片框1.顶边 ＝ 图片框1.顶边 － 5<br />     图片框1.宽度 ＝ 图片框1.宽度 ＋ 10<br />     图片框1.高度 ＝ 图片框1.宽度 ＋ 10<br /> <br /> .否则<br />     图片框1.左边 ＝ 图片框1.左边 ＋ 5<br />     图片框1.顶边 ＝ 图片框1.顶边 ＋ 5<br />     图片框1.宽度 ＝ 图片框1.宽度 － 10<br />     图片框1.高度 ＝ 图片框1.宽度 － 10<br /> .如果结束

目前这样的写法，只是图片框大小变动，我要的是图片框不变动，内部图片大小缩放，如何实现，请求大佬帮忙，图片框属性是缩放图片

frankiy

https://bbs.ijingyi.com/forum.ph ... 7%E7%BC%A9%E6%94%BE

用这个模块。
1，把图片加载在内存里
2，做一个模拟图片框，底层图片框，上层做遮蔽。
3，缩放后调整图片框的大小，并保持位置不变。

曦月

图片框属性是缩放图片，意思是，不管你的图片分辨率如何，在图片框中显示的时候，自动铺满整个图片框，并不是你想的，图片框不变，图片放大缩小显示

补充内容 (2025-9-10 14:51):
可以尝试这样有没有效果。 图片框属性 图片居中，然后用 GDIplus 缩放图片，再在图片框中显示

旧梦博客

frankiy 发表于 2025-9-10 14:45
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14328321&highlight=%E5%9B%BE%E7%89%87%E7%BC%A9% ...

好像不行 我这个是两个图片框大小不变，只是里面图片变化

洋滨

.版本 2  图片框1.图片 ＝ 图片_缩放_透明 (图片框1.图片, 图片_取宽度 (图片框1.图片) × 0.9, 图片_取高度 (图片框1.图片) × 0.9)

931691974

图片框的大小保持不变，通过鼠标滚轮来缩放内部图片的大小.e (150.79 KB, 下载次数: 7)

2025-9-10 15:16 上传

点击文件名下载附件


补充内容 (2025-9-10 15:18):
调用了精易模块

熬夜

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
倍数	小数型

子程序名	返回值类型	公开	备 注
子程序1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

倍数 ＝ 1

子程序名	返回值类型	公开	备 注
_图片框1_滚轮被滚动	逻辑型
参数名	类 型	参考	可空	数组	备 注
滚动距离	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
原宽吖	整数型
原高吖	整数型

原宽吖 ＝ 图片_取宽度 ( #图片21111 )
原高吖 ＝ 图片_取高度 ( #图片21111 )
如果 (滚动距离 ＞ 0)
' 输出调试 (滚动距离)
倍数 ＝ 倍数 ＋ 0.1
输出调试 (倍数)


输出调试 (滚动距离)
倍数 ＝ 倍数 － 0.1
' 输出调试 (倍数)

判断 (倍数 ≥ 1)
图片框1.图片 ＝ 图片_缩放 ( #图片21111, 原宽吖 × 倍数, 原高吖 × 倍数, 真)
输出调试 (原宽吖 × 倍数)
判断 (0.1 ＜ 倍数 且 倍数 ≤ 1)
图片框1.图片 ＝ 图片_缩放 ( #图片21111, 原宽吖 × 倍数, 原高吖 × 倍数, 真)
判断 (倍数 ≤ 0.1)
倍数 ＝ 0.1
图片框1.图片 ＝ 图片_缩放 ( #图片21111, 原宽吖 × 倍数, 原高吖 × 倍数, 真)

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 e2ee<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 倍数, 小数型<br /> <br /> .子程序 子程序1<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 倍数 ＝ 1<br /> <br /> .子程序 _图片框1_滚轮被滚动, 逻辑型<br /> .参数 滚动距离, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 原宽吖, 整数型<br /> .局部变量 原高吖, 整数型<br /> <br /> <br /> 原宽吖 ＝ 图片_取宽度 (#图片21111)<br /> 原高吖 ＝ 图片_取高度 (#图片21111)<br /> <br /> .如果 (滚动距离 ＞ 0)<br />     ' 输出调试 (滚动距离)<br /> <br />     倍数 ＝ 倍数 ＋ 0.1<br />     输出调试 (倍数)<br /> .否则<br /> <br />     输出调试 (滚动距离)<br />     倍数 ＝ 倍数 － 0.1<br /> <br />     ' 输出调试 (倍数)<br /> .如果结束<br /> <br /> <br /> .判断开始 (倍数 ≥ 1)<br /> <br /> <br />     图片框1.图片 ＝ 图片_缩放 (#图片21111, 原宽吖 × 倍数, 原高吖 × 倍数, 真)<br />     输出调试 (原宽吖 × 倍数)<br /> .判断 (0.1 ＜ 倍数 且 倍数 ≤ 1)<br /> <br />     图片框1.图片 ＝ 图片_缩放 (#图片21111, 原宽吖 × 倍数, 原高吖 × 倍数, 真)<br /> <br /> <br /> <br /> .判断 (倍数 ≤ 0.1)<br />     倍数 ＝ 0.1<br />     图片框1.图片 ＝ 图片_缩放 (#图片21111, 原宽吖 × 倍数, 原高吖 × 倍数, 真)<br /> .默认<br /> <br /> .判断结束

旧梦博客

洋滨 发表于 2025-9-10 15:08
.版本 2  图片框1.图片 ＝ 图片_缩放_透明 (图片框1.图片, 图片_取宽度 (图片框1.图片) × 0.9, 图片_取高 ...

什么模块 老哥

cloudweb

用精易模块的图片_缩放

旧梦博客

931691974 发表于 2025-9-10 15:16
补充内容 (2025-9-10 15:18):
调用了精易模块

图片宽度如果和画板宽度一样 就不能再放大了，图片也会模糊处理，不行的