ASPPainter::Text::TextAlignBottom.vbs

							
'============================================================
'Sample TextAlignBottom.vbs
' The new setTextLineAlign method gives a possibility to align text 
' vertically 							
in
a rectangle.
'============================================================
Dim pic 
Set pic = CreateObject("ASPPainter.Pictures.1") 
pic.SetBKColor 255,0,0,255 
pic.Create 200,250 
pic.SetColor 0,0,255,255 
pic.SetFontName "Arial" 
pic.SetFontSize 16 
pic.SetColor 0,0,255,255 
pic.SetFontOrientation 0 
pic.SetBlendingMode 1 
pic.SetBlendingQuality 1 
pic.SetFontRectangle 0,0,150,181 
pic.DrawRectangle 0,0,150,181 
pic.setTextAlign 2 
 
pic.setTextLineAlign 2 
 
pic.TextOut 0,0, "Text in rectangle. Align right/botton." 
pic.ClearFontRectangle 
pic.SaveToFile "C:\textinrect2.png" 
pic.Destroy 
pic.DestroyALL 


Set pic = Nothing

Picture 1. textinrect2.png

More samples:

Antialias, Exist font, Font, Fonts, Rotate text, Style, Text gradient, Text in rectangle

See also:

TextOut, SetFontBold, SetFontItalic, SetFontUnderline, SetFontStrikeOut, GetFontHeight, SetFontSize, SetFontName, SetFontAntialias, SetFontOrientation, SetJpegQuality, ExistFont, SetFontRectangle, ClearFontRectangle, SetTextAlign, SetColorIndex, SetGradient, ClearGradient, SetColor, SetBKColor, Create , SaveToFile , DestroyALL