图像标注工具附专用模块

.子程序 从位图句柄创建, 逻辑型, 公开, 通过已有的位图句柄创建新的位图存于本类中(成功返回真,失败返回假,本类原有位图将自动被释放)
.参数 已知的位图句柄, 整数型, , 已经获得的位图句柄,该句柄需另外删除!
.参数 位深度, 整数型, 可空, 位深度: 1, 4, 8, 16, 24, 32 默认为原来的位深度
.局部变量 位图, BITMAP
.局部变量 场景句柄1, 整数型
.局部变量 旧位图句柄1, 整数型

释放旧位图 ()
.如果真 (GetObjectA (已知的位图句柄, 5 × 4 ＋ 2 ＋ 2, 位图) ＝ 0)
返回 (假)
.如果真结束
场景句柄1 ＝ DC_创建内存DC (屏幕设备句柄)
旧位图句柄1 ＝ 选入设备场景_ (场景句柄1, 已知的位图句柄)
创建空位图 (位图.bmWidth, 位图.bmHeight, 选择 (位深度 ＝ 0, 位图.bmBitsPixel, 位深度), )
场景句柄 ＝ DC_创建内存DC (屏幕设备句柄)
位图句柄 ＝ 创建GDI对象2_ (屏幕设备句柄, 位图数据, 0, 位图指针, 0, 0)
旧位图句柄 ＝ 选入设备场景_ (场景句柄, 位图句柄)
复制场景位图_ (场景句柄, 0, 0, 位图.bmWidth, 位图.bmHeight, 场景句柄1, 0, 0, #SRCCOPY)
GDI刷新 ()
_写内存5 (取颜色点阵地址 (), 位图指针, 取颜色点阵大小 ())
选入设备场景_ (场景句柄1, 旧位图句柄1)
' 删除对象_ (已知位图句柄)
删除设备场景_ (场景句柄1)