SetTransferTextLineEditorGadget

Синтаксис

Sub SetTransferTextLineEditorGadget(ByVal gadget As Long, ByVal state As Integer)

Описание

Устанавливает EditorGadget так, чтобы он переносил строку на следующий столбец, если текст достиг границы EditorGadget

Параметры

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

state - установка переноса (1-переносить, 0- не переносить)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event,a
Dim As String st
Dim As HWND hwnd
Do
  a+=1
  st+=Str(a)
Loop Until a>100
hwnd=OpenWindow("1",300,10,250,250)
EditorGadget(1,10,10,200,200, st)
SetTransferTextLineEditorGadget(1,1)
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator