Canvas, Vertikaler Text

[glkgereon]

Zitat von Neutral General:

Also so wie ich ihn versteh will er ihn "so" ausgeben.
Das machst du halt etwa so:

Delphi-Quellcode:

var S: String;
    i, H: Integer;
begin
 S:= 'Hallo';
 H:=0;
 for i:= 1 to Length(S) do 
  begin
  Canvas.Textout(0,H,S[i]); // 
  H:=H+Canvas.TextHeight(S[i])+5;
  end;
 end;

Nun musst du nur noch mit dem Abstand zwischen den Buchstaben rumexperimentieren. Die eigentliche buchstabenhöhe wird automatisch und vor allem exakt aufaddiert