ASPPainter::Text::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