易语言仿OFFICE2007颜色选择器源码

系统结构:选择颜色,显示主体颜色块,是否在块内,初始化颜色组,初始化块组,CreateCompatibleDC,CreateSolidBrush,FillRect,FrameRect,SelectObject,StretchBlt,CreateCompatibleBitmap,DeleteDC,CreatePen,LineTo,MoveToEx,BitBlt,ReleaseDC,DeleteObject,GetDC,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 选择颜色
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 显示主体颜色块
           |  |
           |  |------ _窗口1_鼠标左键被放开
           |  |
           |  |------ 是否在块内
           |  |
           |  |------ _窗口1_首次激活
           |  |
           |  |------ _窗口1_鼠标位置被移动
           |  |
           |  |------ _超级按钮1_被单击
           |  |
           |  |------ _超级按钮2_被单击
           |  |
           |  |------ 初始化颜色组
           |  |
           |  |------ 初始化块组
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   StretchBlt
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   CreatePen
           |  |
           |  |---[dll]------   LineTo
           |  |
           |  |---[dll]------   MoveToEx
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDC

调用的DLL命令:

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 CreateSolidBrush, 整数型
    .参数 crColor, 整数型

.DLL命令 FillRect, 整数型
    .参数 hDC, 整数型
    .参数 lprc, Rect, , 可能为 RECT 结构。
    .参数 hbr, 整数型

.DLL命令 FrameRect, 整数型
    .参数 hDC, 整数型
    .参数 lprc, Rect, , 可能为 RECT 结构。
    .参数 hbr, 整数型

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc
    .参数 hgdiobj

.DLL命令 StretchBlt, 逻辑型, , "StretchBlt"
    .参数 目标设备场景, 整数型
    .参数 目标位置横坐标, 整数型
    .参数 目标位置纵坐标, 整数型
    .参数 目标图像宽, 整数型
    .参数 目标图像高, 整数型
    .参数 源设备场景, 整数型
    .参数 源位置横坐标, 整数型
    .参数 源位置纵坐标, 整数型
    .参数 源图像宽, 整数型
    .参数 源图像高, 整数型
    .参数 光栅运算, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap"
    .参数 hdc
    .参数 nWidth
    .参数 nHeight

.DLL命令 DeleteDC, 整数型, , "DeleteDC"
    .参数 hdc

.DLL命令 CreatePen, 整数型, "gdi32.dll", "CreatePen"
    .参数 nPenStyle, 整数型, , 该参数可取下列标识符之一： PS_SOLID、PS_DASH、Ps_DOT、PS_DASHDOT、 PS_DASHDOT DOT
    .参数 nWidth, 整数型
    .参数 crColor, 整数型

.DLL命令 LineTo, 整数型, "gdi32.dll", "LineTo", , , 用当前画笔画一条线，从当前位置连到一个指定的点
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄
    .参数 终点横坐标, 整数型, , x,线段终点位置，采用逻辑坐标表示
    .参数 终点纵坐标, 整数型, , y,线段终点位置，采用逻辑坐标表示

.DLL命令 MoveToEx, 整数型, "gdi32", "MoveToEx"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpPoint, Point, 传址

.DLL命令 BitBlt, 整数型, , "BitBlt"
    .参数 hdcDest
    .参数 nXDest
    .参数 nYDest
    .参数 nWidth
    .参数 nHeight
    .参数 hdcSrc
    .参数 nXSrc
    .参数 nYSrc
    .参数 dwRop

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

.DLL命令 DeleteObject, 整数型, , "DeleteObject"
    .参数 hObject

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