SetSelectTextEditorGadget

Синтаксис

Sub SetSelectTextEditorGadget(ByVal gadget As Long, ByVal selBegin As long, ByVal selEnd As long)

Описание

У этой функции два назначения:
1) Устанавливает выделение текста в EditorGadget. Если begin = 1 а END = -1, то выделяется весь текст. Если begin = -1 и END = -1 , то выделение убирается.
2) Устанавливает курсор на необходимую позицию в редакторе. Примеры для установки курсора при различных selBegin и selEnd:
-1 , -1 => курсор в самый конец текста
 1 ,   0 => курсор в самое начало текста
 2 ,   1 => курсор после первой буквы

Параметры

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

selBegin - номер первого выделяемого символа

selEnd - номер последнего выделяемого символа

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
Dim As HWND hwnd
hwnd=OpenWindow("1",300,10,250,250)
EditorGadget(1,10,10,200,200, "FreeBasic")
SetSelectTextEditorGadget(1,2,4)
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create EBooks