易语言编辑框特效源码

系统结构:内部_控件消息,内部_编辑框特效,内部_程序等待,画非客户区背景,画客户区背景,创建,画非客户区背景,画客户区背景,鼠标进入,鼠标离开,置文本属性,画客户区背景,内部_取窗口矩形,CreateWaitableTimerA,SetWaitableTimer,MsgWaitForMultipleObjects,CloseHandle,GetWindowRect,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 内部_控件消息
           |  |
           |  |------ 内部_编辑框特效
           |  |
           |  |------ 内部_程序等待
           |  |
           |  |
======界面库_编辑框
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 画非客户区背景
           |  |
           |  |------ 画客户区背景
           |  |
           |  |
======界面库_标签
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 画非客户区背景
           |  |
           |  |------ 画客户区背景
           |  |
           |  |------ 鼠标进入
           |  |
           |  |------ 鼠标离开
           |  |
           |  |------ 置文本属性
           |  |
           |  |
======界面库_窗口
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 画客户区背景
           |  |
           |  |------ 内部_取窗口矩形
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateWaitableTimerA
           |  |
           |  |---[dll]------   SetWaitableTimer
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetWindowRect

调用的DLL命令:

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , ,
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_