LineScrollEditor

Синтаксис

Function LineScrollEditor(ByVal gadget As Long, ByVal numberLineScroll As Integer) As Integer

Описание

Прокручивает текст на нужное кол-во строк по вертикали

Параметры

gadget - номер гаджета

numberLineScroll - кол-во строк для прокручивания

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
Dim As String buf
Var hwnd=OpenWindow("1",300,10,500,400)
EditorGadget(1,10,10,300,300, "")
ButtonGadget(2,350,20,100,20,"Scroll")
For a As Integer=1 To 500
  buf+="String ?" & a & Chr(10)
Next
SetGadgetText(1,buf)
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=EventGadget Then
     If EventNumber=2 Then
        LineScrollEditor(1,5)
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured EPub generator