DaniWeb IT Discussion Community - Code Snippet Disable font smoothing (Anti-aliased font)

DaniWeb IT Discussion Community (http://www.daniweb.com/forums/index.php)

- Pascal and Delphi (http://www.daniweb.com/forums/forum124.html)

- - Code Snippet: Disable font smoothing (Anti-aliased font) (http://www.daniweb.com/forums/thread216709.html)

Lord Soth

Mar 18th, 2006 6:40 am

Disable font smoothing (Anti-aliased font)

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

Loren Soth

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;

All times are GMT -4. The time now is 4:19 am.