| Text mit bunten Wörtern ausgeben von ??? |
| Wie der Title schon sagt :-) FULL BB compatible ! [code:1:51d73bd530] Graphics 640,480 ColorText GraphicsWidth()/2,32,"*CFF80FFThis *CFF0000Text *C00FF00has *C00FFFFColortags *CFFFF00:-)",1,1 WaitKey End Function ColorText(x,y,t$,centerx=0,centery=0) ;MR 14.10.2003 If centerx<>0 Then x=x-ColorTextWidth(t$)/2 If centery<>0 Then y=y-StringHeight (t$)/2 Local i For i=1 To Len(t$) If Mid(t$, i , 1) = "*" Then If Mid(t$, i + 1, 1) = "C" Then f$ = Mid(t$, i + 2, 6) If Len(f$) = 6 Then ffa =HexValue( Left(f$, 2)) ffb =HexValue( Mid(f$, 3, 2)) ffc =HexValue( Right(f$, 2)) ;DebugLog ffa+" : "+ffb+" : "+ffc Color ffa,ffb,ffc i = i + 8 End If End If End If If i<=Len(t$) Then z$=Mid(t$,i,1) Text x,y,z$ x=x+StringWidth(z$) EndIf Next End Function Function ColorTextWidth(t$) ;MR 14.10.2003 Local i,w=0 For i=1 To Len(t$) If Mid(t$, i , 2) = "*C" Then i = i + 8 End If If i<=Len(t$) Then w=w+StringWidth(Mid(t$,i,1)) EndIf Next Return w End Function Function HexValue(h$) ;MR 14.10.2003 ;Example String "FF" If Len(h$)<>2 Then Return 0 Local v=0 Select Mid(h$,2,1) Case "1" v=1 Case "2" v=2 Case "3" v=3 Case "4" v=4 Case "5" v=5 Case "6" v=6 Case "7" v=7 Case "8" v=8 Case "9" v=9 Case "A" v=10 Case "B" v=11 Case "C" v=12 Case "D" v=13 Case "E" v=14 Case "F" v=15 End Select Select Mid(h$,1,1) Case "1" v=v Or 16 Case "2" v=v Or 32 Case "3" v=v Or 48 Case "4" v=v Or 64 Case "5" v=v Or 80 Case "6" v=v Or 96 Case "7" v=v Or 112 Case "8" v=v Or 128 Case "9" v=v Or 144 Case "A" v=v Or 160 Case "B" v=v Or 176 Case "C" v=v Or 192 Case "D" v=v Or 208 Case "E" v=v Or 224 Case "F" v=v Or 240 End Select Return v End Function [/code:1:51d73bd530] |
| von ??? |
| bunt und in farbe, wie es sich gehört :) |