易语言全屏组件位置

2024-12-20 07:01:50
推荐回答(3个)
回答1:

我给你一段源码你看看(是个浏览器),我考虑到了你说的问题,因此经过了计算。你可参考一下。
.版本 2
.支持库 HtmlView

.如果 (选择框1.选中 = 真)
写配置项 (“C:\Program Files\user.use”, “全屏”, “全屏”, “真”)
_启动窗口.高度 = 取屏幕高度 ()
_启动窗口.宽度 = 取屏幕宽度 ()
超文本浏览框1.宽度 = _启动窗口.宽度
超文本浏览框1.高度 = _启动窗口.高度 - 120
按钮1.左边 = _启动窗口.宽度 - 88
选择框1.左边 = _启动窗口.宽度 - 88
编辑框1.宽度 = _启动窗口.宽度 - 139
进度条1.顶边 = _启动窗口.高度 - 51
_启动窗口.左边 = 0
_启动窗口.顶边 = 0
.否则
.如果 (选择框1.选中 = 假)
写配置项 (“C:\Program Files\user.use”, “全屏”, “全屏”, “假”)
_启动窗口.高度 = 651
_启动窗口.宽度 = 939
超文本浏览框1.宽度 = _启动窗口.宽度
超文本浏览框1.高度 = _启动窗口.高度 - 120
按钮1.左边 = _启动窗口.宽度 - 88
选择框1.左边 = _启动窗口.宽度 - 88
编辑框1.宽度 = _启动窗口.宽度 - 139
进度条1.顶边 = _启动窗口.高度 - 51
_启动窗口.位置 = 1
我这个是选用了一个选择框来决定要不要全屏。

回答2:

全屏后组件怎么会乱飞啊?假设左边是2,全屏后应该还是2啊,还是说你想让组件相对于屏幕来说没有改变位置?

回答3:

给你个参考源码,是记事本的,代码:
.子程序_启动窗口_尺寸被改变
编辑框1.移动(20,20,取用户区宽度()-10,取用户区高度()-10)