SetTabStopsEditor

Синтаксис

Sub SetTabStopsEditor(ByVal gadget As Long, ByVal TabWidth As Integer=0)

Описание

Устанавливает кол-во символов табуляции(отступов) для текста

Параметры

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

TabWidth - кол-во символов табуляции

Платформы

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,"Tab= 2")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=EventGadget Then
     If EventNumber=2 Then
        SetTabStopsEditor(1,2)
     EndIf
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator