自动缩放界面组件-改进下，修复分组框，增加锚点

zxxiaopi · 发表于 2024-9-29 16:29:51

改进下上次那个自动缩放，增加了控件锚点，同时，修复分组框这种父控件的问题，记得也要缩放父控件，然后子控件就可以了。父控件和子控件实测没有先后。

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

调试输出 (初始化自动缩放 (取窗口句柄 ()))
添加自动缩放组件 (编辑框1.取窗口句柄 (), 0, 0, 1, 0)
添加自动缩放组件 (编辑框2.取窗口句柄 (), 0, 0, 1, 0)
添加自动缩放组件 (按钮1.取窗口句柄 (), 1, 0, 1, 0)
添加自动缩放组件 (分组框1.取窗口句柄 (), 1, 1, 1, 1)

子程序名	返回值类型	公开	备注
__启动窗口_可否被关闭	逻辑型

释放自动缩放 ()

i支持库列表	支持库注释
spec	特殊功能支持库

还是基于.net4.0的c#

[C#] 纯文本查看 复制代码

using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;

namespace AutoScalingDLL
{
    public class AutoScaler
    {
        [DllImport("user32.dll")]
        private static extern IntPtr SetWindowsHookEx(int idHook, HookProc lpfn, IntPtr hMod, uint dwThreadId);

        [DllImport("user32.dll")]
        private static extern bool UnhookWindowsHookEx(IntPtr hhk);

        [DllImport("user32.dll")]
        private static extern IntPtr CallNextHookEx(IntPtr hhk, int nCode, IntPtr wParam, IntPtr lParam);

        [DllImport("kernel32.dll")]
        private static extern uint GetCurrentThreadId();

        [DllImport("user32.dll")]
        private static extern bool GetWindowRect(IntPtr hWnd, out RECT lpRect);

        [DllImport("user32.dll")]
        private static extern bool MoveWindow(IntPtr hWnd, int X, int Y, int nWidth, int nHeight, bool bRepaint);

        [DllImport("user32.dll")]
        private static extern bool ScreenToClient(IntPtr hWnd, ref POINT lpPoint);

        [DllImport("user32.dll")]
        private static extern IntPtr GetParent(IntPtr hWnd);

        private const int WH_CALLWNDPROC = 4;
        private const int WM_SIZE = 0x0005;

        private delegate IntPtr HookProc(int nCode, IntPtr wParam, IntPtr lParam);

        [StructLayout(LayoutKind.Sequential)]
        private struct CWPSTRUCT
        {
            public IntPtr lParam;
            public IntPtr wParam;
            public int message;
            public IntPtr hwnd;
        }

        [StructLayout(LayoutKind.Sequential)]
        private struct RECT
        {
            public int Left;
            public int Top;
            public int Right;
            public int Bottom;
        }

        [StructLayout(LayoutKind.Sequential)]
        private struct POINT
        {
            public int X;
            public int Y;
        }

        private static IntPtr _hookHandle = IntPtr.Zero;
        private static HookProc _hookProc;
        private static IntPtr _mainWindowHandle;
        private static Dictionary<IntPtr, ControlInfo> _controls = new Dictionary<IntPtr, ControlInfo>();
        private static RECT _originalWindowRect;

        private class ControlInfo
        {
            public float LeftRatio;
            public float TopRatio;
            public float WidthRatio;
            public float HeightRatio;
            public bool AnchorLeft;
            public bool AnchorTop;
            public bool AnchorRight;
            public bool AnchorBottom;
            public IntPtr ParentHandle;
        }

        [DllExport("InitializeAutoScaling", CallingConvention = CallingConvention.StdCall)]
        public static bool InitializeAutoScaling(IntPtr hWnd)
        {
            if (_hookHandle != IntPtr.Zero)
            {
                return false; // Already initialized
            }

            _mainWindowHandle = hWnd;
            GetWindowRect(_mainWindowHandle, out _originalWindowRect);

            _hookProc = new HookProc(WindowProc);
            _hookHandle = SetWindowsHookEx(WH_CALLWNDPROC, _hookProc, IntPtr.Zero, GetCurrentThreadId());

            return _hookHandle != IntPtr.Zero;
        }

        [DllExport("AddControlToAutoScale", CallingConvention = CallingConvention.StdCall)]
        public static bool AddControlToAutoScale(IntPtr hWnd, int anchorLeft, int anchorTop, int anchorRight, int anchorBottom)
        {
            if (_hookHandle == IntPtr.Zero || _controls.ContainsKey(hWnd))
            {
                return false;
            }

            RECT controlRect;
            GetWindowRect(hWnd, out controlRect);

            IntPtr parentHandle = GetParent(hWnd);
            RECT parentRect;
            GetWindowRect(parentHandle, out parentRect);

            POINT topLeft = new POINT { X = controlRect.Left, Y = controlRect.Top };
            POINT bottomRight = new POINT { X = controlRect.Right, Y = controlRect.Bottom };
            ScreenToClient(parentHandle, ref topLeft);
            ScreenToClient(parentHandle, ref bottomRight);

            int parentWidth = parentRect.Right - parentRect.Left;
            int parentHeight = parentRect.Bottom - parentRect.Top;

            ControlInfo info = new ControlInfo
            {
                LeftRatio = (float)topLeft.X / parentWidth,
                TopRatio = (float)topLeft.Y / parentHeight,
                WidthRatio = (float)(bottomRight.X - topLeft.X) / parentWidth,
                HeightRatio = (float)(bottomRight.Y - topLeft.Y) / parentHeight,
                AnchorLeft = anchorLeft != 0,
                AnchorTop = anchorTop != 0,
                AnchorRight = anchorRight != 0,
                AnchorBottom = anchorBottom != 0,
                ParentHandle = parentHandle
            };

            _controls.Add(hWnd, info);
            return true;
        }

        private static IntPtr WindowProc(int nCode, IntPtr wParam, IntPtr lParam)
        {
            if (nCode >= 0)
            {
                CWPSTRUCT cwp = (CWPSTRUCT)Marshal.PtrToStructure(lParam, typeof(CWPSTRUCT));

                if (cwp.message == WM_SIZE)
                {
                    foreach (var kvp in _controls)
                    {
                        IntPtr controlHandle = kvp.Key;
                        ControlInfo info = kvp.Value;

                        RECT parentRect;
                        GetWindowRect(info.ParentHandle, out parentRect);
                        int parentWidth = parentRect.Right - parentRect.Left;
                        int parentHeight = parentRect.Bottom - parentRect.Top;

                        int newLeft = info.AnchorLeft ? (int)(info.LeftRatio * parentWidth) : (int)(info.LeftRatio * parentWidth);
                        int newTop = info.AnchorTop ? (int)(info.TopRatio * parentHeight) : (int)(info.TopRatio * parentHeight);
                        int newRight = info.AnchorRight ? parentWidth - (int)((1 - info.LeftRatio - info.WidthRatio) * parentWidth) : newLeft + (int)(info.WidthRatio * parentWidth);
                        int newBottom = info.AnchorBottom ? parentHeight - (int)((1 - info.TopRatio - info.HeightRatio) * parentHeight) : newTop + (int)(info.HeightRatio * parentHeight);

                        int newControlWidth = newRight - newLeft;
                        int newControlHeight = newBottom - newTop;

                        MoveWindow(controlHandle, newLeft, newTop, newControlWidth, newControlHeight, true);
                    }
                }
            }

            return CallNextHookEx(_hookHandle, nCode, wParam, lParam);
        }

        [DllExport("FinalizeAutoScaling", CallingConvention = CallingConvention.StdCall)]
        public static void FinalizeAutoScaling()
        {
            if (_hookHandle != IntPtr.Zero)
            {
                UnhookWindowsHookEx(_hookHandle);
                _hookHandle = IntPtr.Zero;
            }
            _controls.Clear();
        }
    }
}

DLL命令名	返回值类型	公开	备注
初始化自动缩放	逻辑型
DLL库文件名:
AutoScalingDLL.dll
在DLL库中对应命令名:
InitializeAutoScaling
参数名	类型	传址	数组	备注
hWnd	整数型

DLL命令名	返回值类型	公开	备注
添加自动缩放组件	逻辑型
DLL库文件名:
AutoScalingDLL.dll
在DLL库中对应命令名:
AddControlToAutoScale
参数名	类型	传址	数组	备注
hWnd	整数型			控件句柄
anchorLeft	整数型			左边，=1，那就保持和界面左边比列不变，会缩放，=0，就是不动
anchorTop	整数型			上边
anchorRight	整数型			右边
anchorBottom	整数型			下边

DLL命令名	返回值类型	公开	备注
释放自动缩放
DLL库文件名:
AutoScalingDLL.dll
在DLL库中对应命令名:
FinalizeAutoScaling
参数名	类型	传址	数组	备注

aijianli · 发表于 2024-12-8 10:54:11

例子发上来呗我的咋提示错误(10003): 指定Dll命令名称“初始化自动缩放”未找到。加了DLL命令了啊

熊不熊 · 发表于 2024-12-4 10:53:01

感谢分享，很给力！~

xuaswq · 发表于 2024-11-13 15:19:23

感谢分享

nymanyim · 发表于 2024-11-6 16:21:37

新版EXUI无效，旧版不支持容器内的子组件一起缩放

lzptts · 发表于 2024-10-3 12:44:54

感谢分享

Av0x · 发表于 2024-10-3 12:27:38

666大佬

please · 发表于 2024-10-3 09:39:35

感谢分享，支持开源！！！

byronzhj · 发表于 2024-10-2 10:34:33

感谢分享，之前版本也使用过

xtavoxing · 发表于 2024-10-1 11:37:44

感谢分享，很给力！~

		自动登录	找回密码
密码			注册

[易语言纯源码] 自动缩放界面组件-改进下，修复分组框，增加锚点

评分