Sehr schlechte Qualität bei gedrehtem Text

[Muetze1]

Moin!

1. CreateFontIndirect() verwenden
2. in der LOGFONT Struktur lfEscapement und lfOrientation auf den gleichen Wert setzen
3. Folgendes verwende ich z.B.

Delphi-Quellcode:

Var
  fMeinFont : LOGFONT;
  fOldHandle : HFONT;
Begin   
  fMeinFont.lfHeight         := 14;
  fMeinFont.lfWidth          := 0;
  fMeinFont.lfEscapement     := 450;
  fMeinFont.lfOrientation    := 450;
  fMeinFont.lfWeight         := 0;
  fMeinFont.lfItalic         := 0;
  fMeinFont.lfUnderline      := 0;
  fMeinFont.lfStrikeOut      := 0;
  fMeinFont.lfCharSet        := ANSI_CHARSET;
  fMeinFont.lfOutPrecision   := OUT_DEFAULT_PRECIS;
  fMeinFont.lfClipPrecision  := CLIP_DEFAULT_PRECIS;
  fMeinFont.lfQuality        := PROOF_QUALITY;
  fMeinFont.lfPitchAndFamily := VARIABLE_PITCH Or FF_SWISS;
  fMeinFont.lfFaceName       := 'Arial';

  fOldHandle := Canvas.Font.Handle;
  Canvas.Font.Handle := CreateFontIndirect(fMeinFont);

  TextOut()

  DeleteObject(Canvas.Font.Handle);
  Canvas.Font.Handle := fOldHandle;
End;

MfG
Muetze1