Rebol 编程/scroll-drag

用法

SCROLL-DRAG face /back /page 

描述

移动滚动条拖动条

SCROLL-DRAG 是一个函数值。

参数

• face -- 要修改的滚动条（类型：任何）

细化

• /back -- 向后移动
• /page -- 每次移动一页

源代码

scroll-drag: func [
    "Move the scroller drag bar" 
    face "the scroller to modify" 
    /back "move backward" 
    /page "move each time by one page"
][
    any [
        all [back page move-drag face/pane/2 face/page] 
        all [back move-drag face/pane/2 face/step] 
        all [page move-drag face/pane/3 face/page] 
        move-drag face/pane/3 face/step
    ]
]