PECMD自绘模拟Win10无边框窗口

红毛樱木 · 发表于 2024-5-20 20:47:13

本帖最后由红毛樱木于 2024-6-4 21:38 编辑

ENVI &Win_W=620
ENVI &Win_H=535
ENVI &Dpi=144 //喂一个DPI值，自己想办法获取系统的。
CALC &WidDpiSetVal=%&Dpi% / 96
IFEX "%&SystemROOT%\Fonts\msyh.tt*",
{*
ENVI &FontName=微软雅黑
ENVI &YsFontSize=13
}!
{*
IFEX "%&SystemROOT%\Fonts\simsun.tt*",
{*
ENVI &FontName=宋体
ENVI &YsFontSize=9
}!
{*
IFEX "%&SystemROOT%\Fonts\segoeui.tt*",
{*
ENVI &FontName=Segoe UI
ENVI &YsFontSize=13
}!
{*
ENVI &FontName=System
ENVI &YsFontSize=13
}
}
}
CALC &DefaultFontSize=%&YsFontSize% * (%&WidDpiSetVal% / 4 + 1)
ENVI &MainFontSet=ENVI @this.Font=%&DefaultFontSize%:%&FontName%
IFEX "%&SystemRoot%\Fonts\segmdl2.ttf", //这个字体好像从Win8开始才有。
{*
SET$ GuanBi=0xE106 //关闭按钮
}!
{*
IFEX "%&SystemRoot%\Fonts\marlett.ttf", //这个字体系统必有。
{*
SET$ GuanBi=0x72 //关闭按钮
}
}
ENVI &PFTitle=CeoMSX
CALL @MAIN
_SUB MAIN,W%&Win_W%H%&Win_H%,%&PFTitle%,,%&MyName%,#,,-scale:%&Dpi%
ENVI @MAIN.bkcolor=0xFFFFFF*
^%&MainFontSet%
LABE -left -vcenter * &MAIN_LABE,L0T0W%&Win_W%H30, %&PFTitle% //不能直接这里设置“0xFFFFFF#0xFF9220”，否则会挡住后面的控件。
ENVI @&MAIN_LABE.bkcolor=0xFFFFFF#0xFF9220
IFEX [ "%&SystemRoot%\Fonts\marlett.ttf" | "%&SystemRoot%\Fonts\segmdl2.ttf" ],
{*
IFEX "%&SystemRoot%\Fonts\segmdl2.ttf",
{*
ITEM -color:0xFFFFFF#0xFFFFFFFF#0xFFFFFF#0x2311E8 -font:(%&DefaultFontSize% + 3):Segoe MDL2 Assets**###1# -nscope * ,L(%&Win_W% - (32 * 1) - (ceil(1 * %&WidDpiSetVal%) + 1))T(ceil(1 * %&WidDpiSetVal%) + 1)W32H26,%&GuanBi%,KILL @MAIN,,
}!
{*
IFEX "%&SystemRoot%\Fonts\marlett.ttf",
{*
ITEM -color:0xFFFFFF#0xFFFFFFFF#0xFFFFFF#0x2311E8 -font:(%&DefaultFontSize% + 3):Marlett**###1# -nscope * ,L(%&Win_W% - (32 * 1) - (ceil(1 * %&WidDpiSetVal%) + 1))T(ceil(1 * %&WidDpiSetVal%) + 1)W32H26,%&GuanBi%,KILL @MAIN,,
}
}
}
CALL MakeBianKuang MAIN
_END
_SUB MakeBianKuang
//这里通过Dpi拉伸计算得到的可能是小数，不太准。新方法，直接获取实际宽高后再处理。
ENVI @%~1.POS=?::@&&W:&&H
LABE+ &MAIN_Top, //上
ENVI @&MAIN_Top.POS=0:0:@%&&W%:1
LABE+ &MAIN_End, //下
ENVI @&MAIN_End.POS=0:(%&&H% - 1):@%&&W%:1
LABE+ &MAIN_Left, //左
ENVI @&MAIN_Left.POS=0:0:@1:%&&H%
LABE+ &MAIN_Right, //右
ENVI @&MAIN_Right.POS=(%&&W% - 1):0:@1:%&&H%
_END

复制代码

效果：

yc2428 · 发表于 2024-5-20 20:56:45

谢谢分享

9zhmke · 发表于 2024-5-20 21:05:27

这个是不是CEO Msx 2024版的界面....

weikangqian · 发表于 2024-5-20 21:47:20

帮顶一下

wang1973 · 发表于 2024-5-20 22:03:25

谢谢分享！！~

xyzjzlf · 发表于 2024-5-20 22:21:09

谢谢楼主分享！

yyz2191958 · 发表于 2024-5-21 07:12:27

谢谢分享

lizhipei78 · 发表于 2024-5-21 08:21:33

谢谢分享

reninhouse · 发表于 2024-5-21 08:32:06

感谢分享

2010kingkang · 发表于 2024-5-21 08:34:19

谢谢分享

maisifu · 发表于 2024-5-21 08:53:34

感谢分享！

weikangqian · 发表于 2024-5-21 09:03:18

帮顶一下

wang1126 · 发表于 2024-5-21 09:37:53

谢谢分享

pbmmm · 发表于 2024-5-21 10:47:58

感谢分享

guong · 发表于 2024-5-21 10:55:24

感谢分享

夏阳 · 发表于 2024-5-21 11:42:16

推荐winmanger里面有个功能

Tatsumki · 发表于 2024-5-21 18:10:37

感谢分享

Anson4 · 发表于 2024-5-23 11:45:54

感谢分享！
需要最小化按钮的话，代码是多少呢？

19353048280 · 发表于 2024-5-27 17:28:41

谢谢分享

wn168cn@163.com · 发表于 2024-10-18 21:44:07

感谢分享

远大的理想 · 发表于 2024-10-19 08:23:05

感谢分享

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

[分享] PECMD自绘模拟Win10无边框窗口

点评

评分

浏览过的版块