Hilfe

TextAreaSelLen

B+

Aufruf

länge = TextAreaSelLen (textarea [,einheit])

Parameter

textarea Identität eines Textarea-Objekts
einheit 1=Zeichenanzahl (Standard)
2=Zeilenanzahl


Rückgabewert

Anzahl der Zeichen/Zeilen wird zurückgeliefert


Beschreibung

Die Funktion TextAreaSelLen ermittelt die Anzahl markierter Zeichen oder Zeilen in Textarea-Objekt. Gebe hierzu einfach die Identität eines Textarea-Objekts und Einheit-Code an.


Beispiel

Diese Beispiel zeigt den markierten Text in der Statuszeile

window = CreateWindow( "", 0, 0, 640, 480 )
txtr_menu = CreateMenu( "Textarea", 0, WindowMenu(window) )
pos_menu = CreateMenu( "Markierter TEXT", 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 "Markierter TEXT: = " + marked$(textarea)
      End Select
   EndIf
   SetStatusText window, "Markierter TEXT: = " + marked$(textarea)
Wend
End

Function marked$(gadget)
   Return Mid$(TextAreaText$(gadget), TextAreaCursor(gadget, 1), TextAreaCursor(gadget, 1) + TextAreaSelLen(gadget, 1))
End Function


Siehe auch

TextAreaChar, TextAreaCursor, TextAreaLen, TextAreaLine, TextAreaLineLen

Übersicht GUI TextArea