Hilfe

TextAreaChar

B+

Aufruf

position = TextAreaChar (textarea, zeile)

Parameter

textarea Identität von Textarea-Objekt
zeile Nummer der Zeile


Rückgabewert

Startposition des ersten Zeichens


Beschreibung

Die Funktion TextAreaChar ermittelt die Position des ersten Zeichens einer Zeile in Textarea-Objekt.
Gebe hierzu einfach die Identität von Textarea-Objekt und Nummer der Zeile an. Nach TextAreaText kann Text ab dieser Position ausgelesen werden.


Beispiel

Ein kleines Programm zum testen

window = CreateWindow( "", 0, 0, 640, 480 )
txtr_menu = CreateMenu( "Textarea", 0, WindowMenu(window) )
pos_menu = CreateMenu( "Cursorposition", 1, txtr_menu )
textarea = CreateTextArea(0, 0, ClientWidth(window), ClientHeight(window), window)
UpdateWindowMenu window

While WaitEvent()<>$803
   If EventID() = $1001 Then
      Select EventData()
         Case 1
            Notify "Cursorposition: Spalte = " + (position(textarea, 0) + 1) + " Zeile = " + (position(textarea, 1) + 1)
      End Select
   EndIf
   SetStatusText window, "Cursorposition: Spalte = " + (position(textarea, 0) + 1) + " Zeile = " + (position(textarea, 1) + 1)
Wend
End

Function position(gadget, pos = 0)
   Select pos
      Case 0
         Return TextAreaCursor(gadget, 1) - TextAreaChar(gadget, TextAreaCursor(gadget, 2))
      Case 1
         Return TextAreaCursor(gadget, 2)
   End Select
End Function


Siehe auch

TextAreaCursor, TextAreaLen, TextAreaLine, TextAreaLineLen, TextAreaSelLen

Übersicht GUI TextArea