Textstelle in Textarea markieren

Übersicht

BlitzBasic

BlitzPlus

	Krumu1201 Betreff: Textstelle in Textarea markieren	Do, Mai 30, 2019 9:01 Antworten mit Zitat
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] [EINKLAPPEN] 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] [EINKLAPPEN] 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

Krumu1201

Betreff: Textstelle in Textarea markieren

Do, Mai 30, 2019 9:01
Antworten mit Zitat

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