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

mdyblog

826773297 发表于 2022-7-25 10:00
#code=950T936
ENVI^ EnviMode=1
ENVI^ ForceLocal=1

控件 和 子窗口 等大  就不滚动了。

    swin swin3:Win3:-SwinMain3,L0T100W350H50,,  ===》
    swin swin3:Win3:-SwinMain3,L0T100W350H100,,
----
_sub Win3,W350H100,,,,,, %ScaleCMD%

控件 swin3 和 子窗口 Win3 等大

826773297

mdyblog 发表于 2022-7-25 10:13
控件 和 子窗口 等大  就不滚动了。

    swin swin3:Win3:-SwinMain3,L0T100W350H50,,  ===》

最好是不等大也不滚动。这样才好仿超级按钮，要滚动的时候才滚动

826773297

swin窗口的优势就在于多控件整合，鼠标滚动控制很关键

826773297

加一个禁止滚动的参数即可

826773297

这样我的按钮排版就不会乱

mdyblog

826773297 发表于 2022-7-25 10:27
这样我的按钮排版就不会乱

最新版试试。即使不等大， 默认也不滚动。
不知道这样是否有（滚轮方面的）副作用。 先用用试试。

826773297

mdyblog 发表于 2022-7-25 11:26
最新版试试。及时不等大， 默认也不滚动。
不知道这样是否有（滚轮方面的）副作用。 先用用试试。

哦。我回去后试一下

红毛樱木

mdyblog 发表于 2022-7-25 11:26
最新版试试。即使不等大， 默认也不滚动。
不知道这样是否有（滚轮方面的）副作用。 先用用试试。

从字面理解“默认也不滚动”  就有问题了吧。。。

mdyblog

红毛樱木 发表于 2022-7-25 13:44
从字面理解“默认也不滚动”  就有问题了吧。。。

没有 用 0x180 打开滚动条。

826773297

很多老外盯上了pecmd编程

shmoss

PUTF不出BITMAP中的资源 劳M大修复下

1. IFEX~ %CurDir%\WIFI.dll,set 图标=%CurDir%\WIFI.dll
   
2. WIN1
   
3. _SUB WIN1,W516H444,窗口,
   
4.      IMAG ,L6T10W60H60,%图标%#1|BITMAP
   
5.      PUTF* %_CD%\1.bmp,,"%图标%""#1|BITMAP"
   
6.      PUTF* %_CD%\2.bmp,,"%图标%""#1|EXEDATA"
   
7. _END

复制代码

新建文件夹.7z (9.91 KB, 下载次数: 8)

2022-7-25 19:55 上传

点击文件名下载附件
下载积分: 无忧币 -2

mdyblog

shmoss 发表于 2022-7-25 19:57
PUTF不出BITMAP中的资源 劳M大修复下

PUTF* %_CD%\1.bmp,,"%图标%""#1|BITMAP"
----->
ENVI BITMAP=#2
PUTF* %_CD%\1.bmp,,"%图标%""#1|%BITMAP%"
-----------------------
https://www.cnblogs.com/findumars/p/6329510.html
RT_BITMAP

826773297

mdyblog 发表于 2022-7-25 21:32
PUTF* %_CD%\1.bmp,,"%图标%""#1|BITMAP"
----->
ENVI BITMAP=#2

#code=950T936
ENVI^ EnviMode=1
ENVI^ ForceLocal=1
SET  &::WM_MOUSELEAVE=0x02A3
SET  &::WM_MOUSEENTER=0x1000
SET  &::WM_LBUTTONDOWN=0x0201
call GetDpiPercent
call @Page1

_sub Page1,W350H500,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
    LABE -left -trans WLAN,W100H30,WLAN,,ffffff,12:宋体**####3
   swin swin1:Win1:-SwinMain1,l1 t20 w340 h400,,0x180
_end
_sub Win1,W340H800,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
swin swin2:Win2:-SwinMain2,l0 t0 w340 h100,,
swin swin3:Win3:-SwinMain3,l0 t450 w340 h50,,
_END
_sub Win2,W340H100,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
    LABE -trans Labewlan,L20T5W100H20,这是一个无线,,ffffff,12:宋体**####10
    ITEM Itemwlan,T25L290W50H20,连接
_end
_sub Win3,W340H50,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
    LABE -trans Labewlan,L20T15W100H20,这是一个无线,,ffffff,12:宋体**####10
    ITEM Itemwlan,T25L290W50H20,连接
_end


_sub GetDpiPercent *
         call $user32.dll,SetProcessDPIAware
         call $--ret:hdc user32.dll,GetDC,#0
         call $--ret:LogPixels Gdi32.dll,GetDeviceCaps,#%hdc%,#90
         set ScaleCMD=-scalef:%LogPixels% -scale:%LogPixels%
_end



-------------------------------------------------------------------------------------------
swin窗口的滚动条可否设置颜色

shmoss

mdyblog 发表于 2022-7-25 21:32
PUTF* %_CD%\1.bmp,,"%图标%""#1|BITMAP"
----->
ENVI BITMAP=#2

这无法正常显示

mdyblog

826773297 发表于 2022-7-25 21:37
#code=950T936
ENVI^ EnviMode=1
ENVI^ ForceLocal=1

来个最简单的演示代码

shmoss

mdyblog 发表于 2022-7-25 21:32
PUTF* %_CD%\1.bmp,,"%图标%""#1|BITMAP"
----->
ENVI BITMAP=#2

1. IFEX~ %CurDir%\WIFI.dll,set 图标=%CurDir%\WIFI.dll
   
2. 
   
3. _SUB WIN1,W516H444,窗口,
   
4.      IMAG ,L6T10W60H60,%图标%#1|BITMAP
   
5.      getf "%图标%""#1|#2",0#*,&&a
   
6.      putf* "%_CD%\1.bmp",,0x42 0x4D 0x38 0xE1 *6 0x00 0x36 *3 0x00 %&&a%
   
7.      PUTF* %_CD%\2.bmp,,"%图标%""#1|EXEDATA"
   
8. _END
   
9. WIN1
   
10. 能把这个加进去吗 五大说这少文件头

复制代码

shmoss

putf* "%_CD%\1.bmp",,0x42 0x4D 0x38 0xE1 *6 0x00 0x36 *3 0x00 %&&a%实测固定值可以提取

826773297

mdyblog 发表于 2022-7-25 22:03
来个最简单的演示代码

call @Page1

_sub Page1,W350H500,,,,,,
    ENVI @this.bkcolor=0x000000
   swin swin1:Win1:-SwinMain1,l1 t20 w340 h400,,0x180
_end
_sub Win1,W340H800,,,,,,
    ENVI @this.bkcolor=0x000000
swin swin3:Win3:-SwinMain3,l0 t450 w340 h50,,
_END
_sub Win3,W340H50,,,,,,
    ENVI @this.bkcolor=0x000000
    LABE -trans Labewlan,L20T15W100H20,这是一个无线,,ffffff,12:宋体**####10
    ITEM Itemwlan,T25L290W50H20,连接
_end

更改swin滚动条颜色

shmoss

TIPS 用编译后的PNG图片可以吗
TIPS* ,%连接名%,,,"%myname%""#8|PNG"
不能显示

826773297

adsl命令列出的无线网络列表是否有信道一栏显示

shmoss

应该怎样显示|BITMAP中的图片呢 有示例吗
ENVI @图标.update=88:88:518:5::;%CurDir%\OEM\%Z7%.bmp
ENVI @图标.update=88:88:518:5::;"%图标%""#%Z7%|BITMAP"

mdyblog

shmoss 发表于 2022-7-26 10:38
应该怎样显示|BITMAP中的图片呢 有示例吗
ENVI @图标.update=88:88:518:5::;%CurDir%\OEM\%Z7%.bmp
ENVI  ...

加载图片时， 认识 BITMAP 标识子串
ENVI @图标.update=88:88:518:5::;"%图标%""#%Z7%|BITMAP"

shmoss

mdyblog 发表于 2022-7-26 11:10
加载图片时， 认识 BITMAP 标识子串
ENVI @图标.update=88:88:518:5::;"%图标%""#%Z7%|BITMAP"

这RH编译器 编译好手动打开 看不见.bmp图片 却能PUTF*出来 但无法ENVI @图标.update。。。
然后我手动做个dll 可以显示 把.bmp后缀改下才可以放到EXEDATA中 放EXEDATA中 是无法显示的 目测RH编译器的问题

mdyblog

shmoss 发表于 2022-7-26 11:20
这RH编译器 编译好手动打开 看不见.bmp图片 却能PUTF*出来 但无法ENVI @图标.update。。。
然后我手动做 ...

资源bitmap 中是优化处理的BMP， 和BMP文件不同。

shmoss

mdyblog 发表于 2022-7-26 12:04
资源bitmap 中是优化处理的BMP， 和BMP文件不同。

但是7-zip.dll 190号位图可以看见 我想是编译器不同导致 RH修改就会看不见

826773297

1. call @Page1
   
2. 
   
3. _sub Page1,W350H500,,,,,,
   
4.     ENVI @this.bkcolor=0x000000
   
5.    swin swin1:Win1:-SwinMain1,l1 t20 w340 h400,,0x180
   
6. _end
   
7. _sub Win1,W340H800,,,,,,
   
8.     ENVI @this.bkcolor=0x000000
   
9. swin swin3:Win3:-SwinMain3,l0 t450 w340 h50,,
   
10. _END
    
11. _sub Win3,W340H50,,,,,,
    
12.     ENVI @this.bkcolor=0x000000
    
13.     LABE -trans Labewlan,L20T15W100H20,这是一个无线,,ffffff,12:宋体**####10
    
14.     ITEM Itemwlan,T25L290W50H20,连接
    
15. _end

复制代码

M大可否自定义SWIN滚动条颜色

红毛樱木

826773297 发表于 2022-7-26 19:45
M大可否自定义SWIN滚动条颜色

https://docs.microsoft.com/zh-cn ... s/about-scroll-bars
这里面说明会影响整个系统的。

系统定义的颜色值COLOR_SCROLLBAR控制滚动条轴内的颜色。 使用 GetSysColor 函数确定滚动条轴的颜色， 而 SetSysColors 函数用于设置滚动条轴的颜色。 但是，请注意，这种颜色更改会影响系统中的所有滚动条。

826773297

红毛樱木 发表于 2022-7-26 20:14
https://docs.microsoft.com/zh-cn/windows/win32/controls/about-scroll-bars
这里面说明会影响整个系 ...

https://www.likecs.com/show-204271165.html

红毛樱木

826773297 发表于 2022-7-26 20:38
https://www.likecs.com/show-204271165.html

这个好像提供了DLL吧，不知道怎么用。

IT小森

  谢谢分享