易语言拾色器源码

系统结构:子程序1,SetCapture,ReleaseCapture,StretchBlt,GetDC,GetPixel,ReleaseDC,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _R滑块条_位置被改变
           |  |
           |  |------ _R编辑框_内容被改变
           |  |
           |  |------ _G滑块条_位置被改变
           |  |
           |  |------ _G编辑框_内容被改变
           |  |
           |  |------ _B滑块条_位置被改变
           |  |
           |  |------ _B编辑框_内容被改变
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |------ 子程序1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _画板2_鼠标左键被按下
           |  |
           |  |------ _画板2_鼠标左键被放开
           |  |
           |  |------ _画板2_鼠标位置被移动
           |  |
           |  |------ _画板3_鼠标左键被按下
           |  |
           |  |------ _画板3_鼠标左键被放开
           |  |
           |  |------ _画板3_鼠标位置被移动
           |  |
           |  |------ _画板4_绘画
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _十编辑框_获得焦点
           |  |
           |  |------ _编辑框Hide_内容被改变
           |  |
           |  |------ _编辑框Hide_失去焦点
           |  |
           |  |------ _画板4_鼠标左键被按下
           |  |
           |  |------ _画板4_鼠标左键被放开
           |  |
           |  |------ _画板4_鼠标位置被移动
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   StretchBlt
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   GetPixel
           |  |
           |  |---[dll]------   ReleaseDC

调用的DLL命令:

.DLL命令 SetCapture, 整数型, , "SetCapture"
    .参数 hwnd, 整数型

.DLL命令 ReleaseCapture, 整数型, , "ReleaseCapture"

.DLL命令 StretchBlt, 逻辑型, , "StretchBlt", , 拉伸位块传送
    .参数 目标画布句柄, 整数型
    .参数 目标原点横坐标, 整数型
    .参数 目标原点纵坐标, 整数型
    .参数 目标宽度, 整数型
    .参数 目标高度, 整数型
    .参数 源画布句柄, 整数型
    .参数 源原点横坐标, 整数型
    .参数 源原点纵坐标, 整数型
    .参数 源宽度, 整数型
    .参数 源高度, 整数型
    .参数 绘制方式, 整数型

.DLL命令 GetDC, 整数型, "user32", "GetDC"
    .参数 hwnd

.DLL命令 GetPixel, 整数型, "gdi32", "GetPixel"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 ReleaseDC, 整数型, , "ReleaseDC"
    .参数 hWnd, 整数型
    .参数 hDC, 整数型