易语言八方向控件调节模块源码

系统结构:置控件可调节,取消控件可调节,新回调函数,SendMessage,GetWindowRect,SetClassLong,DestroyCursor,LoadCursor,CallWindowProc,SetWindowLong,SetCursor,ReleaseCapture,mouse_event,GetMessageExtraInfo,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 置控件可调节
           |  |
           |  |------ 取消控件可调节
           |  |
           |  |------ 新回调函数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   SetClassLong
           |  |
           |  |---[dll]------   DestroyCursor
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   SetCursor
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   mouse_event
           |  |
           |  |---[dll]------   GetMessageExtraInfo
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击

调用的DLL命令:

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetWindowRect, 整数型, "user32.dll", "GetWindowRect"
    .参数 hwnd, 整数型
    .参数 lpRect, RECT

.DLL命令 SetClassLong, 整数型, "user32.dll", "SetClassLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 DestroyCursor, 整数型, "user32.dll"
    .参数 hCursor, 整数型

.DLL命令 LoadCursor, 整数型, "user32.dll", "LoadCursorA"
    .参数 hInstance, 整数型
    .参数 lpCursorName, 整数型

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLong, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 SetCursor, 整数型, "user32.dll", "SetCursor"
    .参数 hCursor, 整数型

.DLL命令 ReleaseCapture, 整数型, "user32", "ReleaseCapture"

.DLL命令 mouse_event, , "user32", "mouse_event"
    .参数 dwFlags, 整数型
    .参数 dx, 整数型
    .参数 dy, 整数型
    .参数 cButtons, 整数型
    .参数 dwExtraInfo, 整数型

.DLL命令 GetMessageExtraInfo, 整数型, "user32", "GetMessageExtraInfo"