Absätze bei GetGadgetText()

[Joel]

Hi, habe folgende Probleme!

1. Ich möchte eine bestimmte Aktion ausführen, wenn mein StringGadget leer ist. Das Problem ist, ich benutze Multiline usw. Wenn nun als Text da ein Absatz steht dann erkennt die Funktion das nicht mehr mit:

Code: Alles auswählen

 GetGadgetText(#StringGadget_Input) = ""

2. Wenn ich einen Absatz eingefügt habe und den Absatz mit:

Code: Alles auswählen

SetGadgetText(#StringGadget_Input, "")

entfernen, funktioniert das nicht.

Hier der Code:

Code: Alles auswählen

Enumeration
	#Window
	#StringGadget_Input
EndEnumeration

If OpenWindow(#Window, 0, 0, 480, 418, "Chat-Client Beta 1",  #PB_Window_SystemMenu|#PB_Window_ScreenCentered| #PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget|#PB_Window_SizeGadget)
	StringGadget(#StringGadget_Input, 10, 380, 300, 70, "", #ES_MULTILINE|#WS_VSCROLL|#ESB_DISABLE_LEFT|#ESB_DISABLE_RIGHT)
Repeat
  WindowEvent = WaitWindowEvent(10)
  
  Select WindowEvent
  	Case #PB_Event_CloseWindow
  		End
  EndSelect
  
  	If GetAsyncKeyState_(#VK_RETURN)
	  	Repeat
	  		Delay(1)
	    Until GetAsyncKeyState_(#VK_RETURN) = 0
	    
	    If GetGadgetText(#StringGadget_Input) = ""
	    Debug "leer"
	    EndIf 
	   SetGadgetText(#StringGadget_Input, "")
	    EndIf 
	     
	    
	    Until ff
	    EndIf 

[Andesdaf]

ich versteh dein Anliegen nicht so ganz. StringGadget multiline, nimm doch
ein EditorGadget.

[edel]

Benutze Trim()

[Joel]

Es müsste eigendlich schon ein string gadget sein.

also die Fragen sind:

1. "Wie erkenne ich einen Absastz in einem StringGadget() das Multiline hat?

2. "Wie entfernen ich einen Absatz wieder?

(beides siehe erster post)

Edit: Trim entfernt keine Absätze!

[hjbremer]

so wat ?

a$ = GetGadgetText(#StringGadget_Input)
p1 = FindString(a$, #LF$, 1)
If p1
Debug "Zeilenumbruch"
EndIf