Code: Select all
iPause.i = 900
iLine.i = 0
iTotal.i = CountGadgetItems(#EditorGdgt)
While (iLine < iTotal)
Delay(iPause)
SendMessage_(GadgetID(#EditorGdgt),#EM_LINESCROLL,0,1)
iLine = iLine + 1
Wend
Code: Select all
iPause.i = 900
iLine.i = 0
iTotal.i = CountGadgetItems(#EditorGdgt)
While (iLine < iTotal)
Delay(iPause)
SendMessage_(GadgetID(#EditorGdgt),#EM_LINESCROLL,0,1)
iLine = iLine + 1
Wend
Code: Select all
OpenWindow(0,60,60,500,500,"Scroll")
EditorGadget(0,0,0,500,500)
position.POINT
For x=0 To 500
AddGadgetItem(0, x, "Line: "+Str(x))
Next x
GetScrollRange_(GadgetID(0), #SB_VERT, @minpos, @maxpos)
While event<>#PB_Event_CloseWindow And maxpos>position\y
If time+10<ElapsedMilliseconds()
SendMessage_(GadgetID(0), #EM_GETSCROLLPOS, 0, position.POINT)
position\y+1
SendMessage_(GadgetID(0), #EM_SETSCROLLPOS, 0, position)
time=ElapsedMilliseconds()
EndIf
event=WindowEvent()
Wend