Text vertikal auf Canvas ausgeben

[uwewo]

Hi Messie,

hatte das auch mal gebraucht und kurz in einem alten Source nachgesehen.

Hier ein Auschnitt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
   LF   : TLogFont;
   TF   : TFont;
begin
    Form1.Canvas.Font.Color  := clBlack;
    Form1.Canvas.Font.Name   :='Arial';
    TF := TFont.Create;
    TF.Assign(Form1.Canvas.Font);
    GetObject(tf.Handle, sizeof(LF), @LF);
    LF.lfEscapement := 900;
    LF.lfOrientation := 900;
    TF.Handle := CreateFontIndirect(LF);
    Form1.Canvas.Font.Assign(TF);
    TF := TFont.Create;
    Form1.Canvas.TextOut(100,100,'Hallo');
    tf.free;
end;

Habe es nur auf die schnelle den Canvas auf Form1 geändert und das wichtigste rauskopiert.

Nicht getestet sollte aber funktionieren.