997502977 发表于 2024-1-12 19:31:25

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

调用代码

.版本 2

.判断开始 (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)' 松开
    鼠标_释放 ()
    缩放_放开 ()



功能代码
**** Hidden Message *****

页: [1]
查看完整版本: [算法]自由缩放&比例缩放 窗口