DrawTextStr example for Delphi

This example demonstrates most of the properties of a three-dimensional text object as it draws rotated text on the current bitmap.

Lead1.AutoRepaint := False; 
{Load an image for the main control}
Lead1.Load ('c:\lead\images\image1.cmp', 0, 0, 1); 
{Load an image for the foreground of the text}
Lead2.Load ('c:\lead\images\ulay1.bmp', 0, 0, 1); 
{Only TrueType fonts can be rotated}
Lead1.TextFont.Name := 'Times New Roman';
Lead1.TextFont.Size := 72;
{Text location}
Lead1.TextTop := 50;
Lead1.TextLeft := 50;
Lead1.TextWidth := Lead1.DstWidth - 50;
Lead1.TextHeight := Lead1.DstHeight - 50; 
{The foreground image needs to be the correct size.}
Lead2.Size (Lead1.TextWidth, Lead1.TextHeight, 0); 
{Text alignment and angle}
Lead1.TextAlign := etaHcenterVcenter;
Lead1.TextAngle := 450;   {45 degrees}
{Text highlight color and style}
Lead1.TextHiliteColor := RGB(255, 255, 255);
Lead1.TextStyle := etsDropShadow; 
{Text drop shadow}
Lead1.ShadowColor := RGB(0, 0, 0);
Lead1.ShadowXDepth := 5;
Lead1.ShadowYDepth := 5; 
{Make the text a permanent part of the bitmap}
Lead1.DrawPersistence := True; 
{Draw the text}
Lead1.DrawTextStr ('LEADTOOLS', Lead2.Bitmap);
Lead1.ForceRepaint();