易语言多彩桃心源码

系统结构:准备工作,添加效果,GetWindowLong,UpdateLayeredWindow,创建位图,选择对象,SetWindowLong,GetDC,ReleaseDC,创建内存场景,BitBlt,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 准备工作
           |  |
           |  |------ _UpdateLayeredWindow
           |  |
           |  |------ 添加效果
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   UpdateLayeredWindow
           |  |
           |  |---[dll]------   创建位图
           |  |
           |  |---[dll]------   选择对象
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   创建内存场景
           |  |
           |  |---[dll]------   BitBlt

调用的DLL命令:

.DLL命令 GetWindowLong, 整数型, "user32.dll", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 UpdateLayeredWindow, 整数型, , "UpdateLayeredWindow"
    .参数 hwnd, 整数型, , 当前窗口的句柄
    .参数 hdcDst, 整数型, , 当前窗口的DC
    .参数 pptDst, POINT, , 当前窗口在屏幕的左上角位置(相当于 ::SetWindowPos()函数)
    .参数 psize, SIZE, , 当前窗口在的宽度和高度
    .参数 hdcSrc, 整数型, , 内存缓存DC
    .参数 pptSrc, POINT, , 内存缓存的左上角坐标(可用于裁剪内存缓存)
    .参数 crKey, 整数型
    .参数 pblend, BLENDFUNCTION, , 混合样式
    .参数 dwFlags, 整数型

.DLL命令 创建位图, 整数型, "gdi32.dll", "CreateDIBSection", , 该函数创建应用程序可以直接写入的、与设备无关的位图（DIB）。一般情况下后面4参数都为NULL
    .参数 hdc, 整数型, , 设备环境句柄。如果iUsage的值是DIB＿PAL＿COLORS，那么函数使用该设备环境的逻辑调色板对与设备无关位图的颜色进行初始化。
    .参数 pbmi, BITMAPINFO_易格式, , 指向BITMAPINFO结构的指针，该结构指定了与设备无关位图的各种属性，其中包括位图的维数和颜色。
    .参数 iUsage, 整数型, , 指定由pbmi参数指定的BITMAPINFO结构中的成员bmiColors数组包含的数据类型（要么是逻辑调色板索引值，要么是原文的RGB值）。
    .参数 ppvBits, 整数型, , 指向一个变量的指针，该变量接收一个指向DIB位数据值的指针。
    .参数 hSection, 整数型, , 文件映射对象的句柄。函数将使用该对象来创建DIB（与设备无关位图）。该参数可以是NULL。
    .参数 dwOffset, 整数型, , 如果hSection为NULL，那么系统将为与设备无关位图（DIB）分配内存。在这种情况下，函数CreateDIBSection将忽略参数dwOffset，应用程序无法在以后获取指向内存的句柄。通过调用GetObject函数来填充的DIBSECTION结构成员dshSection也将成为NULL。

.DLL命令 选择对象, 整数型, , "SelectObject"
    .参数 hdc, 整数型, , 一个设备场景的句柄
    .参数 hObject, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

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

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

.DLL命令 创建内存场景, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 BitBlt, 逻辑型, "gdi32.dll", "BitBlt"
    .参数 目标设备句柄, 整数型
    .参数 目标左上角X坐标, 整数型
    .参数 目标左上角Y坐标, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 源设备句柄, 整数型
    .参数 源左上角X坐标, 整数型
    .参数 源左上角X坐标, 整数型
    .参数 指定光栅操作代码, 整数型