Canvas, Vertikaler Text

[alzaimar]

Hier:

Delphi-Quellcode:

Procedure VerticalText(Rotation, x, y: Integer; aText: String; aCanvas: TCanvas);
Var
  aFt: LOGFONT;
  hOldFont: THandle;

Begin
  hOldFont := aCanvas.Font.Handle;
  Try
    aCanvas.Font.Name :='Arial'; // Muss TrueType sein
    GetObject(aCanvas.Font.Handle, SizeOf(aFt), @Aft);
    aFt.lfEscapement := 10 * Rotation;  // Rotate ist der Winkel in Grad
    aFt.lfOrientation := aft.lfEscapement;
    aFt.lfQuality := ANTIALIASED_QUALITY;
    aCanvas.Font.Handle := CreateFontIndirect(aFt);
    aCanvas.TextOut(x, y, aText);
  Finally
    DeleteObject(aCanvas.Font.Handle);
    aCanvas.Font.Handle := hOldFont;
  End;
End;