Text vertikal zeichnen

[Tpercon]

Auch wenn es hier schonmal einen Beitrag zum Zeichnen in StringGrid's gibt, warum geht folgendes nicht bei nem Image?

Delphi-Quellcode:

    Image1.Canvas.Font.Size := Sign[i].Font.Size;
    Image1.Canvas.Font.Style := Sign[i].Font.Style;
    Image1.Canvas.Font.Name := Sign[i].Font.Name;
    Image1.Canvas.Font.Color := Sign[i].Font.Color;
    if Sign[i].Horizontal = false then begin
      tf:=TFont.Create;
      try
        tf.Assign(Image1.Canvas.Font);
        GetObject(tf.Handle, sizeof(lf), @lf);
        lf.lfEscapement:=900;
        lf.lfOrientation:=0;
        tf.Handle:=CreateFontIndirect(lf);
        Image1.Canvas.Font.Assign(tf);
      finally
        tf.Free;
      end;
    end;
    Image1.Canvas.TextOut(Sign[i].Left, Sign[i].Top, sign_s);

Der Text bleibt ledier Horizontal.

[Matze]

Was ist denn sign für ein Typ? :gruebel:

[Tpercon]

Sign ist einfach ein Array.
Was wohl interessanter sein dürfte:

Delphi-Quellcode:

    tf: TFont;
    lf: TLogFont;

[Tpercon]

Hat denn keiner eine Idee, worin der Fehler liegen könnte?
Kennt jemand eine andere Möglichkeit?

[Tpercon]

Ich hab's! :hello:
Diese nette Zeile fehlte:

Delphi-Quellcode:

      SetGraphicsMode(Image1.Canvas.Handle, GM_ADVANCED);

Hat jemand eine Idee, wie man ein Rechteck um den Text zeichnet, dass ebenfalls so gedreht wird? Wahrscheinlich nur mit Hilfe vom Polygon?!