Function LineIndexEditor(ByVal gadget As Long, ByVal NumberLine As Integer=-1) As Integer
Возвpащает индекс символа в начале стpоки, указанной во втором параметре. Если NumberLine=-1, используется стpока, на котоpой в настоящий момент находится знак вставки.
gadget - номер гаджета
NumberLine - номер(индекс) строки
Windows , Linux
#Include "window9.bi"
Dim As integer event
Var hwnd=OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, !"*****\n*\n*")
Do
event=WaitEvent()
If event=EventClose Then End
If event=EventGadget Then
? LineIndexEditor(1,2)
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Easy EBook and documentation generator