易语言动态文字效果

系统结构:TextEffect,timeGetTime,SetTextCharacterExtra,OffsetRect,SetTextColor,FillRect,GetDC,CreateSolidBrush,DeleteObject,GetSysColor,TextOut,DrawText,OleTranslateColor,

======窗口程序集1
           |  |
           |  |------ TextEffect
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   timeGetTime
           |  |
           |  |---[dll]------   SetTextCharacterExtra
           |  |
           |  |---[dll]------   OffsetRect
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetSysColor
           |  |
           |  |---[dll]------   TextOut
           |  |
           |  |---[dll]------   DrawText
           |  |
           |  |---[dll]------   OleTranslateColor

调用的DLL命令:

.DLL命令 timeGetTime, 整数型, "winmm.dll", "timeGetTime"

.DLL命令 SetTextCharacterExtra, 整数型, "gdi32", "SetTextCharacterExtra"
    .参数 hdc, 整数型
    .参数 nCharExtra, 整数型

.DLL命令 OffsetRect, 整数型, "user32", "OffsetRect"
    .参数 lpRect, RECT
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 SetTextColor, 整数型, "gdi32", "SetTextColor"
    .参数 hdc, 整数型
    .参数 crColor, 整数型

.DLL命令 FillRect, 整数型, "user32", "FillRect"
    .参数 hdc, 整数型
    .参数 lpRect, RECT
    .参数 hBrush, 整数型

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

.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush"
    .参数 crColor, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject"
    .参数 hObject, 整数型

.DLL命令 GetSysColor, 整数型, "user32", "GetSysColor"
    .参数 nIndex, 整数型

.DLL命令 TextOut, 整数型, "gdi32", "TextOutA"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpString, 文本型
    .参数 nCount, 整数型

.DLL命令 DrawText, 整数型, "user32", "DrawTextA"
    .参数 hdc, 整数型
    .参数 lpStr, 文本型
    .参数 nCount, 整数型
    .参数 lpRect, RECT
    .参数 wFormat, 整数型

.DLL命令 OleTranslateColor, 整数型, "OLEPRO32.DLL", "OleTranslateColor"
    .参数 OLE_COLOR, 整数型
    .参数 HPALETTE, 整数型
    .参数 pccolorref, 整数型