Thema: Delphi Canvas, Vertikaler Text

Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#7

Re: Canvas, Vertikaler Text

  Alt 7. Dez 2005, 19:00
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
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat