设为首页收藏本站
开启辅助访问 切换到宽版

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › PE讨论区 › [更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线 ...
系统gho:最纯净好用系统下载站投放广告、加入VIP会员，请联系 微信:wuyouceo
1 ...579580581582583584585586... 648下一页
返回列表 发新帖
楼主: mdyblog
打印 上一主题 下一主题

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

    [复制链接]
17461#
发表于 2022-7-22 21:49:25 | 只看该作者
加入VIP会员，获无忧币，赠积分，送勋章，下载无限制，获论坛最高级会员权限 !
mdyblog 发表于 2022-7-22 21:37
_sub Win1,W347H205,,,,,, %ScaleCMD%
     ENVI @this.bkcolor=0xFF*
_end

#code=950T936
envi^ EnviMode=1
envi^ ForceLocal=1

call GetDpiPercent
call @Page1

_sub Page1,w347 h297,,,,,, %ScaleCMD%
    envi @Page1.bkcolor=0x000000
        swin swin1:Win1:-SwinMain1,l0 t10 w347 h205,,0x100
_end

_sub Win1,W347H205,,,,:0x000000,, %ScaleCMD%
_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


有一条白线

点评

mdyblog
[attachimg]505020[/attachimg]  详情 回复 发表于 2022-7-22 22:48
mdyblog
代码有问题。 用文字，具体 说说 要达到什么样的效果。  详情 回复 发表于 2022-7-22 22:40
回复

使用道具 举报

17462#
 楼主| 发表于 2022-7-22 22:40:56 | 只看该作者
826773297 发表于 2022-7-22 21:49
#code=950T936
envi^ EnviMode=1
envi^ ForceLocal=1

代码这样写，有问题。
用文字，具体 说说 要达到什么样的效果。
回复

使用道具 举报

17463#
 楼主| 发表于 2022-7-22 22:48:59 | 只看该作者
826773297 发表于 2022-7-22 21:49
#code=950T936
envi^ EnviMode=1
envi^ ForceLocal=1

  1. #code=950T936
  2. ENVI^ EnviMode=1
  3. ENVI^ ForceLocal=1

  5. call GetDpiPercent
  6. call @Page1

  8. _sub Page1,W347H205,,,,:0x0020C0,, %ScaleCMD%
  9.      ENVI @this.bkcolor=0x0020C0* //窗口透明
  10.    swin swin1:Win1:-SwinMain1,l0 t0 w347 h205,,0x100
  11. _end

  13. _sub Win1,W347H205,,,,,, %ScaleCMD%
  14.      ENVI @this.bkcolor=0x0020C0*    //SWIN透明
  15.    ITEM ITEM1,L5T5W100H20,ITEM1  //控件不透明
  16. _end

  18. _sub GetDpiPercent *
  19.          call $user32.dll,SetProcessDPIAware
  20.          call $--ret:hdc user32.dll,GetDC,#0
  21.          call $--ret:LogPixels Gdi32.dll,GetDeviceCaps,#%hdc%,#90
  22.          //ENVI LogPixels=120
  23.          set ScaleCMD=-scalef:%LogPixels% -scale:%LogPixels%
  24. _end
复制代码

点评

826773297
#code=950T936 envi^ EnviMode=1 envi^ ForceLocal=1 SET &::WM_MOUSELEAVE=0x02A3 SET &::WM_MOUSEENTER=0x1000 call GetDpiPercent call @Page1 _sub Page1,w347 h297,,,,,, %ScaleCMD% swin  详情 回复 发表于 2022-7-23 08:49
826773297
我是想拼接swin窗口，设计一个暗黑主题的完整窗口 labe标签能用envi命令设置颜色吗  详情 回复 发表于 2022-7-23 08:31
回复

使用道具 举报

17464#
发表于 2022-7-23 08:31:06 | 只看该作者
mdyblog 发表于 2022-7-22 22:48

我是想拼接swin窗口，设计一个暗黑主题的完整窗口

labe标签能用envi命令设置颜色吗
回复

使用道具 举报

17465#
发表于 2022-7-23 08:49:55 | 只看该作者
mdyblog 发表于 2022-7-22 22:48

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

_sub Page1,w347 h297,,,,,, %ScaleCMD%
        swin swin1:Win1:-SwinMain1,l0 t10 w347 h205,,0x100
_end

_sub Win1,W347H205,,,,,, %ScaleCMD%
    LABE LABE1,L68T87W187H83,LABE1,,0xffffff#0x000000
        ENVI @this.MSG=%&WM_MOUSEENTER%:ENVI @this.bkcolor=0xC0C0C0*
    ENVI @this.MSG=%WM_MOUSELEAVE%:ENVI @this.bkcolor=0xFFFFFF*
_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


labe命令如果设置颜色，鼠标移动到labe标签位置时，会阻碍我操作win1的鼠标移动和点击事件



回复

使用道具 举报

smss
17466#
发表于 2022-7-23 09:54:41 | 只看该作者
M大神能否加个参数如果不可以最大化 就彻底不显示最大化按钮 如右图

点评

mdyblog
不要标题。 然后， 左上角 自己放 最小化 关闭 按钮。  详情 回复 发表于 2022-7-23 16:58
回复

使用道具 举报

smss
17467#
发表于 2022-7-23 13:38:17 | 只看该作者

点评

mdyblog
新版  详情 回复 发表于 2022-7-23 20:58
回复

使用道具 举报

17468#
发表于 2022-7-23 16:53:11 | 只看该作者
pecmd搞一个duilib画界面，更清晰
回复

使用道具 举报

17469#
 楼主| 发表于 2022-7-23 16:58:22 | 只看该作者
smss 发表于 2022-7-23 09:54
M大神能否加个参数如果不可以最大化 就彻底不显示最大化按钮 如右图

不要标题。
然后， 左上角 自己放 最小化 关闭 按钮。

点评

826773297
_SUB WIN1,W516H444,新窗口1, ENVI @WIN1.bkcolor=0xF1F1F1 SWIN Swin1:Page1,L52T48W426H343,, _END _SUB Swin1,W426H343,wifi,,, ENVI @this.bkcolor=0xFFFFFF _END WIN1 pecmd的颜色不  详情 回复 发表于 2022-7-23 21:22
回复

使用道具 举报

17470#
 楼主| 发表于 2022-7-23 20:58:19 | 只看该作者
smss 发表于 2022-7-23 13:38

新版
回复

使用道具 举报

17471#
发表于 2022-7-23 21:22:02 | 只看该作者
mdyblog 发表于 2022-7-23 16:58
不要标题。
然后， 左上角 自己放 最小化 关闭 按钮。

_SUB WIN1,W516H444,新窗口1,
    ENVI @WIN1.bkcolor=0xF1F1F1
    SWIN Swin1:Page1,L52T48W426H343,,
_END
_SUB Swin1,W426H343,wifi,,,
    ENVI @this.bkcolor=0xFFFFFF
_END
WIN1



pecmd的颜色不太对劲，总是不标准



点评

mdyblog
_SUB WIN1,W516H444,新窗口1, ENVI @WIN1.bkcolor=0xF1F1F1 SWIN Swin1:Page1,L52T48W426H343,, _END _SUB Page1,W426H343,wifi,,, ENVI @this.bkcolor=0xFFFFFF _END WIN1 [attachimg]  详情 回复 发表于 2022-7-23 21:42
回复

使用道具 举报

17472#
发表于 2022-7-23 21:23:01 | 只看该作者
0xffffff应该是标题栏那种很白很白的颜色，现在变成了灰色
回复

使用道具 举报

17473#
 楼主| 发表于 2022-7-23 21:42:48 | 只看该作者
826773297 发表于 2022-7-23 21:22
_SUB WIN1,W516H444,新窗口1,
    ENVI @WIN1.bkcolor=0xF1F1F1
    SWIN Swin1:Page1,L52T48W426H343, ...

_SUB WIN1,W516H444,新窗口1,
     ENVI @WIN1.bkcolor=0xF1F1F1
     SWIN Swin1:Page1,L52T48W426H343,,
_END
_SUB Page1,W426H343,wifi,,,
     ENVI @this.bkcolor=0xFFFFFF
_END
WIN1

点评

826773297
不过这个命令好像要改，暂时不管它了  详情 回复 发表于 2022-7-24 08:29
826773297
win11系统下颜色不对  详情 回复 发表于 2022-7-24 08:28
回复

使用道具 举报

17474#
发表于 2022-7-24 08:28:40 | 只看该作者
mdyblog 发表于 2022-7-23 21:42
_SUB WIN1,W516H444,新窗口1,
     ENVI @WIN1.bkcolor=0xF1F1F1
     SWIN Swin1:Page1,L52T48W426H34 ...

win11系统下颜色不对
回复

使用道具 举报

17475#
发表于 2022-7-24 08:29:36 | 只看该作者
mdyblog 发表于 2022-7-23 21:42
_SUB WIN1,W516H444,新窗口1,
     ENVI @WIN1.bkcolor=0xF1F1F1
     SWIN Swin1:Page1,L52T48W426H34 ...

不过这个命令好像要改，暂时不管它了
回复

使用道具 举报

17476#
发表于 2022-7-24 09:33:42 | 只看该作者
hhhhaoao
回复

使用道具 举报

Anson4
17477#
发表于 2022-7-24 10:10:14 | 只看该作者
请教一下M大，RAMD 指令有什么依赖呢？
我在 WinRE 环境下，用指令 RAMD ImDisk,L513,NTFS,B:,WIT_Backup 创建 B 盘不成功。

点评

mdyblog
完整的PECMD.EXE IMDISK压根没装，一个相关文件都没有。 如果 要装， 得装正确。  详情 回复 发表于 2022-7-24 10:18
回复

使用道具 举报

17478#
 楼主| 发表于 2022-7-24 10:18:26 | 只看该作者
Anson4 发表于 2022-7-24 10:10
请教一下M大，RAMD 指令有什么依赖呢？
我在 WinRE 环境下，用指令 RAMD ImDisk,L513,NTFS,B:,WIT_Backup  ...

完整的PECMD.EXE即可
IMDISK压根没装，一个相关文件都没有。
如果 要装， 得装正确。

点评

826773297
#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,,  详情 回复 发表于 2022-7-24 18:30
回复

使用道具 举报

17479#
发表于 2022-7-24 18:30:54 | 只看该作者
mdyblog 发表于 2022-7-24 10:18
完整的PECMD.EXE即可
IMDISK压根没装，一个相关文件都没有。
如果 要装， 得装正确。

#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,l0 t20 w350 h400,,0x100
_end
_sub Win1,W350H400,,,,,, %ScaleCMD%
swin swin2:Win2:-SwinMain2,l0 t0 w350 h400,,
_END
_sub Win2,W350H400,,,,,, %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


我为什么可以在WIN1子窗口滚动win2子窗口

回复

使用道具 举报

17480#
发表于 2022-7-24 18:31:54 | 只看该作者
#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,l0 t20 w350 h400,,0x100
_end
_sub Win1,W350H400,,,,,, %ScaleCMD%
swin swin2:Win2:-SwinMain2,l0 t0 w350 h100,,
_END
_sub Win2,W350H50,,,,,, %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

鼠标滚动有点问题
回复

使用道具 举报

17481#
发表于 2022-7-24 18:36:10 | 只看该作者
#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,l0 t20 w350 h400,,
_end
_sub Win1,W350H400,,,,,, %ScaleCMD%
swin swin2:Win2:-SwinMain2,l0 t0 w350 h100,,
swin swin3:Win3:-SwinMain3,l0 t100 w350 h50,,
_END
_sub Win2,W350H100,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
    LABE -trans Labewlan,L20T15W100H20,这是一个无线,,ffffff,12:宋体**####10
    ITEM Itemwlan,T25L290W50H20,连接
_end
_sub Win3,W350H50,,,,,, %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窗口缝隙，上下滚动后就没有白线了
回复

使用道具 举报

17482#
发表于 2022-7-24 21:12:11 | 只看该作者
#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,l0 t20 w350 h400,,
_end
_sub Win1,W350H400,,,,,, %ScaleCMD%
swin swin2:Win2:-SwinMain2,l0 t0 w350 h100,,
swin swin3:Win3:-SwinMain3,l0 t100 w350 h50,,
_END
_sub Win2,W350H100,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
    LABE -trans Labewlan,L20T15W100H20,这是一个无线,,ffffff,12:宋体**####10
    ITEM Itemwlan,T25L290W50H20,连接
_end
_sub Win3,W350H100,,,,,, %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

鼠标移动到win3子窗口滚动试试，我写的无线连接器就是被这个bug害了，m大快修理一下

点评

mdyblog
下载最新版。 为了应付 不恰当的滚动条设置， 修改程序， 搞出副作用了。 改回去了。 看来， 不能随便改PECMD了， 优先WCS恰当，尽量不修改PECMD（免得带出副作用）。 [attachimg]505079[/attachimg]  详情 回复 发表于 2022-7-24 22:25
回复

使用道具 举报

17483#
发表于 2022-7-24 21:31:40 | 只看该作者
m大出手把它给治一治，这bug太烦了
回复

使用道具 举报

17484#
 楼主| 发表于 2022-7-24 22:25:00 | 只看该作者
826773297 发表于 2022-7-24 21:12
#code=950T936
ENVI^ EnviMode=1
ENVI^ ForceLocal=1

下载最新版。
为了应付 不恰当的滚动条设置， 修改程序， 搞出副作用了。
改回去了。 看来， 不能随便改PECMD了， 优先WCS恰当，尽量不修改PECMD（免得带出副作用）。

点评

826773297
好的  详情 回复 发表于 2022-7-25 08:02
回复

使用道具 举报

17485#
发表于 2022-7-25 08:02:31 | 只看该作者
mdyblog 发表于 2022-7-24 22:25
下载最新版。
为了应付 不恰当的滚动条设置， 修改程序， 搞出副作用了。
改回去了。 看来， 不能随便 ...

好的
回复

使用道具 举报

17486#
发表于 2022-7-25 08:03:57 | 只看该作者
swin窗口有没有禁止鼠标滚动的参数

点评

mdyblog
默认无滚动条。 有问题，就来个最简单演示代码。  详情 回复 发表于 2022-7-25 09:50
回复

使用道具 举报

17487#
发表于 2022-7-25 08:28:15 | 只看该作者
swin窗口的上下滚动条可否设置颜色
回复

使用道具 举报

17488#
 楼主| 发表于 2022-7-25 09:50:23 | 只看该作者
826773297 发表于 2022-7-25 08:03
swin窗口有没有禁止鼠标滚动的参数

默认无滚动条。
有问题，就来个最简单演示代码。

点评

826773297
#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,,  详情 回复 发表于 2022-7-25 10:00
回复

使用道具 举报

17489#
发表于 2022-7-25 10:00:44 | 只看该作者
mdyblog 发表于 2022-7-25 09:50
默认无滚动条。
有问题，就来个最简单演示代码。

#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,l0 t20 w350 h400,,
_end
_sub Win1,W350H400,,,,,, %ScaleCMD%
swin swin2:Win2:-SwinMain2,l0 t0 w350 h100,,
swin swin3:Win3:-SwinMain3,l0 t100 w350 h50,,
_END
_sub Win2,W350H100,,,,,, %ScaleCMD%
    ENVI @this.bkcolor=0x000000
    LABE -trans Labewlan,L20T15W100H20,这是一个无线,,ffffff,12:宋体**####10
    ITEM Itemwlan,T25L290W50H20,连接
_end
_sub Win3,W350H100,,,,,, %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


win3子窗口在没加滚动条的情况下可以滚动

点评

mdyblog
等大 就不滚动了。 swin swin3:Win3:-SwinMain3,L0T100W350H50,, ===》 swin swin3:Win3:-SwinMain3,L0T100W350H100,,  详情 回复 发表于 2022-7-25 10:13
回复

使用道具 举报

17490#
发表于 2022-7-25 10:11:43 | 只看该作者
call @Page1

_sub Page1,W350H500,,,,,,
    ENVI @this.bkcolor=0x000000
    LABE WLAN,W100H30,WLAN,,ffffff,12:宋体
   swin swin1:Win1:-SwinMain1,l0 t20 w350 h100,,
_end
_sub Win1,W350H400,,,,,,
ENVI @this.bkcolor=0x000000
    LABE -trans Labewlan,L20T15W100H20,这是一个无线,,ffffff,12:宋体**####10
ITEM Itemwlan,T25L290W50H20,连接
_END

最简单示例用手机打的，可能有问题，win1子窗口不加滚动条也能滚动
回复

使用道具 举报

1 ...579580581582583584585586... 648下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-12-1 13:52

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表