易语言多彩文字源码

系统结构:彩色的字,TextOutA,SetTextColor,SetBkMode,GetWindowDC,ReleaseDC,DeleteDC,SetWindowTextA,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _编辑框6_内容被改变
           |  |
           |  |------ _编辑框5_内容被改变
           |  |
           |  |------ 彩色的字
           |  |
           |  |------ _时钟4_周期事件
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   TextOutA
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   SetWindowTextA

调用的DLL命令:

.DLL命令 TextOutA, 整数型, "gdi32.dll", "TextOutA", , , Long，非零表示成功，零表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 横, 整数型, , x，绘图的起点，采用逻辑坐标
    .参数 纵, 整数型, , y，绘图的起点，采用逻辑坐标
    .参数 内容, 文本型, , lpstring，欲描绘的字串
    .参数 内容数量, 整数型, , ncount，字串中要描绘的字符数量

.DLL命令 SetTextColor, 整数型, "gdi32", "SetTextColor", , ,
    .参数 设备场景, 整数型
    .参数 颜色, 整数型

.DLL命令 SetBkMode, 整数型, "gdi32", "SetBkMode", , , SetBkMode，Long，前一个背景模式的值
    .参数 设备场景句柄, 整数型, , hdc，设备场景的句柄
    .参数 方式, 整数型, , nBkMode，下述常数之一：OPAQUE用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙TRANSPARENT透明处理，即不作上述填充

.DLL命令 GetWindowDC, 整数型, "user32.dll", "GetWindowDC", , ,
    .参数 窗口句柄, 整数型

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

.DLL命令 DeleteDC, 整数型, "gdi32.dll", "DeleteDC", , ,
    .参数 设备场景句柄, 整数型, , hdc，将要删除的设备场景

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