Sub CutText( sText As String, nTextSize As Float, oTypeface As Typeface, nMaxSize As Int ) As String
If sText <> "" Then ' Fehler verhindern.
Dim canvas1 As Canvas
Dim dum As Bitmap
dum.InitializeMutable(20,20)
canvas1.Initialize2(dum)
If oTypeFace.IsInitialized = False Then oTypeFace = Typeface.DEFAULT
Dim nTextWidth, i As Int
i = sText.Length
Do While i > 0
nTextWidth = canvas1.MeasureStringWidth(sText.SubString2(0,i),oTypeFace,nTextSize)
If nTextWidth >= nMaxSize Then
Log("CUT: " & sText.SubString2(0,i) )
i = i - 1
Else
Exit
End If
Loop
End If
Return sText.SubString2(0,i)
End Sub