Wraptext with Text shadow effect

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|115\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Wraptext with Text shadow effect
Fri, 30 Jan 2009, 09:53
LostUser	Hi there I haven't been here in ages. Anyway, here's my problem. I want to combine my Text Shadow effect with my Wraptext function so that I can have stylized text effects wrapped inside a rectangle or "speech bubble" box. Here is the code for the text shadow effect; Function Text_Shadow(x, y, txt$, cenx=0, ceny=0) r = ColorRed() g = ColorGreen() b = ColorBlue() Color 0,0,0 Text x+1, y+1, txt$,cenx,ceny Color r,g,b ;Color 255,255,255 Text x, y, txt$,cenx,ceny End Function --v Here is the code for the WrapText function (a bit long) Const WRAP_MODE_NONE = 0 Const WRAP_MODE_WRAPPED = 1 Const WRAP_MODE_DIRECT = 2 Const ALIGN_MODE_LEFT = 0 Const ALIGN_MODE_CENTER = 1 Const ALIGN_MODE_RIGHT = 2 Const JUSTIFIED_OFF = 0 Const JUSTIFIED_ON = 1 Function WrapText%(x, y, txt$, mode = WRAP_MODE_WRAPPED , align = ALIGN_MODE_LEFT, width = -1, justified = JUSTIFIED_OFF, height = -1) Local i, l, o, h Local w#, wx# Local c$ l = Len(txt) If width < 0 And mode > WRAP_MODE_NONE Then RuntimeError "Cannot have no width with a wrap mode" End If If width < 0 And justified > JUSTIFIED_OFF Then RuntimeError "Cannot have no width and be justified" End If If height = -1 Then height = StringHeight(txt) End If Select mode Case WRAP_MODE_NONE For i = 1 To l If Mid(txt, i, 1) = Chr$(13) Or Mid(txt, i, 1) = Chr$(10) Then h = WrapText(x, y, Left(txt, i - 1), WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height) Return h+WrapText(x, y+height, Mid(txt, i + 1), mode, align, width, justified, height) End If Next Return WrapText(x, y, txt, WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height) Case WRAP_MODE_WRAPPED For i = 1 To l If Mid(txt, i, 1) = Chr$(13) Or Mid(txt, i, 1) = Chr$(10) Then h = WrapText(x, y, Left(txt, i - 1), WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height) Return h+WrapText(x, y+height, Mid(txt, i + 1), mode, align, width, justified, height) End If If StringWidth(Left(txt, i - 1)) > width Then i = i - 1 While i > 0 And Mid(txt, i, 1) <> " " i = i - 1 Wend If i = 0 Then i = 1 End If h = WrapText(x, y, Left(txt, i - 1), WRAP_MODE_DIRECT, align, width, justified, height) Return h+WrapText(x, y+height, Mid(txt, i + 1), mode, align, width, justified, height) End If Next Return WrapText(x, y, txt, WRAP_MODE_DIRECT, align, width, JUSTIFIED_OFF, height) Case WRAP_MODE_DIRECT Select justified Case JUSTIFIED_OFF Select align Case ALIGN_MODE_LEFT Text x, y, txt Case ALIGN_MODE_CENTER Text x + width/2 - StringWidth(txt)/2, y, txt Case ALIGN_MODE_RIGHT Text x + width - StringWidth(txt), y, txt End Select Case JUSTIFIED_ON w = (Float(width) - Float(StringWidth(txt))) / Float(l-1) wx = x For i = 1 To l c$ = Mid(txt, i, 1) Text wx, y, c wx = wx + w + StringWidth(c) Next End Select Return height End Select End Function --v Any help on combining the two would be great!
Fri, 30 Jan 2009, 09:58
JL235	What about: Function WrapTextShadow(x, y, txt$, cenx=0, ceny=0, mode = WRAP_MODE_WRAPPED , align = ALIGN_MODE_LEFT, width = -1, justified = JUSTIFIED_OFF, height = -1) Text_Shadow(x, y, wrapText(x, y, txt$, mode, align, width, justified, height), cenx, ceny) end function --v
Fri, 30 Jan 2009, 10:31
LostUser	I'll try it! Thanks I tried it, it returns a weird number right at the front of the text, also the text has no shadow (I tried it on a red background and I should see a black shadow). WrapText also seems to take presendence over the text shadow effect.