Textstelle in Textarea markieren

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

 

Krumu1201

Betreff: Textstelle in Textarea markieren

BeitragDo, Mai 30, 2019 9:01
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi

in meinem aktuellen Editor Projekt brauche ich für eine Suchen Funktion, die das gefundene Wort in der Textarea markiert , habe dazu auch folgendes im Forum gefunden

BlitzBasic: [AUSKLAPPEN]
Function selectTextAreaText(textarea%, pos%, length%)
endPos = pos + length
If length = -1 Then
endPos = Len(TextAreaText(textarea))
End If
hwnd = QueryObject(textarea, 1)
wMsg = 1024 + 55 ;EM_EXSETSEL
wParam = 0
lParam = CreateBank(8) ;CHARRANGE
PokeInt(lParam, 0, pos)
PokeInt(lParam, 4, endPos)
api_SendMessage(hwnd, wMsg, wParam, lParam)
FreeBank(lParam)
End Function



BlitzBasic: [AUSKLAPPEN]
window = CreateWindow("Hello World", 200, 200, 400, 300)

textarea = CreateTextArea(0,0,ClientWidth(window), ClientHeight(window), window)
SetGadgetLayout(textarea, 1, 1, 1, 1)

t$ = ""
For i = 0 To 10
t = t + "abcdefghijklmnopqrstuvwxyz" + Chr(13) + Chr(10)
Next
SetTextAreaText(textarea, t)

selectTextAreaText(textarea, 30, 30)

While(True)
WaitEvent()
Select EventSource()
Case window
Select EventID()
Case $803
Exit
End Select
End Select
Wend

FreeGadget(window)


Aber leider wird immer der ganze Text in der Textarea markiert, egal was ich als 2ten und 3ten Parameter in der selecttextareatext Funktion eingebe. Ich verstehe nicht warum. Kann mir einer helfen?

Gruß

Krumu1201

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group