改变显示属性 取分辩率(Wind Promise 2004.5.17) 易语言源码

改变显示属性

.版本 2

.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 t, 文本型
.局部变量 q, 文本型
.局部变量 ReVal, 整数型
.局部变量 ModeCube, DevMode, , "1"
.局部变量 DStr, 文本型, , "0"

i ＝ 1
.循环判断首 ()
    ReVal ＝ 取显示属性 (0, i, ModeCube [i])
    .如果真 (ReVal ＝ 1)
        q ＝ 到文本 (ModeCube [i].dmPelsWidth) ＋ “×” ＋ 删首尾空 (到文本 (ModeCube [i].dmPelsHeight))
        .如果真 (ModeCube [i].dmBitsPerPel ＝ 4)
            q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “16色”
        .如果真结束
        .如果真 (ModeCube [i].dmBitsPerPel ＝ 8)
            q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “256色”
        .如果真结束
        .如果真 (ModeCube [i].dmBitsPerPel ＝ 16)
            q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “16位增强色”
        .如果真结束
        .如果真 (ModeCube [i].dmBitsPerPel ＝ 24)
            q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “24位真彩”
        .如果真结束
        .如果真 (ModeCube [i].dmBitsPerPel ＝ 32)
            q ＝ q ＋ “ ” ＋ “刷新率:” ＋ “ ” ＋ 到文本 (ModeCube [i].dmDisplayFrequency) ＋ “ ” ＋ “32位真彩”
        .如果真结束
        .如果真 (q ≠ t)
            ' 本源码来自三叶资源网(www.sanye.cx)
            加入成员 (DStr, q)
            列表框1.加入项目 (q, )
            t ＝ DStr [取数组成员数 (DStr)]
        .如果真结束
        i ＝ i ＋ 1
        重定义数组 (ModeCube, 真, i)
    .如果真结束

.循环判断尾 (ReVal ＝ 1)

当前信息 ()

.子程序 当前信息
.局部变量 q, 文本型
.局部变量 ReVal, 整数型
.局部变量 ModeCube, DevMode

ReVal ＝ 取显示属性 (0, -1, ModeCube)
.如果真 (ReVal ＝ 1)
    q ＝ 到文本 (ModeCube.dmPelsWidth) ＋ “×” ＋ 删首尾空 (到文本 (ModeCube.dmPelsHeight))
    .如果真 (ModeCube.dmBitsPerPel ＝ 4)
        q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 16色”
    .如果真结束
    .如果真 (ModeCube.dmBitsPerPel ＝ 8)
        q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 256色”
    .如果真结束
    .如果真 (ModeCube.dmBitsPerPel ＝ 16)
        q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 16位增强色”
    .如果真结束
    .如果真 (ModeCube.dmBitsPerPel ＝ 24)
        q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 24位真彩”
    .如果真结束
    .如果真 (ModeCube.dmBitsPerPel ＝ 32)
        q ＝ q ＋ “ 刷新率:” ＋ 到文本 (ModeCube.dmDisplayFrequency) ＋ “ 32位真彩”
    .如果真结束
    信息框 (q, 0, “当前分辨率”)
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _按钮1_被单击
.局部变量 DevM, DevMode
.局部变量 临时文本, 文本型, , "0"
.局部变量 临时文本2, 文本型, , "0"
.局部变量 返回值, 整数型

DevM.dmFields ＝ #DM_PELSWIDTH ＋ #DM_PELSHEIGHT ＋ #DM_BITSPERPEL ＋ #DM_DISPLAYFREQUENCY
取显示属性 (0, -1, DevM)
临时文本 ＝ 分割文本 (列表框1.取项目文本 (列表框1.现行选中项), “ ”, )
临时文本2 ＝ 分割文本 (临时文本 [1], “×”, )
DevM.dmPelsWidth ＝ 到数值 (临时文本2 [1])
DevM.dmPelsHeight ＝ 到数值 (临时文本2 [2])
.如果 (临时文本 [4] ＝ “16色”)
    DevM.dmBitsPerPel ＝ 4
.否则
    .如果 (临时文本 [4] ＝ “256色”)
        DevM.dmBitsPerPel ＝ 8
    .否则
        .如果 (临时文本 [4] ＝ “16位增强色”)
            DevM.dmBitsPerPel ＝ 16
        .否则
            .如果 (临时文本 [4] ＝ “24位真彩”)
                DevM.dmBitsPerPel ＝ 24
            .否则
                .如果真 (临时文本 [4] ＝ “32位真彩”)
                    DevM.dmBitsPerPel ＝ 32
                .如果真结束

            .如果结束

        .如果结束

    .如果结束
    ' 本源码来自三叶资源网(www.sanye.cx)
.如果结束
DevM.dmDisplayFrequency ＝ 到数值 (临时文本 [3])
返回值 ＝ 设置显示属性 (DevM, #CDS_UPDATEREGISTRY)
输出调试文本 (到文本 (返回值))

@易语言学习论坛