易语言放大取色源码

系统结构:放大取色,API_移动鼠标,API_获取设备场景,API_获取场景指定点颜色值,API_复制场景,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 放大取色
           |  |
           |  |------ _关闭_图形按钮_被单击
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ _输入设备_鼠标位置改变
           |  |
           |  |------ _热键_标签_反馈事件
           |  |
           |  |------ _复制_图形钮_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_移动鼠标
           |  |
           |  |---[dll]------   API_获取设备场景
           |  |
           |  |---[dll]------   API_获取场景指定点颜色值
           |  |
           |  |---[dll]------   API_复制场景

调用的DLL命令:

.DLL命令 API_移动鼠标, , "user32", "SetCursorPos"
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 API_获取设备场景, 整数型, "User32.dll", "GetDC"
    .参数 hwnd, 整数型

.DLL命令 API_获取场景指定点颜色值, 整数型, "gdi32", "GetPixel"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 API_复制场景, 逻辑型, , "StretchBlt"
    .参数 目标句柄, 整数型
    .参数 原点横坐标, 整数型
    .参数 原点纵坐标, 整数型
    .参数 目标宽度, 整数型
    .参数 目标高度, 整数型
    .参数 源句柄, 整数型
    .参数 源点横坐标, 整数型
    .参数 源点纵坐标, 整数型
    .参数 源宽度, 整数型
    .参数 源高度, 整数型
    .参数 绘制方式, 整数型