易语言闪电自绘真彩工具条模块源码

系统结构:工具条按钮被单击,取低16位,取高16位,MyWinProc,置被单击事件,刷新显示,创建,添加工具条按钮,全部重画,On_MouseMove,On_LBBOTTONUP,SetWindowLong,BeginPaint,EndPaint,CallWindowProc,InvalidateRect_整型,SendMessage,TrackMouseEvent,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 工具条按钮被单击
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 取低16位
           |  |
           |  |------ 取高16位
           |  |
           |  |
======自绘真彩工具条
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ MyWinProc
           |  |
           |  |------ 置被单击事件
           |  |
           |  |------ 刷新显示
           |  |
           |  |------ 创建
           |  |
           |  |------ 添加工具条按钮
           |  |
           |  |------ 全部重画
           |  |
           |  |------ On_MouseMove
           |  |
           |  |------ On_LBBOTTONUP
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   InvalidateRect_整型
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   TrackMouseEvent

调用的DLL命令:

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
    .参数 hWnd
    .参数 nIndex
    .参数 hNewLong

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

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

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 Address
    .参数 hWnd
    .参数 Msg
    .参数 wParam
    .参数 lParam

.DLL命令 InvalidateRect_整型, 整数型, "user32", "InvalidateRect", , 这个函数屏蔽一个窗口客户区的全部或部分区域。这会导致窗口在事件期间部分重画  非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 待屏蔽窗口的句柄
    .参数 lpRect, 整数型, , RECT，用于描述待屏蔽矩形部分的一个矩形结构。可用InvalidateRectBynum函数，同时将lpRect设为零（Long数据类型），从而屏蔽（或禁用）整个窗口
    .参数 bErase, 整数型, , TRUE（非零）导致指定的区域在重画前先删除;

.DLL命令 SendMessage, 整数型, , "SendMessageA"
    .参数 hWnd
    .参数 Msg
    .参数 wParam
    .参数 lParam

.DLL命令 TrackMouseEvent, 整数型, "user32.dll", "TrackMouseEvent"
    .参数 lpEventTrack, 鼠标动作结构