[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

freesoft00 · 发表于 2023-4-27 19:41:57

mdyblog 发表于 2023-4-27 19:06
ENVI$ &&NL=0D 0A
ENVI$ &&NLd=0D
ENVI$ &&NLa=0A

http://bbs.wuyou.net/forum.php?m ... 85&fromuid=1345

zhangjiti · 发表于 2023-4-27 21:36:00

谢谢提供分享

smss · 发表于 2023-4-28 08:47:45

https://wwi.lanzoui.com/b0wh8vjc
最新版本BUG 当PNG图片编译入EXE后 CHEK 开关无法正常显示
例
CHEK -scale:(50*96/12)<116:50>:%开关% 给朕连网,L375T194W46H20,,REGI $HKU\.DEFAULT\Software\Smss\\连网=%给朕连网.Check%

感恩M大辛勤付出这需要大量时间和精力我可以知道你的联系方式吗？你已经帮助我很多次了

红毛樱木 · 发表于 2023-4-28 11:53:07

smss 发表于 2023-4-28 08:47
https://wwi.lanzoui.com/b0wh8vjc
最新版本BUG 当PNG图片编译入EXE后 CHEK 开关无法正常显示
例

#1|PNG
这种格式。0422支持了的呀。

smss · 发表于 2023-4-28 15:24:14

//注意 Image1是个EXE的图标加载会卡详见https://pecmd.net/thread-522.htm

IMAG Image1,L6T422W73H73,%MyName%,call ico,
CALL setSOURCE

_SUB setSOURCE
FORX * &L8 &L9,i,
{* FNAM-ext &tmpNAME=%&fir%
FIND $%&tmpNAME%=,ENVI &fir=
ENVI @%i%.SEL=%&fir%
^FIND $%%%i%%%<>%%&fir%%,ENVI @%i%.ADDSEL=%&fir%
FIND $%i%=&L8,TEAM WAIT 555|ENVI @Image1.update=:::::;%&fir%#0
}
_END

红毛樱木 · 发表于 2023-4-28 15:45:36

smss 发表于 2023-4-28 15:24
//注意 Image1是个EXE的图标加载会卡详见https://pecmd.net/thread-522.htm

IMAG Image1,L6T422W73H73 ...

贴一个最小能重现问题的代码呗。
你这代码也不知道怎么玩

mdyblog · 发表于 2023-4-28 20:23:57

826773297 发表于 2023-4-14 12:47
pecmd能否创建无边框的圆角窗口，最好是带阴影效果

要么系统本身支持，如XP视觉。
要么自己做，窗口用蒙板。直角扣掉。

smss · 发表于 2023-4-29 06:06:55

写个桌面可以移动插件，该插件被限制在屏幕的最上方，可左右拖拽移动，无法上下移动,拖拽下拉该控件有回弹的效果,松开可以切换壁纸。右键点击该插件可以弹出菜单。
以下是基本的C++程序代码思路和一些需要用到的API函数可以翻译下吗

1. 定义控件的初位置和大小，设置控件可以接受鼠标消息。
```
HWND hWnd = CreateWindowEx(WS_EX_TRANSPARENT, L"STATIC", L"", WS_VISIBLE | WS_CHILD | WS_CLIPSIBLINGS | SS_BITMAP, xPos, yPos, width, height, parentHwnd, NULL, hInstance, NULL);
SetWindowLongPtr(hWnd, GWL_STYLE, GetWindowLongPtr(hWnd, GWL_STYLE) | WS_EX_ACCEPTFILES);
```
2. 实现鼠标拖拽和回弹的效果。需要用到以下函数：GetCursorPos、SetCursorPos、ScreenToClient、ClientToScreen、SendMessage、ReleaseCapture。
```
case WM_LBUTTONDOWN:
{
ReleaseCapture();
POINT cursorPos;
GetCursorPos(&cursorPos);
ScreenToClient(hWnd, &cursorPos);
SetCursorPos(cursorPos.x, cursorPos.y);
m_bDragging = true;
m_ptStartPos = cursorPos;
break;
}
case WM_MOUSEMOVE:
{
if (m_bDragging)
{
POINT cursorPos;
GetCursorPos(&cursorPos);
ScreenToClient(hWnd, &cursorPos);
int delta = cursorPos.x - m_ptStartPos.x;
int xPos = m_ptStartPos.x + delta;
xPos = max(xPos, 0);
RECT rcParent;
GetClientRect(GetParent(hWnd), &rcParent);
xPos = min(xPos, rcParent.right - m_width);
SetWindowPos(hWnd, NULL, xPos, m_yPos, 0, 0, SWP_NOACTIVATE | SWP_NOSIZE | SWP_NOZORDER);
m_ptLastPos = cursorPos;
}
break;
}
case WM_LBUTTONUP:
{
if (m_bDragging)
{
m_bDragging = false;
if (m_ptLastPos.x < m_ptStartPos.x)
{
SendMessage(hWnd, WM_MOVE, 0, MAKELPARAM(0, m_yPos));
}
else if (m_ptLastPos.x > m_ptStartPos.x)
{
SendMessage(hWnd, WM_MOVE, 0, MAKELPARAM(rcParent.right - m_width, m_yPos));
}
}
break;
}
```
3. 实现切换壁纸的功能，需要用到以下函数：SystemParametersInfo。
```
case WM_LBUTTONUP:
{
if (m_bDragging)
{
// ...
// 切换壁纸
m_bmpIndex = (m_bmpIndex + 1) % m_bmpList.size();
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, (PVOID)m_bmpList[m_bmpIndex].c_str(), SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE);
break;
}
}
```
4. 实现右键菜单的弹出，需要用到以下函数：CreatePopupMenu、AppendMenu、TrackPopupMenu、DestroyMenu。
```
case WM_CONTEXTMENU:
{
HMENU hPopupMenu = CreatePopupMenu();
AppendMenu(hPopupMenu, MF_STRING, ID_MENU_ITEM1, L"菜单项1");
AppendMenu(hPopupMenu, MF_STRING, ID_MENU_ITEM2, L"菜单项2");
AppendMenu(hPopupMenu, MF_STRING, ID_MENU_ITEM3, L"菜单项3");
TrackPopupMenu(hPopupMenu, TPM_TOPALIGN | TPM_LEFTALIGN, ptCursor.x, ptCursor.y, 0, hWnd, NULL);
DestroyMenu(hPopupMenu);
break;
}
```

复制代码

smss · 发表于 2023-4-29 06:12:44

https://share.weiyun.com/3f5byXyB
效果如上

smss · 发表于 2023-4-29 20:39:07

了凡Win11_22624.1680_PE链接:https://share.weiyun.com/USJIeYYn 密码:qi8fk6

泮安宁 · 发表于 2023-4-29 21:08:47

红毛樱木发表于 2023-4-28 15:45
贴一个最小能重现问题的代码呗。
你这代码也不知道怎么玩

红毛大佬，list控件怎么设置字体啊，最新的这一版我用envi还是不能设置

826773297 · 发表于 2023-4-30 10:12:03

https://blog.csdn.net/vod21/article/details/79736662

翻译一下这个api

826773297 · 发表于 2023-4-30 10:50:47

smss 发表于 2023-4-29 06:06
写个桌面可以移动插件，该插件被限制在屏幕的最上方，可左右拖拽移动，无法上下移动,拖拽下拉该控件有回弹 ...

这很简单

826773297 · 发表于 2023-4-30 11:02:44

smss 发表于 2023-4-29 06:12
https://share.weiyun.com/3f5byXyB
效果如上

_SUB WIN1,W633H344,新窗口1,,,-#:
SWIN -:SWIN1,L123T50W30H30,,

_END
win1
_sub swin1,w30h30,,,,:
IMAG IMAG1,L0T0W30H30,#1,
ENVI @SWIN1.HitTest=30:30
envI @sWIN1.MSG=0x0232::&&wp,&&lp, team envI @swin1.POS=?左:上|mess %&wp% - %&lp% - %左% - %上%|envI @swin1.POS=123:50|wait 10000|kill \
_end

826773297 · 发表于 2023-4-30 11:12:50

泮安宁发表于 2023-4-29 21:08
红毛大佬，list控件怎么设置字体啊，最新的这一版我用envi还是不能设置

设置全局字体倒是可以

_SUB WIN1,W383H367,新窗口1,
LIST LIST1,L144T51W60H100,LIST1,
ENVI @WIN1.Font=10:微软雅黑
_END
win1

826773297 · 发表于 2023-4-30 11:23:51

mdyblog 发表于 2023-4-28 20:23
要么系统本身支持，如XP视觉。
要么自己做，窗口用蒙板。直角扣掉。

https://learn.microsoft.com/zh-c ... ply-rounded-corners
https://blog.csdn.net/weixin_33878457/article/details/92954789
https://blog.csdn.net/dxm809/article/details/114013296
这些不知道有没有用

还有如何建立环形进度条

826773297 · 发表于 2023-4-30 11:30:39

mdyblog 发表于 2023-4-28 20:23
要么系统本身支持，如XP视觉。
要么自己做，窗口用蒙板。直角扣掉。

https://blog.csdn.net/rmxming/article/details/11661365
https://www.cnblogs.com/strive-sun/p/14247220.html
https://blog.csdn.net/weixin_34364071/article/details/92546647
无边框窗口设置阴影效果有办法吗

826773297 · 发表于 2023-4-30 11:40:13

smss 发表于 2023-4-29 06:06
写个桌面可以移动插件，该插件被限制在屏幕的最上方，可左右拖拽移动，无法上下移动,拖拽下拉该控件有回弹 ...

回弹自己写定时器缓慢移动控件即可
右键更简单，pecmd示例就有

smss · 发表于 2023-4-30 11:42:51

很久以前用写小米主题锁屏时一个音乐进度使用的是蒙版 PECMD对图片展示锯齿太多旋转估计更多
<Image src="player_dian.png" x="#screen_width/2" y="162" angle="#music_control.music_position/#music_control.music_duration*360" align="center" alignV="center" centerX="28" centerY="128"/>

826773297 · 发表于 2023-4-30 11:47:10

mdyblog 发表于 2023-4-28 20:23
要么系统本身支持，如XP视觉。
要么自己做，窗口用蒙板。直角扣掉。

M大什么时候入驻PECMD社区

pecmd.net

smss · 发表于 2023-4-30 11:48:06

<!--以下是用圆环中的一部分做为电量进度动画效果也需要蒙版->
<Text x="557" y="125" color="#000000" size="26" format="%d%%" paras="#battery_level" align="center" alignV="center"/>
<Image x="418" y="280" align="center" alignV="center" src="battery_bg.webp"/>
<Image x="418" y="280" align="center" alignV="center" srcExp="'battery'+#Color_id+'.webp">
<Mask w="213" h="426" src="wave_9.webp" pivotX="213" pivotY="213" rotation="ifelse(eq(1,#battery_state),#angle0,min(#battery_level,100)/100*140+70)"/>
</Image>

smss · 发表于 2023-4-30 14:52:14

还有很大差距还不如固定在那

team ENVI &::WM_TRAYNOTIFY=1109|SET ::WM_RBUTTONDOWN=0x0204|SCRN &ScrW,&ScrH|CALC &L=%&ScrW%*0.618|CALL @WIN1
_SUB WIN1,L0T0W%&ScrW%H100,挂件,,,#-:,,%&ScaleCMD%
ENVI @this.MSG=_%&::WM_TRAYNOTIFY%::&&wp,&&lp,CALL DoMenu2 %&wp% %&lp%
SWIN -:SWIN1,L%&L%T0W32H68,,
TIPS* ,挂件,,,%小标%
_END
_sub swin1,W32H68,,,,:
IMAG MyCtr01,L0T0W32H68,#1,
ENVI @SWIN1.HitTest=32:68
envI @sWIN1.MSG=0x0232::&&wp,&&lp, team envI @swin1.POS=?左:上|envI @swin1.POS=%左%:0|了然壁纸
_END
_SUB DoMenu2
IFEX $%&::WM_RBUTTONDOWN%=%2,CALL @--popmenu RMenu2
_END
_SUB RMenu2
MENU ,退出,KILL \,,??SHELL32.dll#27
_END

复制代码

泮安宁 · 发表于 2023-4-30 15:59:54

826773297 发表于 2023-4-30 11:12
设置全局字体倒是可以

不要全局，只要这一个，一设置字体直接打不开了

2010wxy · 发表于 2023-4-30 16:26:49

谢谢楼主分享

826773297 · 发表于 2023-4-30 17:49:23

泮安宁发表于 2023-4-30 15:59
不要全局，只要这一个，一设置字体直接打不开了

不建议用pecmd自带的list控件，太丑了，可自定义性差，用swin把

826773297 · 发表于 2023-4-30 17:50:39

smss 发表于 2023-4-30 14:52
还有很大差距还不如固定在那

什么差距，不能拖吗

泮安宁 · 发表于 2023-4-30 18:14:53

826773297 发表于 2023-4-30 17:49
不建议用pecmd自带的list控件，太丑了，可自定义性差，用swin把

list简单，能用就行

红毛樱木 · 发表于 2023-4-30 18:50:04

826773297 发表于 2023-4-30 17:49
不建议用pecmd自带的list控件，太丑了，可自定义性差，用swin把

swin怎么充当list用呀

泮安宁 · 发表于 2023-5-1 16:07:17

调整窗口大小后为什么不能滚动呢
WIN1
_SUB WIN1,W287H254,新窗口1,
SWIN swin1:WIN2,L0T0W287H254,,0x100
_END
_SUB WIN2,W287H200,,,,,,
ITEM ITEM1,L91T109W60H30,ITEM1,ENVI @this.pos=:::100000
_END

Anson4 · 发表于 2023-5-2 22:48:41

本帖最后由 Anson4 于 2023-5-3 10:00 编辑

去年4月份的时候，M大提供了浏览选择文件夹和文件时的对话框风格与浏览选择文件时对话框风格一样的示例，后来经过5大的修改，以及我自己根据需要调整了一下。
现在待解决的问题如下：
1. 在窗口的宽度被拉大的时候，文件类型选择下拉框的宽度会向左自动拉长，如何才能去除其该特性，保持静态的宽度呢？
2. 示例仅支持返回选择单个文件夹，如何才能实现支持文件夹多选呢？
3. 示例选择多个文件时，返回的结果只有第一个包含路径而且不正常，其余的不包含，如何才能实现返回的所有文件都包含正常的路径呢？

BrowDirX_Click_A4.zip (3.08 KB, 下载次数: 1)

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

[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

点评

点评

点评

点评

点评

点评

点评

点评

评分

点评

评分

点评

评分

评分

点评

点评

点评

点评