窗口_限制尺寸 处理空值

最伟大的先知

@项目部004

以下是改进的代码：

  

子程序名	返回值类型	公开	备 注
窗口_限制尺寸	逻辑型		限制窗口拉伸最小尺寸与最大尺寸，超出则无法拉伸。注意：不支持外部窗口。
参数名	类 型	参考	可空	数组	备 注
窗口句柄
最小宽度
最小高度
最大宽度
最大高度

SetPropA (窗口句柄, “minimum width”, 选择 (是否为空 (最小宽度), -1, 最小宽度))
SetPropA (窗口句柄, “minimum height”, 选择 (是否为空 (最小高度), -1, 最小高度))
SetPropA (窗口句柄, “maximum width”, 选择 (是否为空 (最大宽度), -1, 最大宽度))
SetPropA (窗口句柄, “maximum height”, 选择 (是否为空 (最大高度), -1, 最大高度))
返回 (SetPropA (窗口句柄, “Limit size”, SetWindowLongA (窗口句柄, -4, 到整数 (&限制尺寸回调))))

子程序名	返回值类型	公开	备 注
限制尺寸回调	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd
uMsg
wParam
lParam

变量名	类 型	静态	数组	备 注
subproc
maxwin	MINMAXINFO
val

subproc ＝ GetPropA (hwnd, “Limit size”)
如果真 (GetPropA (hwnd, “Cancel the limit”) ＝ 1)
RemovePropA (hwnd, “Limit size”)
RemovePropA (hwnd, “Cancel the limit”)
RemovePropA (hwnd, “minimum width”)
RemovePropA (hwnd, “minimum height”)
RemovePropA (hwnd, “maximum width”)
RemovePropA (hwnd, “maximum height”)
SetWindowLongA (hwnd, -4, subproc)
返回 (0)
如果真 (uMsg ＝ 36)  ' WM_GETMINMAXINFO
CopyMemory_int2minmaxinfo (maxwin, lParam, 40)
val ＝ GetPropA (hwnd, “minimum width”)
如果真 (val ＞ -1)
maxwin.ptMinTrackSize.横 ＝ val
val ＝ GetPropA (hwnd, “minimum height”)
如果真 (val ＞ -1)
maxwin.ptMinTrackSize.纵 ＝ val
val ＝ GetPropA (hwnd, “maximum width”)
如果真 (val ＞ -1)
maxwin.ptMaxTrackSize.横 ＝ val
val ＝ GetPropA (hwnd, “maximum height”)
如果真 (val ＞ -1)
maxwin.ptMaxTrackSize.纵 ＝ val
CopyMemory_minmaxinfo2int (lParam, maxwin, 40)
返回 (CallWindowProcA (subproc, hwnd, uMsg, wParam, lParam))

.版本 2<br /> <br /> .子程序 窗口_限制尺寸, 逻辑型, 公开, 限制窗口拉伸最小尺寸与最大尺寸，超出则无法拉伸。注意：不支持外部窗口。<br /> .参数 窗口句柄<br /> .参数 最小宽度, , 可空<br /> .参数 最小高度, , 可空<br /> .参数 最大宽度, , 可空<br /> .参数 最大高度, , 可空<br /> <br /> SetPropA (窗口句柄, “minimum width”, 选择 (是否为空 (最小宽度), -1, 最小宽度))<br /> SetPropA (窗口句柄, “minimum height”, 选择 (是否为空 (最小高度), -1, 最小高度))<br /> SetPropA (窗口句柄, “maximum width”, 选择 (是否为空 (最大宽度), -1, 最大宽度))<br /> SetPropA (窗口句柄, “maximum height”, 选择 (是否为空 (最大高度), -1, 最大高度))<br /> 返回 (SetPropA (窗口句柄, “Limit size”, SetWindowLongA (窗口句柄, -4, 到整数 (&限制尺寸回调))))<br /> <br /> .子程序 限制尺寸回调, 整数型<br /> .参数 hwnd<br /> .参数 uMsg<br /> .参数 wParam<br /> .参数 lParam<br /> .局部变量 subproc<br /> .局部变量 maxwin, MINMAXINFO<br /> .局部变量 val<br /> <br /> subproc ＝ GetPropA (hwnd, “Limit size”)<br /> .如果真 (GetPropA (hwnd, “Cancel the limit”) ＝ 1)<br />     RemovePropA (hwnd, “Limit size”)<br />     RemovePropA (hwnd, “Cancel the limit”)<br />     RemovePropA (hwnd, “minimum width”)<br />     RemovePropA (hwnd, “minimum height”)<br />     RemovePropA (hwnd, “maximum width”)<br />     RemovePropA (hwnd, “maximum height”)<br />     SetWindowLongA (hwnd, -4, subproc)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (uMsg ＝ 36)  ' WM_GETMINMAXINFO<br />     CopyMemory_int2minmaxinfo (maxwin, lParam, 40)<br />     val ＝ GetPropA (hwnd, “minimum width”)<br />     .如果真 (val ＞ -1)<br />         maxwin.ptMinTrackSize.横 ＝ val<br />     .如果真结束<br />     val ＝ GetPropA (hwnd, “minimum height”)<br />     .如果真 (val ＞ -1)<br />         maxwin.ptMinTrackSize.纵 ＝ val<br />     .如果真结束<br />     val ＝ GetPropA (hwnd, “maximum width”)<br />     .如果真 (val ＞ -1)<br />         maxwin.ptMaxTrackSize.横 ＝ val<br />     .如果真结束<br />     val ＝ GetPropA (hwnd, “maximum height”)<br />     .如果真 (val ＞ -1)<br />         maxwin.ptMaxTrackSize.纵 ＝ val<br />     .如果真结束<br />     CopyMemory_minmaxinfo2int (lParam, maxwin, 40)<br /> .如果真结束<br /> 返回 (CallWindowProcA (subproc, hwnd, uMsg, wParam, lParam))