Disable font smoothing (Anti-aliased font)

•

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 374,572 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 2,817 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,662

Lord Soth

This code disables font smoothing for a TLabel component. Can easily be converted for other VCL controls.

Loren Soth

Show Printable Version

•

delphi Syntax

Toggle Plain Text

procedure TForm1.DisableFontSmoothing(LabelName: TLabel);
var
  tagLOGFONT: TLogFont;
begin
  GetObject(LabelName.Font.Handle, SizeOf(TLogFont), @tagLOGFONT);
  tagLOGFONT.lfQuality  := NONANTIALIASED_QUALITY;
  LabelName.Font.Handle := CreateFontIndirect(tagLOGFONT);
end;
 
//Example Use for Label2
procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableFontSmoothing(Label2);
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: 374,572

Users Online Now: 2,817

Active IRC Users: 21

Forum Threads: 123,739

Forum Posts: 640,143

Code Snippets: 849

Blogs: 140

Blog Entries: 1,960

Directory Links: 565

DaniWeb Home > Code Snippets > delphi Syntax

Disable font smoothing (Anti-aliased font)