ASP Painter
Home
Home
Samples
Samples
Purchase
Purchase
Download
Download
Documentation
Documentation


ASPPainter::Text::Antialias.vbs

							
'============================================================
'Sample Antialias.vbs
'============================================================

Dim pic
Set pic = CreateObject("ASPPainter.Pictures.1")
pic.SetBKColor 255,0,0,255
pic.Create 400,250
pic.SetbkColor 0,255,0,255
pic.SetFontName "Arial"
pic.SetFontSize 16
pic.SetColor 255,255,255,255

fontHeight = pic.GetFontHeight
line = fontHeight +10
pic.SetFontAntialias 0
pic.SetFontOrientation 0

pic.TextOut 10,line, "Regular"
pic.SetFontBold 1
line = fontHeight +line
pic.TextOut 10,line, "Bold"
pic.SetFontBold 0
'pic.SaveToFile "C:\style1.png"

pic.SetFontItalic 1
line = fontHeight +line
pic.TextOut 10,line, "Italic"
pic.SetFontItalic 0
pic.SetFontUnderLine 1
line = fontHeight +line
pic.TextOut 10,line, "Underline"
pic.SetFontUnderLine 0
pic.SetFontStrikeOut 1
line = fontHeight +line
pic.TextOut 10,line, "strikeout"
pic.SetFontBold 1

pic.SetFontBold 1
pic.SetFontItalic 1
pic.SetFontUnderLine 1
pic.SetFontStrikeOut 1
line = fontHeight +line
pic.TextOut 10,line, "Arial.ttf"

pic.clearFontStyle

'============================================
'Antialias
pic.SetFontName "Arial"
pic.SetFontSize 16
pic.SetColor 255,255,255,255

fontHeight = pic.GetFontHeight
line = fontHeight +10
pic.SetFontAntialias 1
pic.SetFontOrientation 0

pic.TextOut 210,line, "Regular"
pic.SetFontBold 1
line = fontHeight +line
pic.TextOut 210,line, "Bold"
pic.SetFontBold 0
'pic.SaveToFile "C:\style1.png"

pic.SetFontItalic 1
line = fontHeight +line
pic.TextOut 210,line, "Italic"
pic.SetFontItalic 0
pic.SetFontUnderLine 1
line = fontHeight +line
pic.TextOut 210,line, "Underline"
pic.SetFontUnderLine 0
pic.SetFontStrikeOut 1
line = fontHeight +line
pic.TextOut 210,line, "strikeout"
pic.SetFontBold 1

pic.SetFontBold 1
pic.SetFontItalic 1
pic.SetFontUnderLine 1
pic.SetFontStrikeOut 1
line = fontHeight +line
pic.TextOut 210,line, "Arial.ttf"

pic.SetFontName "Arial"
pic.SetFontSize 16
pic.SaveToFile "C:\antialias.png"
pic.SetFormat 1
pic.SetJpegQuality 100
pic.SaveToFile "C:\antialias.jpg"
pic.Destroy

Set pic = Nothing


Picture 1. antialias.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



home samples purchase documentation download