Graphics 800,600
;irgend ein schwachsinniger Text:
Global Inhalt$="Verbreitern des Fensters: Wenn Du das Fenster verbreitern musst, weil der Text noch länger ist und zu viele Zeilen hätte, dann bleibt auch in einem größeren Fenster der einmal gemessene Umrechnungfaktor erhalten. In unserem Beispiel wäre er 250/200 also 1.25. Willst Du also das Fenster auf 300 verbreitern, so passt wahrscheinlich nachher Text bis zur Breite von 300*1,25 =375 in jede Zeile. "

Rect 50,50,300,300,0
Text 0,20,Inhalt
Print StringWidth(Inhalt)
Umbruch
Flip 1

WaitKey()


Function Umbruch()
        
	Local i%,Zeile$, LastI%
	Repeat
		LastI=0 ; diese Variable enthält immer die letzte Textstelle, die noch unter der Breite von 300 war
		Suche nach max Länge der Zeile beginnt:
		For i=1 To 999 ; durch alle Zeichen des Strings gehen
			If Mid(Inhalt,i,1)=" " ; aber nur Stellen mit Leerzeichen (Wort-Ende) sind interessant
				Zeile$=Left(Inhalt,i+1); linke Texthälfte bis zu dieser Stelle abtrennen
				If StringWidth(Zeile)<300 Then ; und untersuchen
					LastI=I-1 ; wenn kleiner aus das Fenster: merken, aber weitermachen
				Else
					Exit  ; String ist jetzt zu lang, also Abbruch der Stellensuche
				EndIf
			ElseIf I>Len(Inhalt) 
					LastI=I  ; Sonderfall: Textrest in die letzte Zeile
				Exit	
			EndIf
		Next
		Zeile$=Left(Inhalt,LastI) ; hier wird nur der letzte, gerade noch zu kurze, Text abgetrennt
		Text 60,60+j*20,Zeile ; dies nur für Verdeitlichung später nicht nötig
		Text 360,60+j*20,StringWidth(Zeile)
		J=J+1; dies zählt die Zeilen
		Inhalt=Mid(Inhalt,LastI+2,-1); und weiter geht es mit dem Rest des Textes
	Until Len(Inhalt)=0
End Function

Function BreakText(txt$, x, y, width)
	txt$ = Replace$(txt$, "-", "- ") + " BreakText"
	txt_$ = txt$
	Repeat
		t$ = ""
		t_$ = ""
		txt$ = txt_$
		break = False
		break_ = False
		Repeat
			s = 0
			s1 = 0
			s2 = 0
			s3 = 0
			s1 = Instr(txt$, " ")
			s2 = Instr(txt$, Chr$(10))
			s3 = Instr(txt$, Chr$(13))
			If s2 < s1
				If s2 > 0
					s = s2
				Else
					s = s1
				EndIf
			Else
				s = s1
			EndIf
			If s3 < s
				If s3 > 0
					s = s3
				EndIf
			EndIf
			If Not s
				s = Len(txt$)
			EndIf
			break_ = break
			If s = s2 Or s = s3 Then break = True
			t_$ = t$
			txt_$ = txt$
			t$ = t$ + Left$(txt$, s)
			txt$ = Mid$(txt$, s + 1)
		Until StringWidth(t$) => width Or txt$ = "" Or break_ = True
		Text x, y, t_$
		y = y + FontHeight()
		c = c + 1
	Until txt$ = ""
	Return c
End Function


win = CreateWindow("test", 200, 200, 400, 400, Desktop(), 0)
l = CreateLabel("Google Nutzungsbedingungen Zuletzt geändert am: 1. März 2012" + Chr$(13) + Chr$(13) + "Willkommen bei Google! Vielen Dank, dass Sie unsere Produkte und Dienste ('Dienste') nutzen. Die Dienste werden Ihnen von Google Inc. ('Google'), Amphitheatre Parkway, Mountain View, CA 94043, USA, zur Verfügung gestellt. Die Nutzung der Dienste setzt voraus, dass Sie diesen Nutzungsbedingungen zustimmen. Bitte lesen Sie diese sorgfältig durch. Wir bieten eine Vielzahl von verschiedenen Diensten an. Aus diesem Grund gelten unter Umständen zusätzliche Bedingungen oder Produktvoraussetzungen (z.B. ein Mindestalter). Solche zusätzlichen Bedingungen werden im Zusammenhang mit den entsprechenden Diensten zur Verfügung gestellt und werden Teil Ihres Nutzungsverhältnisses mit uns, sobald Sie diese Dienste nutzen. Nutzung unserer Dienste Sie sind zur Einhaltung der Richtlinien verpflichtet, die für unsere Dienste gelten. Verwenden Sie unsere Dienste nicht in missbräuchlicher Art und Weise. Sie sind beispielsweise nicht berechtigt, in die Dienste einzugreifen oder in anderer Weise als über die von Google bereitgestellte Benutzeroberfläche und gemäß unseren Vorgaben auf die Dienste zuzugreifen. Sie dürfen unsere Dienste nur in dem gesetzlich zulässigen Rahmen nutzen.", 5, 5, 390, 15, win, 1)

i = CreateImage(800, 600)
SetBuffer ImageBuffer(i)
SetFont GadgetFont(l)

c = BreakText("Google Nutzungsbedingungen Zuletzt geändert am: 1. März 2012" + Chr$(13) + Chr$(13) + "Willkommen bei Google! Vielen Dank, dass Sie unsere Produkte und Dienste ('Dienste') nutzen. Die Dienste werden Ihnen von Google Inc. ('Google'), Amphitheatre Parkway, Mountain View, CA 94043, USA, zur Verfügung gestellt. Die Nutzung der Dienste setzt voraus, dass Sie diesen Nutzungsbedingungen zustimmen. Bitte lesen Sie diese sorgfältig durch. Wir bieten eine Vielzahl von verschiedenen Diensten an. Aus diesem Grund gelten unter Umständen zusätzliche Bedingungen oder Produktvoraussetzungen (z.B. ein Mindestalter). Solche zusätzlichen Bedingungen werden im Zusammenhang mit den entsprechenden Diensten zur Verfügung gestellt und werden Teil Ihres Nutzungsverhältnisses mit uns, sobald Sie diese Dienste nutzen. Nutzung unserer Dienste Sie sind zur Einhaltung der Richtlinien verpflichtet, die für unsere Dienste gelten. Verwenden Sie unsere Dienste nicht in missbräuchlicher Art und Weise. Sie sind beispielsweise nicht berechtigt, in die Dienste einzugreifen oder in anderer Weise als über die von Google bereitgestellte Benutzeroberfläche und gemäß unseren Vorgaben auf die Dienste zuzugreifen. Sie dürfen unsere Dienste nur in dem gesetzlich zulässigen Rahmen nutzen.", 55, 55, 390)
SetGadgetShape l, 5, 5, 390, FontHeight() * c
Repeat
Forever
FreeImage i