' Define object variable
Dim im
' Create object
Set im = CreateObject("ActiveImage.Images.1")
width = 180
height = 60
' Create image with specified width and height
im.CreateImagePalette width,height
im.SetColor 255,255,255
im.DrawFilledRectangle 0,0,width,height
'Set path to true type fonts
im.SetFontPathTTFAuto
'Set font size
im.SetFontSizeTTF 14
'Set Font Name
im.SetFontTTF "arial"
im.SetColor 0,0,0
im.SetTextAntialias 0
im.DrawTextTTF 10,20, "Text no antialias"
im.SetTextAntialias 1
im.DrawTextTTF 10,35, "Text antialias"
' Set PNG format
im.SetImageType 0
' Save Image to file.
im.WriteToFile "C:\AI\textantialias.png"
' Set BMP format
im.SetImageType 4
' Save Image to file. BMP format.
im.WriteToFile "C:\AI\textantialias.bmp"
' Set Jpeg format
im.SetImageType 1
' Set Jpeg quality
im.SetJpegQuality 100
im.WriteToFile "C:\AI\textantialias.jpg"
' Set Gif format
im.SetImageType 3
'Convert to palette (no alpha)
im.ConvertToPaletteNoAlpha
' Save Image to file.
im.WriteToFile "C:\AI\textantialias.gif"
im.DestroyImage ' Delete image and free memory
Set im = Nothing ' Clear the variable
|