易语言给窗口加上边框色

系统结构:画控件边框,画矩形边框,取窗口矩形,取设备场景,创建纯色刷子,取系统颜色刷子,取窗口设备场景,释放设备场景,取父窗口,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 画控件边框
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ __启动窗口_被激活
           |  |
           |  |------ __启动窗口_被取消激活
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   画矩形边框
           |  |
           |  |---[dll]------   取窗口矩形
           |  |
           |  |---[dll]------   取设备场景
           |  |
           |  |---[dll]------   创建纯色刷子
           |  |
           |  |---[dll]------   取系统颜色刷子
           |  |
           |  |---[dll]------   取窗口设备场景
           |  |
           |  |---[dll]------   释放设备场景
           |  |
           |  |---[dll]------   取父窗口

调用的DLL命令:

.DLL命令 画矩形边框, 整数型, "user32.dll", "FrameRect"
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 矩形, 矩形, , lpRect，对要描绘的边框进行描述的一个矩形
    .参数 刷子句柄, 整数型, , hBrush，欲使用的刷子的句柄

.DLL命令 取窗口矩形, 整数型, "user32", "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形

.DLL命令 取设备场景, 整数型, "user32", "GetDC"
    .参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 创建纯色刷子, 整数型, "gdi32.dll", "CreateSolidBrush"
    .参数 颜色值, 整数型, , crColor，颜色值

.DLL命令 取系统颜色刷子, 整数型, "user32", "GetSysColorBrush"
    .参数 索引, 整数型

.DLL命令 取窗口设备场景, 整数型, "user32.dll", "GetWindowDC"
    .参数 窗口句柄, 整数型

.DLL命令 释放设备场景, 整数型, "user32", "ReleaseDC"
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

.DLL命令 取父窗口, 整数型, "user32", "GetParent"
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;