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 strongm 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
Feb 6, 2001
6
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