Set Text Angle for a TFont instance

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 373,565 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,859 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Pascal and Delphi advertiser:

•

Mar 18th, 2006

Views: 2,722

Lord Soth

Note that the angle is in 1/10 of degrees. Any attempt to manipulate font.size or font.color will reset the angle to zero degrees.

Show Printable Version

•

delphi Syntax

Toggle Plain Text

procedure SetTextAngle(F:Tfont; angle: Word); 
var 
  LogRec: TLOGFONT;  
begin 
  GetObject(f.Handle,SizeOf(LogRec),Addr(LogRec)); 
  LogRec.lfEscapement := angle; 
  f.Handle := CreateFontIndirect(LogRec); 
end;

Post Comment

•

Only community members can submit or comment on code snippets. You must register or log in to contribute.

•

DaniWeb Marketplace (Sponsored Links)

Forum Highlights

Related Features

DANIWEB FEATURE INDEX

Statistics

Members: 373,565

Users Online Now: 3,859

Active IRC Users: 18

Forum Threads: 123,461

Forum Posts: 638,994

Code Snippets: 849

Blogs: 139

Blog Entries: 1,950

Directory Links: 564

DaniWeb Home > Code Snippets > delphi Syntax

Set Text Angle for a TFont instance