<html><head><title>Multi-Line 2</title></head>
<body>
<div align="center">
<h2>Multi-Line Text 2</h2>
<!--- Create AspImage Object --->
<cfobject type="COM"
name="Image"
class="AspImage.Image"
action="CREATE">
<cfscript>
Image.AntiAliasText = True;
vbRed="255"; vbBlue="16711680"; vbBlack="0"; vbWhite="16777215";
vbGreen="65280"; vbYellow="65535"; vbCyan="16776960"; vbMagenta="16711935";
vbCrLf="#chr(13)##chr(10)#";
// rem **********************************************************************
// rem * Set various font parameters
// rem **********************************************************************
Image.FontColor = vbYellow;
Image.Italic = True;
Image.Bold = True;
Image.FontName = "Arial";
Image.FontSize = 14;
Image.PadSize = 10;
// rem **********************************************************************
// rem * Calculate the size of the text info is and set the image to this size
// rem * (this has to be done since we want to fill the area with a gradient)
// rem **********************************************************************
strMessage = "Welcome to";
Image.MaxX = Image.TextWidth(strMessage);
Image.MaxY = Image.TextHeight(strMessage);
// rem **********************************************************************
// rem * Create a one way gradient that starts with Red and ends with White
// rem **********************************************************************
Image.GradientOneWay(vbRed, vbWhite, 0);
// rem **********************************************************************
// rem * Print our text to the image at the current X,Y position using 3D
// rem **********************************************************************
Image.TextOut(strMessage, Image.X, Image.Y, true);
Image.BackgroundColor = vbBlack;
// rem **********************************************************************
// rem * Set the filename and save
// rem * NOTE: You should gen the filename dynamically for multiuser usage
// rem **********************************************************************
Image.FileName = "#expandpath(".")#\msg1.jpg";
Image.SaveImage();
// rem **********************************************************************
// rem * Write the <img src> tag out for the browser to pick up
// rem **********************************************************************
WriteOutput("<img src=""msg1.jpg""><br>");
// rem **********************************************************************
// rem *
// rem * We'll write a couple of other images using the same techniques to
// rem * show a few variations
// rem *
// rem **********************************************************************
// rem **********************************************************************
// rem * Here's image #2
// rem **********************************************************************
strMessage = "The Widget Factory";
Image.MaxX = Image.TextWidth(strMessage);
Image.MaxY = Image.TextHeight(strMessage);
Image.GradientTwoWay(vbBlue, vbWhite, 1, 1);
Image.TextOut(strMessage, Image.X, Image.Y, true);
Image.FileName = "#expandpath(".")#\msg2.jpg";
Image.SaveImage();
WriteOutput("<img align=top src=""msg2.jpg"">");
// rem **********************************************************************
// rem * Here's image #3
// rem **********************************************************************
Image.Bold = True;
Image.FontName = "Arial";
Image.FontSize = 10;
Image.PadSize = 3;
Image.BackgroundColor = vbBlack;
Image.FontColor = vbGreen;
strMessage = "The Place for All Your Widget Needs";
Image.MaxX = Image.TextWidth(strMessage);
Image.MaxY = Image.TextHeight(strMessage);
// rem Image.ClearImage;
Image.TextOut(strMessage, Image.X, Image.Y, false);
Image.FileName = "#expandpath(".")#\msg3.jpg";
Image.SaveImage();
WriteOutput("<br><img align=top src=""msg3.jpg"">");
// rem **********************************************************************
// rem * These properties give eval/registration information for the component
// rem **********************************************************************
// rem WriteOutput("<p>Expires: " & Image.Expires);
// rem WriteOutput("<br>Version: " & Image.Version);
// rem WriteOutput("<br>Registered To: " & Image.RegisteredTo);
</cfscript>
</div>
</body>
</html>