Canvas, Vertikaler Text

[alzaimar]

Rotierten Text gibt man so aus (vorausgesetzt, der Font kann das, z.b. TrueType):

Delphi-Quellcode:

 
Var
  aFt : LOGFONT;
 
begin
... 
  GetObject (aCanvas.Font.Handle,  SizeOf (aFt), @Aft);
  aFt.lfEscapement := 10 * Rotation;  // Rotate ist der Winkel in Grad
  aFt.lfOrientation := aft.lfEscapement;
  aCanvas.Font.Handle := CreateFontIndirect(aFt);