易语言可调节窗口透明控件源码

系统结构:取窗口风格,SetWindowLongA,设置透明,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _横向滚动条1_位置被改变
           |  |
           |  |------ _颜色选择器1_颜色被改变
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |------ _时钟3_周期事件
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口风格
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   设置透明

调用的DLL命令:

.DLL命令 取窗口风格, 整数型, "user32.dll", "GetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 属性, 整数型

.DLL命令 SetWindowLongA, 整数型, "user32.dll", "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 窗口信息值, 整数型
    .参数 窗口信息新值, 整数型

.DLL命令 设置透明, 整数型, , "SetLayeredWindowAttributes"
    .参数 窗口句柄, 整数型
    .参数 颜色, 整数型
    .参数 通道, 字节型
    .参数 透明开关, 整数型