易语言超炫桃心图像源码

系统结构:SetWindowLong,GetWindowLong,DrawText,SetWindowText,GetDC,InvalidateRect_,BeginPaint,CallWindowProc,EndPaint,GetClassLong,SetClassLong,AnimateWindow,SetLayeredWindowAttributes,UpdateWindow,SendMessage,Sleep,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |
======类1
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _cq1_创建完毕
           |  |
           |  |------ _控件窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   DrawText
           |  |
           |  |---[dll]------   SetWindowText
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   InvalidateRect_
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   GetClassLong
           |  |
           |  |---[dll]------   SetClassLong
           |  |
           |  |---[dll]------   AnimateWindow
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes
           |  |
           |  |---[dll]------   UpdateWindow
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   _SendMessage
           |  |
           |  |---[dll]------   Sleep

调用的DLL命令:

.支持库 eAPI

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

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

.DLL命令 DrawText, 整数型, "user32", "DrawTextA", , 将文本描绘到指定的矩形中  描绘文字的高度
    .参数 hdc, 整数型, , 欲在其中显示文字的一个设备场景的句柄
    .参数 lpStr, 文本型, , 欲描绘的文本字串
    .参数 nCount, 整数型, , 欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1
    .参数 lpRect, 矩形数据, , RECT，指定用于绘图的一个格式化矩形（采用逻辑坐标）
    .参数 wFormat, 整数型, , 一个标志位数组，决定了以何种形式执行绘图。参考下面总结的常数类型列表标志常数说明DT_BOTTOM必须同时指定DT_SINGLE。指示文本对齐格式化矩形的底边DT_CALCRECT象下面这样计算格式化矩形：多行绘图时矩形的底边根据需要进行延展，以便容下所有文字；单行绘图时，延展矩形的右侧。不描绘文字。由lpRect参数指定的矩形会载入计算出来的值DT_CENTER文本垂直居中DT_EXPANDTABS描绘文字的时候，对制表站进行扩展。默认的制表站间距是8个字符。但是，可用DT_TABSTOP标志改变这项设定DT_EXTERNALLEADING计算文本行高度的时候，使用当前字体的外部间距属性（the external leading attribute）DT_LEFT文本左对齐DT_NOCLIP描绘文字时不剪切到指定的矩形DT_NOPREFIX通常，函数认为 & 字符表示应为下一个字符加上下划线。该标志禁止这种行为DT_RIGHT文本右对齐DT_SINGLELINE只画单行DT_TABSTOP指定新的制表站间距，采用这个整数的高8位DT_TOP必须同时指定DT_SINGLE。指示文本对齐格式化矩形的顶部DT_VCENTER必须同时指定DT_SINGLE。指示文本对齐格式化矩形的中部DT_WORDBREAK进行自动换行。如用SetTextAlign函数设置了TA_UPDATECP标志，这里的设置则无效;

.DLL命令 SetWindowText, 整数型, , "SetWindowTextA"
    .参数 窗口句柄, 整数型
    .参数 标题, 文本型

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

.DLL命令 InvalidateRect_, 整数型, , "InvalidateRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形数据
    .参数 是否立即重画, 逻辑型

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

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

.DLL命令 EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 GetClassLong, 整数型, , "GetClassLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 SetClassLong, 整数型, , "SetClassLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 AnimateWindow, 逻辑型, , "AnimateWindow"
    .参数 hWnd, 整数型
    .参数 dwTime, 整数型
    .参数 dwFlags, 整数型

.DLL命令 SetLayeredWindowAttributes, 逻辑型, , "SetLayeredWindowAttributes", , 成功返回真，否则返回假
    .参数 hwnd, 整数型, , 透明窗体的句柄
    .参数 crKey, 整数型, , 颜色值
    .参数 bAlpha, 字节型, , 透明度，取值范围是[0,255]
    .参数 dwFlags, 整数型, , 透明方式：LWA_ALPHA(2)时，crKey参数无效，bAlpha参数有效 || LWA_COLORKEY(1)时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明

.DLL命令 UpdateWindow, 逻辑型, , "UpdateWindow"
    .参数 hWnd, 整数型

.DLL命令 SendMessage, , , "SendMessageA"
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 参数一, 整数型
    .参数 参数二, PAINTSTRUCT

.DLL命令 _SendMessage, , , "SendMessageA"
    .参数 A, 整数型
    .参数 B, 整数型
    .参数 C, 整数型
    .参数 D, 整数型

.DLL命令 Sleep
    .参数 Time, 整数型