跳轉到內容

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
    ]
]
華夏公益教科書