Sample 7 - Using True Type Fonts

Using True Type Fonts

truetype.vbs


DIM im1
'Create Object
Set im1 = CreateObject("ActiveImage.Images.1")
'Set path to true type fonts
im1.SetFontPathTTF "C:\WINNT\FONTS"
'Set font size
im1.SetFontSizeTTF 24
'Set Font Name
im1.SetFontTTF "ariblk"

'Create empty canvass
im1.CreateImage 300, 300

'Set Color
im1.SetColor 128, 0, 192
'Draw a text with selected font
im1.DrawTextTTF 20, 20 , "tonec.com"

im1.SetFontSizeTTF 36

'Draw a text with selected font and angle
im1.DrawTextAngleTTF 50, 50 ,360-45, "TONEC.COM"
im1.SetColor 128, 192, 192
im1.DrawTextAngleTTF 50, 100 ,360-45, "tonec.com"

'Save image to a file
im1.WriteToFile "C:\truetype.png"
Set im1 = Nothing


truetype.png
Picture 1. truetype.png (size - 6 Kb)

If you have any questions or bug reports, write to active.image@tonec.com for technical support.