自绘图片框支持批量自绘附窗口信息操作模块

易语言 2020-07-21 00:11:43

自绘图片框支持批量自绘附窗口信息操作模块

.子程序 胜多负少, 整数型, , 直接从模块里的 回调示例 复制出来的子程序
.参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
.参数 wMsg, 整数型, , 消息的标识符
.参数 wParam, 整数型, , 具体取决于消息
.参数 lParam, 整数型, , 具体取决于消息;
.局部变量 图形, GP图形
.局部变量 图像, GP图像

.判断开始 (wMsg = #WM_PAINT)
.如果真 (jb1 [循环] = hwnd 或 jb1 [取数组成员数 (jb1)] = hwnd)
图片框子类化 [循环].自绘_开始 ()
图片框子类化 [循环].自绘_透明处理_内 ()
图形.创建自DC (图片框子类化 [循环].自绘_取设备句柄 ())
图像.创建自字节集 (图片_ [循环])
图形.画图像缩放 (图像, 0, 0, kd1 [循环], gd1 [循环])
图像.销毁 ()
图形.销毁 ()
图片框子类化 [循环].自绘_结束 ()
.如果真 (循环 < 取数组成员数 (jb1))
循环 = 循环 + 1
.如果真结束
返回 (0)
.如果真结束
.如果真 (循环 = 取数组成员数 (jb1))
循环 = 0
.如果真结束

.默认

.判断结束
返回 (图片框子类化 [循环].处理消息 (hwnd, wMsg, wParam, lParam))