易语言设置控件描点源码

系统结构:新窗口程序,设置控件锚点,FindWindowEx,SetWindowPos,GetClientRect,GetWindowPlacement,SetWindowLong,CallWindowProc,取父窗口_,

======同步缩放窗口
           |  |
           |  |------ 新窗口程序
           |  |
           |  |------ 设置控件锚点
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   GetWindowPlacement
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   取父窗口_

调用的DLL命令:

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
    .参数 hwnd1, 整数型
    .参数 hwnd2, 整数型
    .参数 lpsz1, 整数型
    .参数 lpsz2, 整数型

.DLL命令 SetWindowPos, 整数型, , "SetWindowPos"
    .参数 hwnd, 整数型
    .参数 hWndInsertAfter, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 cx, 整数型
    .参数 cy, 整数型
    .参数 wFlags, 整数型

.DLL命令 GetClientRect, 整数型, , "GetClientRect"
    .参数 hwnd, 整数型
    .参数 lpRect, Rect, 传址

.DLL命令 GetWindowPlacement, 整数型, , "GetWindowPlacement"
    .参数 hwnd, 整数型
    .参数 lpwndpl, WINDOWPLACEMENT, 传址

.DLL命令 SetWindowLong, 子程序指针, , "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nlndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProc, 子程序指针, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 IParam, 整数型

.DLL命令 取父窗口_, 整数型, , "GetParent", , 判断指定窗口的父窗口  父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;