ClearType verwenden

[CFA]

Hi,

hiermit könnt ihr ClearType aktivieren oder deaktivieren.

Delphi-Quellcode:

procedure ClearType(Font: TFont; Enable: Boolean);
const
  CLEARTYPE_QUALITY = 5;
var
  lf : TLogFont;
begin
  case Enable of
    true: // Enable
    begin
      GetObject(Font.Handle, SizeOf(TLogFont), @lf);
      lf.lfQuality := CLEARTYPE_QUALITY;
      Font.Handle := CreateFontIndirect(lf);
    end;
    false: // Disable
    begin
      GetObject(Font.Handle, SizeOf(TLogFont), @lf);
      lf.lfQuality := NONANTIALIASED_QUALITY;
      Font.Handle := CreateFontIndirect(lf);
    end;
  end;
end;

Lg,
Andre