PECMD自绘模拟Win10无边框窗口

红毛樱木

1. ENVI &Win_W=620
   
2. ENVI &Win_H=535
   
3. ENVI &Dpi=144       //喂一个DPI值，自己想办法获取系统的。
   
4. CALC &WidDpiSetVal=%&Dpi% / 96
   
5. IFEX "%&SystemROOT%\Fonts\msyh.tt*",
   
6. {*
   
7.     ENVI &FontName=微软雅黑
   
8.     ENVI &YsFontSize=13
   
9. }!  
   
10. {*
    
11.     IFEX "%&SystemROOT%\Fonts\simsun.tt*",
    
12.     {*
    
13.         ENVI &FontName=宋体
    
14.         ENVI &YsFontSize=9
    
15.     }!  
    
16.     {*
    
17.         IFEX "%&SystemROOT%\Fonts\segoeui.tt*",
    
18.         {*
    
19.             ENVI &FontName=Segoe UI
    
20.             ENVI &YsFontSize=13
    
21.         }!  
    
22.         {*
    
23.             ENVI &FontName=System
    
24.             ENVI &YsFontSize=13
    
25.         }
    
26.     }
    
27. }
    
28. CALC &DefaultFontSize=%&YsFontSize% * (%&WidDpiSetVal% / 4 + 1)
    
29. ENVI &MainFontSet=ENVI @this.Font=%&DefaultFontSize%:%&FontName%
    
30. IFEX "%&SystemRoot%\Fonts\segmdl2.ttf",     //这个字体好像从Win8开始才有。
    
31. {*
    
32.     SET$-ret GuanBi=0xE106      //关闭按钮
    
33. }!  
    
34. {*
    
35.     IFEX "%&SystemRoot%\Fonts\marlett.ttf",     //这个字体系统必有。
    
36.     {*
    
37.         SET$-ret GuanBi=0x72      //关闭按钮
    
38.     }
    
39. }
    
40. ENVI &PFTitle=CeoMSX
    
41. CALL @MAIN
    
42. _SUB MAIN,W%&Win_W%H%&Win_H%,%&PFTitle%,,%&MyName%,#,,-scale:%&Dpi%
    
43.     ENVI @MAIN.bkcolor=0xFFFFFF*
    
44.     ^%&MainFontSet%
    
45.     LABE -left -vcenter * &MAIN_LABE,L0T0W%&Win_W%H30,    %&PFTitle%        //不能直接这里设置“0xFFFFFF#0xFF9220”，否则会挡住后面的控件。
    
46.     ENVI @&MAIN_LABE.bkcolor=0xFFFFFF#0xFF9220
    
47.     IFEX [ "%&SystemRoot%\Fonts\marlett.ttf" | "%&SystemRoot%\Fonts\segmdl2.ttf" ],
    
48.     {*
    
49.         IFEX "%&SystemRoot%\Fonts\segmdl2.ttf",
    
50.         {*
    
51.             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,,
    
52.         }!  
    
53.         {*
    
54.             IFEX "%&SystemRoot%\Fonts\marlett.ttf",
    
55.             {*
    
56.                 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,,
    
57.             }
    
58.         }
    
59.     }
    
60.     CALL MakeBianKuang MAIN
    
61. _END
    
62. 
    
63. _SUB MakeBianKuang
    
64.     //这里通过Dpi拉伸计算得到的可能是小数，不太准。新方法，直接获取实际宽高后再处理。
    
65.     ENVI @%~1.POS=?::@&&W:&&H
    
66.     LABE+ &MAIN_Top,    //上
    
67.     ENVI @&MAIN_Top.POS=0:0:@%&&W%:1
    
68.     LABE+ &MAIN_End,    //下
    
69.     ENVI @&MAIN_End.POS=0:(%&&H% - 1):@%&&W%:1
    
70.     LABE+ &MAIN_Left,   //左
    
71.     ENVI @&MAIN_Left.POS=0:0:@1:%&&H%
    
72.     LABE+ &MAIN_Right,  //右
    
73.     ENVI @&MAIN_Right.POS=(%&&W% - 1):0:@1:%&&H%
    
74. _END
    

复制代码

效果：

yc2428

谢谢分享

9zhmke

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

weikangqian

帮顶一下

wang1973

谢谢分享！！~

xyzjzlf

谢谢楼主分享！

yyz2191958

谢谢分享

lizhipei78

谢谢分享

reninhouse

感谢分享

2010kingkang

谢谢分享

maisifu

感谢分享！

weikangqian

帮顶一下

wang1126

谢谢分享

pbmmm

感谢分享

guong

感谢分享

夏阳

推荐winmanger里面有个功能

Tatsumki

感谢分享

Anson4

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

19353048280

谢谢分享