首页 > 其他 > 详细

左右停靠代码带记录

时间:2019-12-27 23:29:11      阅读:123      评论:0      收藏:0      [点我收藏+]
技术分享图片
try (cui.unregisterDialogBar test) catch()
try (destroyDialog test) catch()
rollout test "左右停靠" width:168 height:90
(
    button dockL "DockL" pos:[8,8] width:48 height:48
    button unDockB "UnDock" pos:[104,8] width:48 height:48 enabled:false
    button dockR "DockR" pos:[56,8] width:48 height:48

    on dockL pressed do
    (   --停靠右边
        try(
        cui.RegisterDialogBar test
        cui.DockDialogBar test #cui_dock_left 
        SetINISetting "SctSet" "GlobalSet"  "Dock" "#cui_dock_left"
        unDockB.enabled = true
        DockStatus =  true
        ) catch()
    )
    on unDockB pressed do
    (   --弹出界面
        try(
        cui.UnRegisterDialogBar test
        SetINISetting "SctSet" "GlobalSet"  "Dock" "None"
        unDockB.enabled = false
        DockStatus =  false
        ) catch()
    )
    on dockR pressed do
    (   --停靠左边
        try(
        cui.RegisterDialogBar test
        cui.DockDialogBar test #cui_dock_right
        SetINISetting "SctSet" "GlobalSet"  "Dock" "#cui_dock_right"
        unDockB.enabled = true
        DockStatus =  true
        ) catch()
    )
)
CreateDialog test

--记忆停靠位置
if (getfiles (sysInfo.windowsdir + "\\" + "SctSet")).count <1 do
(
    SetINISetting "SctSet" "GlobalSet"  "Dock" "#cui_dock_left"
)

if (GetINISetting "SctSet" "GlobalSet"  "Dock") == "#cui_dock_left" do
(
    Cui.RegisterDialogBar test
    Cui.DockDialogBar test #cui_dock_left
)
if (GetINISetting "SctSet" "GlobalSet"  "Dock") == "#cui_dock_right" do
(
    Cui.RegisterDialogBar test
    Cui.DockDialogBar test #cui_dock_right
)
if (GetINISetting "SctSet" "GlobalSet"  "Dock") == "None" do
(
    Cui.RegisterDialogBar test
)
View Code

左右停靠代码带记录

原文:https://www.cnblogs.com/humd/p/12110008.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!