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
]
]