易语言多显示器模块

.版本 2

.程序集 窗口程序集1
.程序集变量 m_Displays, MultiDisplay

.子程序 _组合框_显示器名称列表_列表项被选择
.局部变量 i
.局部变量 x
.局部变量 max
.局部变量 pos
.局部变量 list, ResolutionList, , "0"
.局部变量 listNode, ResolutionList
.局部变量 displayName, 文本型

列表框1.清空 ()
pos ＝ 组合框_显示器名称列表.取项目数值 (组合框_显示器名称列表.现行选中项)
max ＝ m_Displays.GetDisplayResolutionList (pos, list)
.变量循环首 (1, max, 1, i)
    列表框1.加入项目 (到文本 (list [i].width) ＋ “ × ” ＋ 到文本 (list [i].height) ＋ “ × ” ＋ 到文本 (list [i].depth) ＋ “ × ” ＋ 到文本 (list [i].frequency), i)
.变量循环尾 ()
m_Displays.GetDisplayInfo (pos, displayName, listNode.width, listNode.height, listNode.depth, listNode.frequency)
编辑框1.内容 ＝ 到文本 (listNode.width)
编辑框2.内容 ＝ 到文本 (listNode.height)
编辑框3.内容 ＝ 到文本 (listNode.depth)
编辑框4.内容 ＝ 到文本 (listNode.frequency)
m_Displays.GetScreenPosition (pos, x)
标签7.标题 ＝ 到文本 (x)

.子程序 _按钮1_被单击
.局部变量 i
.局部变量 max
.局部变量 pos
.局部变量 listNode, ResolutionList
.局部变量 displayName, 文本型

组合框_显示器名称列表.清空 ()
max ＝ m_Displays.GetDisplayCount ()
.变量循环首 (1, max, 1, i)
    .如果真 (m_Displays.IsDisplayEnable (i))
        m_Displays.GetDisplayInfo (i, displayName, listNode.width, listNode.height, listNode.depth, listNode.frequency)
        pos ＝ 组合框_显示器名称列表.加入项目 (displayName, i)
        .如果真 (m_Displays.GetPrimaryScreenPos () ＝ i)
            组合框_显示器名称列表.现行选中项 ＝ pos
        .如果真结束

    .如果真结束

.变量循环尾 ()
_组合框_显示器名称列表_列表项被选择 ()


.子程序 __启动窗口_创建完毕

_按钮1_被单击 ()

.子程序 _按钮2_被单击

.如果 (m_Displays.SetDisplayResolution (组合框_显示器名称列表.取项目数值 (组合框_显示器名称列表.现行选中项), 到数值 (编辑框1.内容), 到数值 (编辑框2.内容), 到数值 (编辑框3.内容), 到数值 (编辑框4.内容)))
    标签8.标题 ＝ “分辨率设置成功！”
.否则
    标签8.标题 ＝ “分辨率设置失败！”
.如果结束


.子程序 _按钮3_被单击
.局部变量 x, 整数型

.如果真 (m_Displays.GetScreenPosition (组合框_显示器名称列表.取项目数值 (组合框_显示器名称列表.现行选中项), x))
    移动 (x, 0, , )
.如果真结束

@神2