Sehr schlechte Qualität bei gedrehtem Text

[sakura]

Folgend sollte es gehen (Voraussetzung mind. 65535 Farben, NT4/2000/XP oder besser)

Delphi-Quellcode:

var
  Mfont: HFONT;
[...]
SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
try
  Mfont := CreateFont(12,   // FontSize
                      0,    // Breite der Zeichen
                      -450, // Winkel * 10
                      0,    // Winkel der Zeichen
                      0,    // Dicke der Zeichen
                      0,    // Kursiv
                      0,    // Unterstrichen
                      0,    // StrikOut
                      DEFAULT_CHARSET,
                      OUT_DEFAULT_PRECIS,
                      CLIP_DEFAULT_PRECIS,
                      PROOF_QUALITY,
                      DEFAULT_PITCH,
                      'Arial');
  try
    // Erzeugte Schrift dem Canvas zuweisen
    SelectObject(Canvas.Handle, Mfont);
    Canvas.TextOut(20,1,'Dies ist ein Test');
  finally
    DeleteObject(Mfont);
  end;
finally
  SetGraphicsMode(Canvas.Handle, GM_COMPATIBLE);
end;

......