易语言控件边框美化模块源码

系统结构:开启边框美化,Border_SubClass,Border_OnMessage,Border_DrawBorder,CallWindowProc,CreatePen,FrameRect,GetProp,GetWindowDC,GetWindowRect,SetProp,SetWindowLong,GetSysColor,GetClassName,GetWindow,GetFocus,InflateRect,OffsetRect,DeleteObject,ReleaseDC,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======边框美化集
           |  |
           |  |------ 开启边框美化
           |  |
           |  |------ Border_SubClass
           |  |
           |  |------ Border_OnMessage
           |  |
           |  |------ Border_DrawBorder
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   CreatePen
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetSysColor
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetWindow
           |  |
           |  |---[dll]------   GetFocus
           |  |
           |  |---[dll]------   InflateRect
           |  |
           |  |---[dll]------   OffsetRect
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   ReleaseDC

调用的DLL命令:

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 CreatePen, 整数型, "gdi32", "CreatePen", , 用指定的样式、宽度和颜色创建一个画笔　如函数执行成功，就返回指向新画笔的一个句柄；否则返回零
    .参数 nPenStyle, 整数型, , 指定画笔样式，可以是下述常数之一;PS_SOLID：画笔画出的是实线;PS_DASH：画笔画出的是虚线（nWidth必须是1）;PS_DOT：画笔画出的是点线（nWidth必须是1）;PS_DASHDOT：画笔画出的是点划线（nWidth必须是1）;PS_DASHDOTDOT：画笔画出的是点-点-划线（nWidth必须是1）;PS_NULL：画笔不能画图;PS_INSIDEFRAME：画笔在由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框中画图。如指定的准确RGB颜色不存在，就进行抖动处理
    .参数 nWidth, 整数型, , 以逻辑单位表示的画笔的宽度
    .参数 crColor, 整数型, , 画笔的RGB颜色;  

.DLL命令 FrameRect, 整数型, "user32", "FrameRect", , 用指定的刷子围绕一个矩形画一个边框（组成一个帧），边框的宽度是一个逻辑单位　非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 lpRect, RECT, , RECT，对要描绘的边框进行描述的一个矩形。这等效于将画笔设成一个单位的宽度，然后用矩形函数画出一个矩形
    .参数 hBrush, 整数型, , 欲使用的刷子的句柄;  

.DLL命令 GetProp, 整数型, "user32", "GetPropA", , 从窗口属性表列中返回数据句柄　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

.DLL命令 GetWindowDC, 整数型, "user32", "GetWindowDC", , 获取整个窗口（包括边框、滚动条、标题栏、菜单等）的设备场景　执行成功为窗口设备场景，失败则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口;  

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;  

.DLL命令 SetProp, 整数型, "user32", "SetPropA", , 增加或修改属性列项　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 GetSysColor, 整数型, "user32", "GetSysColor", , 判断指定windows显示对象的颜色　指定对象的RGB颜色
    .参数 nIndex, 整数型

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA", , 为指定的窗口取得类名　以字节数表示的类名长度；排除最后的空中止字符。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型, , 欲获得类名的那个窗口的句柄
    .参数 lpClassName, 文本型, , 随同类名载入的缓冲区。预先至少必须分配nMaxCount+1个字符
    .参数 nMaxCount, 整数型, , 由lpClassName提供的缓冲区长度;

.DLL命令 GetWindow, 整数型, "user32", "GetWindow", , 获得一个窗口的句柄，该窗口与某源窗口有特定的关系　由wCmd决定的一个窗口的句柄。如没有找到相符窗口，或者遇到错误，则返回零值。会设置GetLastError
    .参数 hwnd, 整数型, , 源窗口
    .参数 wCmd, 整数型, , 指定结果窗口与源窗口的关系，它们建立在下述常数基础上：;GW_CHILD：寻找源窗口的第一个子窗口;GW_HWNDFIRST：为一个源子窗口寻找第一个兄弟（同级）窗口，或寻找第一个顶级窗口;GW_HWNDLAST：为一个源子窗口寻找最后一个兄弟（同级）窗口，或寻找最后一个顶级窗口;GW_HWNDNEXT：为源窗口寻找下一个兄弟窗口;GW_HWNDPREV：为源窗口寻找前一个兄弟窗口;GW_OWNER：寻找窗口的所有者;  

.DLL命令 GetFocus, 整数型, "user32", "GetFocus", , 获得拥有输入焦点的窗口的句柄　拥有焦点的那个窗口的句柄。如没有窗口拥有输入焦点，则返回零

.DLL命令 InflateRect, 整数型, "user32", "InflateRect", , 这个函数用于增大或减小一个矩形的大小。x加在右侧区域，并从左侧区域减去；如x为正，则能增大矩形的宽度；如x为负，则能减小它。y对顶部与底部区域产生的影响是是类似的　非零表示成功，零表示失败。会设置GetLastError
    .参数 lpRect, RECT, , RECT，欲修改的矩形
    .参数 x, 整数型, , 用这个数字修改宽度
    .参数 y, 整数型, , 用这个数字修改高度;  

.DLL命令 OffsetRect, 整数型, "user32", "OffsetRect", , 该函数通过应用一个指定的偏移，从而让矩形移动起来。x会添加到右侧和左侧区域。y添加到顶部和底部区域。偏移方向则取决于参数是正数还是负数，以及采用的是什么坐标系统　非零表示成功，零表示失败。会设置GetLastError
    .参数 lpRect, RECT, , RECT，欲移动的矩形
    .参数 x, 整数型, , 水平偏移量
    .参数 y, 整数型, , 垂直偏移量;

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放　非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄;  

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）　执行成功为1，否则为0
    .参数 hwnd, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 hdc, 整数型, , 要释放的设备场景句柄;