[算法]自由缩放&比例缩放 窗口

997502977

调用代码

  

判断 (msg ＝ 512)  ' 鼠标移动
坐标X ＝ 取高位_短 (lParam)  ' x
坐标Y ＝ 取低位_短 (lParam)  ' y
如果真 (缩放_移动 (坐标X, 坐标Y, 窗口尺寸, 真))
窗口矩形 ＝ 窗口_取矩形 (hwnd)
MoveWindow (hwnd, 窗口矩形.左边, 窗口矩形.顶边, 窗口尺寸.宽度, 窗口尺寸.高度, 真)

判断 (msg ＝ 513)  ' 按下
坐标X ＝ 取高位_短 (lParam)  ' x
坐标Y ＝ 取低位_短 (lParam)  ' y
窗口矩形 ＝ 窗口_取矩形 (hwnd)
窗口尺寸.宽度 ＝ 窗口矩形.右边 － 窗口矩形.左边
窗口尺寸.高度 ＝ 窗口矩形.底边 － 窗口矩形.顶边
缩放_按下 (窗口尺寸, 坐标X, 坐标Y)
鼠标_捕获 (hwnd)
返回 (1)
判断 (msg ＝ 514)  ' 松开
鼠标_释放 ()
缩放_放开 ()

.版本 2<br /> <br /> .判断开始 (msg ＝ 512)  ' 鼠标移动<br />     坐标X ＝ 取高位_短 (lParam)  ' x<br />     坐标Y ＝ 取低位_短 (lParam)  ' y<br />     .如果真 (缩放_移动 (坐标X, 坐标Y, 窗口尺寸, 真))<br />         窗口矩形 ＝ 窗口_取矩形 (hwnd)<br />         MoveWindow (hwnd, 窗口矩形.左边, 窗口矩形.顶边, 窗口尺寸.宽度, 窗口尺寸.高度, 真)<br />     .如果真结束<br /> <br /> .判断 (msg ＝ 513)  ' 按下<br />     坐标X ＝ 取高位_短 (lParam)  ' x<br />     坐标Y ＝ 取低位_短 (lParam)  ' y<br />     窗口矩形 ＝ 窗口_取矩形 (hwnd)<br />     窗口尺寸.宽度 ＝ 窗口矩形.右边 － 窗口矩形.左边<br />     窗口尺寸.高度 ＝ 窗口矩形.底边 － 窗口矩形.顶边<br />     缩放_按下 (窗口尺寸, 坐标X, 坐标Y)<br />     鼠标_捕获 (hwnd)<br />     返回 (1)<br /> .判断 (msg ＝ 514)  ' 松开<br />     鼠标_释放 ()<br />     缩放_放开 ()

功能代码

游客，如果您要查看本帖隐藏内容请回复