I've a problem where I can't find a solution. I just want to create an image and send it as transparent gif directly to the browser. But, I don't know why, the image is never transparent
Can someone help me please? Here's the code:
Code: Select all
strText = "test"
' create object
set objGflax = Server.CreateObject("Gflax.Gflax")
' create dummy-bitmap to find the text-width
objGflax.NewBitmap 5000,10, RGB(0,0,0)
objGflax.SaveFormat = 3
objGflax.FontName = "Arial"
objGflax.FontSize = 13
intWidth = objGflax.GetTextWidth(strText)
' create the image and draw the text
objGflax.EnableLZW = true
objGflax.UseTransparency = true
objGflax.SaveFormat = 2
objGflax.MaskColor = RGB(0,0,0)
objGflax.BackColor = RGB(0,0,0)
objGflax.NewBitmap intWidth, 10, RGB(0,0,0)
objGflax.FontName = "Arial"
objGflax.FontSize = 13
objGflax.TextOut strText, 0,0, RGB(255,255,255)
' rotate, crop & send the image to browser
objGflax.Rotate 270
objGflax.Crop 2,0, 8, intWidth
response.contenttype = "image/gif"
response.binarywrite objGflax.SendBinary
' kill object
set objGflax = Nothing
Kosh