Scroll Multiline text in String and Editor gadgets!

[Rescator]

Code updated for 5.20+

Code: Select all

Procedure ScrollToTop(gadget)
 SendMessage_(GadgetID(gadget),#WM_VSCROLL,#SB_TOP,0)
EndProcedure

Procedure ScrollToBottom(gadget)
 SendMessage_(GadgetID(gadget),#WM_VSCROLL,#SB_BOTTOM,0)
EndProcedure

Procedure ScrollLineUp(gadget)
 SendMessage_(GadgetID(gadget),#WM_VSCROLL,#SB_LINEUP,0)
EndProcedure

Procedure ScrollLineDown(gadget)
 SendMessage_(GadgetID(gadget),#WM_VSCROLL,#SB_LINEDOWN,0)
EndProcedure

Procedure ScrollPageUp(gadget)
 SendMessage_(GadgetID(gadget),#WM_VSCROLL,#SB_PAGEUP,0)
EndProcedure

Procedure ScrollPageDown(gadget)
 SendMessage_(GadgetID(gadget),#WM_VSCROLL,#SB_PAGEDOWN,0)
EndProcedure

Use the procedures like any other PB gui functions, i.e:
ScrollToBottom(#TextOut)