|
本帖最后由 gxbcm 于 2025-8-12 13:25 编辑
留下足印:DPI拉伸
_SUB SETdpi *
CALL $User32.dll,SetProcessDPIAware //9600(文件版本第3段)以下系统,开启DPI感知
CALL $Shcore.dll,SetProcessDPIAwareness,#1 //9600(文件版本第3段)或以上系统,开启DPI感知
CALL $--qd --bool User32.dll,SetProcessDpiAwarenessContext,#-4 //15063(文件版本第3段)或以上系统,界面随DPI动态拉伸
SET &hdcCount=0
LOOP #1=1,
{*
CALL $--ret:&&hdc User32.dll,GetDC,#0
CALC #&&hdcCount=%hdcCount%+1
IFEX $%hdcCount%>50, EXIT
IFEX $%hdc%>0, EXIT
WAIT 0.9
}
SET &ScaleCMD=-scalef -scale
IFEX $%hdc%>0,
{*
CALL $--ret:&&LogPixeLsx Gdi32.dll,GetDeviceCaps,#%hdc%,#88
SET &ScaleCMD=-scalef:%LogPixeLsx% -scale:%LogPixeLsx%
}
_END
_SUB SETfont *
SET &Font_Size=12
SET &Font_Cmd=IFEX %windir%\fonts\simsun*, ENVI @this.Font=%Font_Size%:simsun! ENVI @this.Font=%Font_Size%
_END
|
|