gedrehter Text verändert Font

[alzaimar]

Ach ja, da war doch was...

Versuchs mal damit

Delphi-Quellcode:

Procedure DrawRotated (x,y,Rotation : Integer; Const aText : String);
var
   lf: LOGFONT; // Windows native font structure

begin
  GetObject (MyCanvas.Font.Handle,  SizeOf (lf), @lf);
  lf.lfEscapement := 10 * Rotation;
  lf.lfOrientation := lf.lfEscapement;
  MyCanvas.Font.Handle := CreateFontIndirect(lf);
  MyCanvas.TextOut(x,y,aaText);
end;