Canvas.Textout Schriftartenglättung deaktivieren

[igel457]

Hallo,

wie kann ich verhindern, das ein Text in der Canvas.Textout-Routine mit der Windows-Kantenglättung gezeichnet wird?

Danke,
igel457

[Hawkeye219]

Hallo Andreas,

hier sind zwei Routinen zum Erfragen und Setzen der font quality:

Delphi-Quellcode:

// mögliche Werte (siehe Windows.pas):
//  DEFAULT_QUALITY = 0
//  DRAFT_QUALITY = 1
//  PROOF_QUALITY = 2
//  NONANTIALIASED_QUALITY = 3
//  ANTIALIASED_QUALITY = 4

function GetFontQuality (aFont: TFont): Byte;
var
  LF : TLogFont;
begin
  GetObject(aFont.Handle, SizeOf(TLogFont), @LF);
  Result := LF.lfQuality;
end;

procedure SetFontQuality (aFont: TFont;  aQuality: Byte);
var
  LF : TLogFont;
begin
  GetObject(aFont.Handle, SizeOf(TLogFont), @LF);
  LF.lfQuality := aQuality;
  aFont.Handle := CreateFontIndirect(LF);
end;

Das Rendern über ClearType könntest du so ausschalten:

Delphi-Quellcode:

SetFontQuality (Label1.Font, NONANTIALIASED_QUALITY);

Gruß Hawkeye

[igel457]

Danke vielmals, funktioniert bestens!