易语言自绘窗口例程源码

系统结构:新特征,窗口鼠标移动,重绘窗口,窗口鼠标左键按下,窗口鼠标左键弹起,导航被选中_画图,导航被选中_事件,菜单被选中_事件,初始化数据,置导航状态,置菜单状态,点是否在矩形内,取高位,取低位,转为圆角窗口,启动多线程,颜色值取ARGB,RGB2HSI,HSI2RGB,DeleteObject,GetDC,CreateCompatibleDC,CreateCompatibleBitmap,SelectObject,BeginPaint,BitBlt,EndPaint,DeleteDC,置窗口样式,CreateRoundRectRgn,SetWindowRgn,Api_CreateThread,DLL命令1,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 新特征
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 窗口鼠标移动
           |  |
           |  |------ 重绘窗口
           |  |
           |  |------ 窗口鼠标左键按下
           |  |
           |  |------ 窗口鼠标左键弹起
           |  |
           |  |------ 导航被选中_画图
           |  |
           |  |------ 导航被选中_事件
           |  |
           |  |------ 菜单被选中_事件
           |  |
           |  |------ __启动窗口_鼠标左键被按下
           |  |
           |  |
======子程序调用
           |  |
           |  |------ 初始化数据
           |  |
           |  |------ 置导航状态
           |  |
           |  |------ 置菜单状态
           |  |
           |  |------ 点是否在矩形内
           |  |
           |  |------ 取高位
           |  |
           |  |------ 取低位
           |  |
           |  |
======功能程序集1
           |  |
           |  |------ 转为圆角窗口
           |  |
           |  |------ 启动多线程
           |  |
           |  |------ 颜色值取ARGB
           |  |
           |  |------ RGB2HSI
           |  |
           |  |------ HSI2RGB
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   置窗口样式
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   Api_CreateThread
           |  |
           |  |---[dll]------   DLL命令1

调用的DLL命令:

.DLL命令 DeleteObject, 整数型, , , , 失败为0
    .参数 hObject, 整数型

.DLL命令 GetDC, 整数型, , , , 获取指定窗口的设备场景。返回指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型

.DLL命令 CreateCompatibleDC, 整数型, , , , 创建一个与特定设备场景一致的内存设备场景
    .参数 hdc, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, , , , 创建一幅与设备有关位图，它与指定的设备场景兼容
    .参数 hdc, 整数型
    .参数 width, 整数型
    .参数 height, 整数型

.DLL命令 SelectObject, 整数型, , , , 置场景图形对象，其中包括位图、刷子、字体、画笔以及区域等等
    .参数 hdc, 整数型
    .参数 hObject, 整数型

.DLL命令 BeginPaint, 整数型, "user32", "BeginPaint", , 准备画一个窗口
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 BitBlt, 整数型, , , , 将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容
    .参数 hDestDC, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hSrcDC, 整数型
    .参数 xSrc, 整数型
    .参数 ySrc, 整数型
    .参数 dwRop, 整数型

.DLL命令 EndPaint, 整数型, "user32", "EndPaint", , 　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 DeleteDC, 整数型, , , , 删除专用设备场景或信息场景，释放所有相关窗口资源。不要将它用于GetDC函数取回的设备场景
    .参数 hdc, 整数型

.DLL命令 置窗口样式, 整数型, , "SetWindowLongA", 公开
    .参数 hwnd, 整数型
    .参数 nindex, 整数型
    .参数 hnew, 整数型

.DLL命令 CreateRoundRectRgn, 整数型, , , , 失败为0
    .参数 x1, 整数型
    .参数 y1, 整数型
    .参数 x2, 整数型
    .参数 y2, 整数型
    .参数 x3, 整数型
    .参数 y3, 整数型

.DLL命令 SetWindowRgn, 整数型, , , , 失败为0
    .参数 hwnd, 整数型
    .参数 hRgn, 整数型
    .参数 bRedraw, 逻辑型

.DLL命令 Api_CreateThread, 整数型, , "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 DLL命令1