内部窗口置外部窗口父彗星exui

ikunactrl

效果图：
窗口仅会在目标窗口中显示，超出目标窗口的窗口将会被裁剪
内部窗口置外部父彗星exui通用.zip (568.14 KB, 下载次数: 20)

2024-11-26 22:50 上传

点击文件名下载附件

部分代码：
.版本 2
.支持库 ExuiKrnln

.程序集 窗口程序集_窗口3
.程序集变量 pid, 整数型
.程序集变量 句柄, 整数型

.子程序 _容器_创建完毕

pid ＝ 进程一名取PID (#游戏名, )
句柄 ＝ 进程_名取句柄ex (#游戏名, pid)


.子程序 _时钟1_周期事件
.局部变量 大小, 位置和大小

大小 ＝ 窗口_取位置和大小 (句柄)
绘制窗口矩形 (5, 句柄)
窗口_置透明度 (取窗口句柄 (), 255, #绿色, 假)

.子程序 绘制窗口头部文本
.参数 文本, 文本型

画板1.定位写出 (取整 (画板1.宽度 ÷ 2) － 取文本长度 (文本) × 5, 10, 文本)

.子程序 绘制窗口矩形
.参数 增值1, 整数型
.参数 句柄1, 整数型
.局部变量 增值, 整数型
.局部变量 大小, 位置和大小

大小 ＝ 窗口_取位置和大小 (句柄1)
容器.移动 (大小.左边, 大小.顶边, 大小.宽度, 大小.高度)
画板1.宽度 ＝ 容器.宽度
画板1.高度 ＝ 容器.高度
增值 ＝ 增值1 ＋ 3
画板1.画矩形 (增值, 增值 － 3, 5 ＋ 增值, 画板1.高度 － 5)  ' 左边

.如果 (窗口取位置 (句柄1) ＝ 0)
    增值 ＝ 增值1 － 4
    画板1.画矩形 (8, 0 ＋ 增值, 画板1.宽度 － 8, 5 ＋ 增值)  ' 顶边
.否则
    增值 ＝ 增值1 ＋ 2
    画板1.画矩形 (8, 0 ＋ 增值, 画板1.宽度 － 8, 5 ＋ 增值)  ' 顶边
.如果结束

增值 ＝ 增值1 ＋ 3
画板1.画矩形 (画板1.宽度 － 5 － 增值, 增值 － 3, 画板1.宽度 － 增值, 画板1.高度 － 5)  ' 右边
增值 ＝ 增值1
画板1.画矩形 (增值 ＋ 3, 画板1.高度 － 5 － 增值, 画板1.宽度 － 增值 － 3, 画板1.高度 － 增值)  ' 下边


.子程序 绘制矩形
.参数 增值, 整数型
.参数 句柄1, 整数型
.参数 x1, 整数型
.参数 y1, 整数型
.参数 x2, 整数型
.参数 y2, 整数型
.局部变量 大小, 位置和大小

大小 ＝ 窗口_取位置和大小 (句柄1)
容器.移动 (大小.左边, 大小.顶边, 大小.宽度, 大小.高度)
画板1.宽度 ＝ 容器.宽度
画板1.高度 ＝ 容器.高度
画板1.画矩形 (x1, y1, x2 ＋ 增值, y1 ＋ 增值)
画板1.画矩形 (x1, y1, x1 ＋ 增值, y2 ＋ 增值)
画板1.画矩形 (x1, y2, x2 ＋ 增值, y2 ＋ 增值)
画板1.画矩形 (x2, y1, x2 ＋ 增值, y2 ＋ 增值)

tnancy2kk

感谢楼主分享！

wsasecy

无图无真相。

zq5202002

子窗口置顶？

xintian

这么高级吗

苏紫方璇

请在帖子中粘贴部分核心代码
一、本版块仅限分享编程技术和源码相关内容，发布帖子必须带上关键代码和具体功能介绍【20220924强制执行】