易语言色度调整源码

系统结构:改变图片,内存设备场景,取像素颜色,设备无关位图,复制到无关位图,复制到一个设备,复制场景,选入图形对象,删除场景,删除位图,取窗口场景,

======窗口程序集1
           |  |
           |  |------ 改变图片
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ _滑块条1_位置被改变
           |  |
           |  |------ _滑块条2_位置被改变
           |  |
           |  |------ _滑块条3_位置被改变
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ _编辑框2_内容被改变
           |  |
           |  |------ _编辑框3_内容被改变
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   内存设备场景
           |  |
           |  |---[dll]------   取像素颜色
           |  |
           |  |---[dll]------   设备无关位图
           |  |
           |  |---[dll]------   复制到无关位图
           |  |
           |  |---[dll]------   复制到一个设备
           |  |
           |  |---[dll]------   复制场景
           |  |
           |  |---[dll]------   选入图形对象
           |  |
           |  |---[dll]------   删除场景
           |  |
           |  |---[dll]------   删除位图
           |  |
           |  |---[dll]------   取窗口场景

调用的DLL命令:

.DLL命令 内存设备场景, 整数型, "gdi32.dll", "CreateCompatibleDC"
    .参数 场景句柄, 整数型

.DLL命令 取像素颜色, 整数型, "gdi32.dll", "GetPixel"
    .参数 场景句柄, 整数型
    .参数 横坐标, 整数型
    .参数 纵坐标, 整数型

.DLL命令 设备无关位图, 整数型, "gdi32.dll", "CreateDIBSection"
    .参数 场景句柄, 整数型
    .参数 位图信息, 位图信息, 传址
    .参数 常数, 整数型
    .参数 内存地址, 整数型
    .参数 对象句柄, 整数型
    .参数 偏移量, 整数型

.DLL命令 复制到无关位图, 整数型, "gdi32.dll", "GetDIBits"
    .参数 场景句柄, 整数型
    .参数 位图句柄, 整数型
    .参数 扫描线编号, 整数型
    .参数 扫描线数量, 整数型
    .参数 缓冲区, 字节集, 传址
    .参数 位图信息, 位图信息, 传址
    .参数 常数, 整数型

.DLL命令 复制到一个设备, 整数型, "gdi32.dll", "SetDIBitsToDevice"
    .参数 场景句柄, 整数型
    .参数 左边, 整数型
    .参数 顶边, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 源左边, 整数型
    .参数 源顶边, 整数型
    .参数 扫描线编号, 整数型
    .参数 扫描线数量, 整数型
    .参数 缓冲区, 字节集, 传址
    .参数 位图信息, 位图信息, 传址
    .参数 常数, 整数型

.DLL命令 复制场景, 整数型, "gdi32.dll", "BitBlt"
    .参数 目标场景, 整数型
    .参数 目标横坐标, 整数型
    .参数 目标纵坐标, 整数型
    .参数 传输图像宽度, 整数型
    .参数 传输图像高度, 整数型
    .参数 原场景, 整数型
    .参数 原横坐标, 整数型
    .参数 原纵坐标, 整数型
    .参数 光栅运算, 整数型

.DLL命令 选入图形对象, 整数型, "gdi32.dll", "SelectObject"
    .参数 场景句柄, 整数型
    .参数 对象句柄, 整数型

.DLL命令 删除场景, 整数型, "gdi32.dll", "DeleteDC"
    .参数 场景句柄, 整数型

.DLL命令 删除位图, 整数型, "gdi32.dll", "DeleteObject"
    .参数 对象句柄, 整数型

.DLL命令 取窗口场景, 整数型, "user32.dll", "GetDC"
    .参数 hwnd, 整数型