易语言设置控件描点源码 [db:版本]

易语言设置控件描点源码

系统结构:新窗口程序,设置控件锚点,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
.参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;