Code: Select all
EnableExplicit
Enumeration
#myWindow
#cmdScrollDown
#cmdScrollUp
#myListIconGadget
EndEnumeration
Procedure EditorScrollDown()
Protected Selector = GadgetID(#myListIconGadget)
! $(v_selector.gadget.textbox).animate( { scrollTop: $(v_selector.gadget.textbox).prop("scrollHeight")}, 500); // with animation
! // v_selector.gadget.textbox.scrollTop = v_selector.gadget.textbox.scrollHeight; // without animation
EndProcedure
Procedure EditorScrollUp()
Protected Selector = GadgetID(#myListIconGadget)
! $(v_selector.gadget.textbox).animate( { scrollTop: 0}, 500); // with animation
! // v_selector.gadget.textbox.scrollTop = 0; // without animation
EndProcedure
OpenWindow(#myWindow, #PB_Ignore, #PB_Ignore, 500, 500, "", #PB_Window_ScreenCentered)
ButtonGadget(#cmdScrollDown, 10, 10, 220, 30, "Scroll down")
ButtonGadget(#cmdScrollUp, 240, 10, 220, 30, "Scroll up")
ListIconGadget(#myListIconGadget, 10, 50, 480, 440,"No",50)
Define Counter
For Counter = 0 To 99
AddGadgetItem(#myListIconGadget,-1, Str(Counter))
Next
BindGadgetEvent(#cmdScrollDown, @EditorScrollDown())
BindGadgetEvent(#cmdScrollUp, @EditorScrollUp())
Thanks