Hilfe

TextAreaCursor

B+

Aufruf

position = TextAreaCursor (textarea [,einheit])

Parameter

textarea Identität eines Textarea-Objekts
einheit 1=Zeichenposition (Standard)
2=Zeilenposition


Rückgabewert

Position des Cursors wird zurückgeliefert


Beschreibung

Die Funktion TextAreaCursor liefert die Position des Textcursors. Gebe hierzu Identität von Textarea und Einheit-Code an. Je nach Einheit-Code kann Zeichenposition oder Zeilenposition ermittelt werden.


Beispiel

Dieses Beispiel zeigt die Position des Cursor in der Statusleiste an:

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

TextAreaChar, TextAreaLen, TextAreaLine, TextAreaLineLen, TextAreaSelLen

Übersicht GUI TextArea