Scroll Multiline text in String and Editor gadgets!
Posted: Sun Sep 04, 2005 4:25 am
Code updated for 5.20+
Use the procedures like any other PB gui functions, i.e:
ScrollToBottom(#TextOut)
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)
EndProcedureScrollToBottom(#TextOut)