[Andorra2d]: TextOut unscharf :(

[igel457]

Versuche mal folgenden Code in die Datei "AdStandardFontGenerator.pas" einzufügen:

Delphi-Quellcode:

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

Und dann in die Methode TAdStandardFontGenerator.Generate:

Delphi-Quellcode:

  SetFontQuality (rgb.Canvas.Font, NONANTIALIASED_QUALITY);
  SetFontQuality (alpha.Canvas.Font, NONANTIALIASED_QUALITY);

Du musst auch noch die Unit Windows einbinden.