Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

WordArt programming

Status
Not open for further replies.

csq

Programmer
Joined
Feb 6, 2001
Messages
6
Location
AU
Does anybody know the theory of how to program word art effect like WordArt in microsoft word? Is it using some vector imageing?
 
Use TLogFont type for font.There is a property lfEscapement, You can give in tenths of degrees so 900 = 90 degrees.
eg:=
logfont:TLogFont;
with LogFont do
begin
lfHeight := 12;
lfWidth := 0;
lfEscapement := 900;
lfOrientation := 0;
lfWeight := FW_NORMAL; // default
lfItalic := 0; // no italics
lfUnderline := 0; // no underline
lfStrikeOut := 0; // no strikeout
lfCharSet := ANSI_CHARSET; //default
StrPCopy(lfFaceName, Font.Name);
lfQuality := PROOF_QUALITY;
lfOutPrecision := OUT_TT_ONLY_PRECIS;
lfClipPrecision := CLIP_DEFAULT_PRECIS; // default
lfPitchAndFamily := Variable_Pitch; // default
end;

Printer.Canvas.Font.Handle := CreateFontIndirect(LogFont);
 
Thank you Premik. The TLogFont works OK for change font direction.And do you have any idea for make font curve?
 
Sorry, I have this doubt too. If any body can answer for this I will be thank full
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top