delphi Syntax

Blogs RSS

Forums RSS

Disable font smoothing (Anti-aliased font)

Please support our Pascal and Delphi advertiser: Programming Forums

•

Mar 18th, 2006

Views: 5,303

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 on Code Snippet

•

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