易语言窗口自绘效果源码

系统结构:NewProc,画窗体背景,背景边缘柔化,子程序_获取任务栏高度,是否在矩形,SetWindowLongA,CallWindowProcA,GetWindowTextA,BeginPaint,EndPaint,GetDC,GetWindowRect,CreateRoundRectRgn,SetWindowRgn,API_MoveWindow,API_SHAppBarMessage,UpdatePerUserSystemParameters,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ NewProc
           |  |
           |  |------ 画窗体背景
           |  |
           |  |------ 背景边缘柔化
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _按钮8_被单击
           |  |
           |  |------ _按钮10_被单击
           |  |
           |  |------ _按钮9_被单击
           |  |
           |  |------ 子程序_获取任务栏高度
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ __启动窗口_被双击
           |  |
           |  |------ 是否在矩形
           |  |
           |  |------ _按钮1_鼠标左键被放开
           |  |
           |  |------ _按钮2_鼠标左键被放开
           |  |
           |  |------ _按钮3_鼠标左键被放开
           |  |
           |  |------ _按钮4_鼠标左键被放开
           |  |
           |  |------ _按钮5_鼠标左键被放开
           |  |
           |  |------ _按钮6_鼠标左键被放开
           |  |
           |  |------ _按钮7_鼠标左键被放开
           |  |
           |  |------ _按钮11_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   GetWindowTextA
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   API_MoveWindow
           |  |
           |  |---[dll]------   API_SHAppBarMessage
           |  |
           |  |---[dll]------   UpdatePerUserSystemParameters

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, "user32", "SetWindowLongA", ,             
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 New, 整数型

.DLL命令 CallWindowProcA, 整数型, "user32", "CallWindowProcA"
    .参数 函数地址, 整数型
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lparam, 整数型

.DLL命令 GetWindowTextA, 整数型, "user32", "GetWindowTextA", ,             
    .参数 hwnd, 整数型
    .参数 Text, 文本型
    .参数 TextLong, 整数型

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

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

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

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect"
    .参数 hwnd, 整数型
    .参数 rect, 矩形L

.DLL命令 CreateRoundRectRgn, 整数型, , "CreateRoundRectRgn"
    .参数 x1
    .参数 y1
    .参数 x2
    .参数 y2
    .参数 圆角宽度
    .参数 圆角高度

.DLL命令 SetWindowRgn, 整数型, "user32", "SetWindowRgn"
    .参数 Hwnd, 整数型
    .参数 Rgn, 整数型
    .参数 Paint, 逻辑型

.DLL命令 API_MoveWindow, 整数型, "user32.dll", "MoveWindow"
    .参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
    .参数 左侧位置, 整数型, , x，窗口新的左侧位置
    .参数 顶部位置, 整数型, , y，窗口新的顶部位置
    .参数 新宽度, 整数型, , nWidth，窗口的新宽度
    .参数 新高度, 整数型, , nHeight，窗口的高宽度
    .参数 是否重画, 整数型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

.DLL命令 API_SHAppBarMessage, 整数型, "shell32.dll", "SHAppBarMessage", , 系统状态栏信息_e
    .参数 信息值, 整数型, , dwMessage
    .参数 数据结构, 系统状态栏信息, , pData

.DLL命令 UpdatePerUserSystemParameters, , "USER32.DLL"
    .参数 a, , , 0
    .参数 b, , , 0