一份很好的居中缩放源码，只需填入格子大小，图片大小，自动算出x,y,及图片的新宽高
标签： 图像缩放
易语言实现图像缩放源码
.版本 2
.支持库 BmpOperate
.子程序 __启动窗口_创建完毕
.局部变量 对象, 对象, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 位图, 位图, , "2"
对象.创建图片对象 (#图片1)
位图 [1].载入数据 (对象.取回图片 ())
对象.创建图片对象 (DrawImage (#图片1, 50, 50))
位图 [2].载入数据 (对象.取回图片 ())
位图 [2].复制到 (0, 0, 位图 [2].取宽度 (), 位图 [2].取高度 (), 位图 [1], (位图 [1].取宽度 () － 位图 [2].取宽度 ()) ÷ 2, (位图 [1].取高度 () － 位图 [2].取高度 ()) ÷ 2, )
图片框1.图片 ＝ 位图 [1].取位图数据 ()